-$template->param( ITEMS => \@duedates );
-
-my $width = keys %types;
-my @publictypes = sort { $b->{'count'} <=> $a->{'count'} } values %types;
-my $typecount;
-foreach my $pt (@publictypes) {
- $typecount += $pt->{'count'};
-}
-$template->param( onlyone => 1 ) if $typecount == 1;
-
-my @typerows;
-for ( my $rownum = 0 ; $rownum < $publictypes[0]->{'count'} ; $rownum++ ) {
- my @row;
- foreach my $pty (@publictypes) {
- my @items = @{ $pty->{'items'} };
- push @row, $items[$rownum] if defined $items[$rownum];
- }
- my $last = @row;
- $row[ $last - 1 ]->{'last'} = 1 if $last == $width;
- my $fill = ( $width - $last ) * 2;
- $fill-- if $fill;
- push @typerows, { ROW => \@row, fill => $fill };
-}
-$template->param( TYPE_ROWS => \@typerows );
-$width = 2 * $width - 1;
-$template->param( totalwidth => 2 * $width - 1, );
-