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');