4 #script to display reports
13 my $time=$input->param('time');
17 print startmenu
('report');
20 my ($count,$data)=unfilledreserves
();
22 for (my $i=0;$i<$count;$i++){
23 print mktablerow
(4,'white',"$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}",$data->[$i]->{'reservedate'},$data->[$i]->{'title'},"$data->[$i]->{'classification'}$data->[$i]->{'dewey'}");
26 print endmenu
('report');