From 8e021b37c51359a70b2ccb7dc8c243b63470c02d Mon Sep 17 00:00:00 2001 From: szrj1m Date: Sat, 27 Aug 2005 05:59:00 +0000 Subject: [PATCH] Removed Data:Dumper line, and general tidy-up. --- reports/reservereport.pl | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/reports/reservereport.pl b/reports/reservereport.pl index d8cd8e8f5c..9cf2ba561a 100755 --- a/reports/reservereport.pl +++ b/reports/reservereport.pl @@ -28,7 +28,6 @@ use C4::Output; use HTML::Template; use C4::Auth; use C4::Interface::CGI::Output; -use Data::Dumper; my $input = new CGI; my $time = $input->param('time'); @@ -46,14 +45,10 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( my ( $count, $data ) = unfilledreserves(); - -#print Dumper($count, $data); - my @dataloop; for ( my $i = 0 ; $i < $count ; $i++ ) { my %line; -# $line{name} = "$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}"; $line{name} = "

[$i]->{'borrowernumber'}\">$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}

"; $line{'reservedate'} = $data->[$i]->{'reservedate'}; $line{'title'} = "

[$i]->{'biblionumber'}\">$data->[$i]->{'title'}

"; #manky @@ -65,11 +60,6 @@ warn "status : $line{'status'} \n"; push( @dataloop, \%line ); } -#= "

[$i]->{'biblionumber'}\">$data->[$i]->{'title'}

"; #manky -#= "

[$i]->{'borrowernumber'}\">$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}

"; - - - $template->param( count => $count, -- 2.20.1