Removed Data:Dumper line, and general tidy-up.
authorszrj1m <szrj1m>
Sat, 27 Aug 2005 05:59:00 +0000 (05:59 +0000)
committerszrj1m <szrj1m>
Sat, 27 Aug 2005 05:59:00 +0000 (05:59 +0000)
reports/reservereport.pl

index d8cd8e8..9cf2ba5 100755 (executable)
@@ -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}             = "<p><a href=\"/cgi-bin/koha/members/moremember.pl?bornum=$data->[$i]->{'borrowernumber'}\">$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}</a></p>";
     $line{'reservedate'}    = $data->[$i]->{'reservedate'};
     $line{'title'}          = "<p><a href=\"/cgi-bin/koha/request.pl?bib=$data->[$i]->{'biblionumber'}\">$data->[$i]->{'title'}</a></p>"; #manky
@@ -65,11 +60,6 @@ warn "status : $line{'status'} \n";
     push( @dataloop, \%line );
 }
 
-#= "<p><a href=\"/cgi-bin/koha/request.pl?bib=$data->[$i]->{'biblionumber'}\">$data->[$i]->{'title'}</a></p>"; #manky
-#= "<p><a href=\"/cgi-bin/koha/members/moremember.pl?bornum=$data->[$i]->{'borrowernumber'}\">$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}</a></p>";
-
-
-
 
 $template->param(
     count    => $count,