<%perl>
my $rowNum = 1;
my (%properties, @renderLast);
while (my $row = $sth->fetchrow_hashref()) {
my %params = ();
# Each module's arguments are stored in $properties{params}
# in the format 'param1=value1,param2=value2 ...'
# Convert them to mason compatible for (param1=>value1,param2=>value2)
if ($row->{properties}) {
%properties = %{ thaw(decode_base64($row->{properties})) };
%params = map { split(/=/,$_) } split(/\s*,\s*/,$properties{params});
}
$row->{params} = undef;
if($properties{wide}) {
$row->{params} = \%params;
push(@renderLast, $row);
}
% if(!$properties{wide}) {
% if($row->{name} =~ /Documents/) {
<& com/document_section, name => "$row->{name}",%params, preview => $preview &>
% } else {
<& $row->{component}, %params, preview => $preview &>
% }
% $rowNum++;
% }
% }
<& com/rightcolumn, preview => $preview &>
% foreach my $row (@renderLast) {
% if($row->{params}) {
<& $row->{component}, %{$row->{params}}, preview => $preview &>
% } else {
<& $row->{component}, preview => $preview &>
% }
% }