evenly distribute items in replicant

kellyrmilligan

I am sure that someone has done this before, but for some reason I can't get the code through my thick skull.

I am wanting to evenly distribute the contents of a replicant between two columns, so if there are 9 items, it would be 5 in the first, and 4 in the second.

Here is what I have so far,

<iw_iterate var='row1' list='dcr.boxed_content_row1' iteration='count'>
<iw_perl>
my $number = iwpt_dcr_list('dcr.boxed_content_row1 ');
if (!($number % 2 == 0)) {
$number = $number + 1;
}
my $div = $number/2;
my $count = $count;
my $title = iwpt_dcr_value('row1.TITLE ');
my $content = iwpt_dcr_value('row1.CONTENT');
if ($count <= $div){
$firstcolumn .= "<div id=\"sub5\">$title</div>$content");
}
else {
$secondcolumn .= "<div id=\"sub2\">$title</div>$content");
}
</iw_perl>
</iw_iterate>
<table>
<tr>
<td><iw_value name='$firstcolumn'/></td>
<td><iw_value name='$secondcolumn'/></td>
</tr>
</table>

does this look right? is there a better way to do this? I know i could just make two replicants for the two columns, but I think this is a cleaner solution so the user doesn't have to worry.


Just updated the code, I think this is right now...

Edited by kellyrmilligan on 12/28/05 01:40 PM (server time).

Adam Stoller

Depending on how you want the list organized - it's not too difficult.

If you have a replicant list with values of (A, B, C, D, E) and you wanted them displayed like:

A	B
C	D
E

Then you want something like:<iw_perl>
my $html = qq{<table>};
my @data = iwpt_dcr_list('replicant_address');
for (my $i = 0; $i < @data{
$html .= sprintf(join(q{}
, qq{<tr>}
, qq{<td><div id="sub5">%s</div>%s</td>}),
$data[$i].value('TITLE'), $data[$i++].value('CONTENT'));
if ($i < @data){
$html .= sprintf(join(q{}
, qq{<td><div id="sub2">%s</div>%s</td>}
, qq{</tr>\n}),
$data[$i].value('TITLE'), $data[$i++].value('CONTENT'));
}
else {
$html .= sprintf(join(q{}
, qq{<td><div id="sub2">%s</div>%s</td>}
, qq{</tr>\n}),
q{}, "<br />");
}
}
$html .= qq{</table>};
iwpt_output($html);
</iw_perl>If, on the other hand you're looking for output like:

A	D
B	E
C

Then you'll want something like:<iw_perl>
my $html = qq{<table>};
my @data = iwpt_dcr_list('replicant_address');
my $half = int((scalar(@data) + 1) / 2);
for my ($i = 0; $i < $half; $i++){
$html .= sprintf(join(q{}
, qq{<tr>}
, qq{<td><div id="sub5">%s</div>%s</td>}),
$data[$i].value('TITLE'), $data[$i].value('CONTENT'));
if (($i + $half) < @data){
$html .= sprintf(join(q{}
, qq{<td><div id="sub2">%s</div>%s</td>}
, qq{</tr>\n}),
$data[$i + $half].value('TITLE'), $data[$i + $half].value('CONTENT'));
}
else {
$html .= sprintf(join(q{}
, qq{<td><div id="sub2">%s</div>%s</td>}
, qq{</tr>\n}),
q{}, "<br />");
}
}
$html .= qq{</table>
</iw_perl>

Disclaimer: The above is un-tested - but I believe that if it doesn't work as shown that it's relatively close and you should be able to work it out with only a modicum of effort.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com