Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Added status field, and patron asnd title links.

Browse source
This commit is contained in:
szrj1m 2005-08-26 23:55:25 +00:00
parent f1b044862d
commit 92898f6957
1 changed files with 20 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
reports/reservereport.pl
View file

@ -28,6 +28,7 @@ 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');
@ -37,7 +38,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
template_name => "reports/reservereport.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
authnotrequired => 1,
flagsrequired => { editcatalogue => 1 },
debug => 1,
}
@ -45,18 +46,31 @@ 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++ ) {
warn "here";
my %line;
$line{name} = "$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}";
# $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'} = $data->[$i]->{'title'};
$line{'classification'} =
"$data->[$i]->{'classification'}$data->[$i]->{'dewey'}";
$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,
dataloop => \@dataloop