[Koha-cvs] CVS: koha/reports reservereport.pl,1.5,1.6

[Owen Leonard]

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

Modified Files:
        reservereport.pl 
Log Message:
Moving HTML out of the script, passing variables instead to the template.  
Adding toggle variable for alternating row colors

Index: reservereport.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/reservereport.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** reservereport.pl    27 Aug 2005 05:59:00 -0000      1.5
--- reservereport.pl    3 Sep 2005 18:33:15 -0000       1.6
***************
*** 23,27 ****
  use strict;
  use C4::Stats;
! use Date::Manip;
  use CGI;
  use C4::Output;
--- 23,27 ----
  use strict;
  use C4::Stats;
! use C4::Date;
  use CGI;
  use C4::Output;
***************
*** 47,60 ****
  
  my @dataloop;
  for ( my $i = 0 ; $i < $count ; $i++ ) {
- 
      my %line;
!     $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 );
--- 47,64 ----
  
  my @dataloop;
+ my $toggle;
  for ( my $i = 0 ; $i < $count ; $i++ ) {
      my %line;
!       $toggle = $i%2 ? 0 : 1;
!       $line{'borrowernumber'} = $data->[$i]->{'borrowernumber'};
!       $line{'surname'} = $data->[$i]->{'surname'};
!       $line{'firstname'} = $data->[$i]->{'firstname'};
!     $line{'reservedate'}    = format_date($data->[$i]->{'reservedate'});
!       $line{'biblionumber'} = $data->[$i]->{'biblionumber'};
!       $line{'title'} = $data->[$i]->{'title'};
!       $line{'classification'} = $data->[$i]->{'classification'};
!       $line{'dewey'} = $data->[$i]->{'dewey'};
!     $line{'status'} = $data->[$i]->{'found'};
!       $line{'toggle'} = $toggle;
  
      push( @dataloop, \%line );