[Koha-cvs] CVS: koha/reports reservereport.pl,1.2,1.3
Mason James
szrj1m at users.sourceforge.net
Sat Aug 27 01:55:27 CEST 2005
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,
More information about the Koha-cvs
mailing list