[Koha-cvs] CVS: koha/reports reservereport.pl,1.2,1.3

[Mason James]

Update of /cvsroot/koha/koha/reports
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25702

Modified Files:
        reservereport.pl 
Log Message:
Added status field, and patron asnd title links.


Index: reservereport.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/reservereport.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** reservereport.pl    25 Aug 2005 23:17:26 -0000      1.2
--- reservereport.pl    26 Aug 2005 23:55:25 -0000      1.3
***************
*** 29,32 ****
--- 29,33 ----
  use C4::Auth;
  use C4::Interface::CGI::Output;
+ use Data::Dumper;
  
  my $input = new CGI;
***************
*** 38,42 ****
          query           => $input,
          type            => "intranet",
!         authnotrequired => 0,
          flagsrequired   => { editcatalogue => 1 },
          debug           => 1,
--- 39,43 ----
          query           => $input,
          type            => "intranet",
!         authnotrequired => 1,
          flagsrequired   => { editcatalogue => 1 },
          debug           => 1,
***************
*** 46,61 ****
  my ( $count, $data ) = unfilledreserves();
  
  my @dataloop;
  for ( my $i = 0 ; $i < $count ; $i++ ) {
!     warn "here";
      my %line;
!     $line{name} = "$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}";
      $line{'reservedate'}    = $data->[$i]->{'reservedate'};
!     $line{'title'}          = $data->[$i]->{'title'};
!     $line{'classification'} =
!       "$data->[$i]->{'classification'}$data->[$i]->{'dewey'}";
      push( @dataloop, \%line );
  }
  
  $template->param(
      count    => $count,
--- 47,75 ----
  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
!     $line{'classification'} = 
"$data->[$i]->{'classification'}$data->[$i]->{'dewey'}";
!     $line{'status'}         = $data->[$i]->{'found'};
! 
! 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,