From 92898f6957fb4f5413f5a06358ccdb1b6917be76 Mon Sep 17 00:00:00 2001
From: szrj1m <szrj1m>
Date: Fri, 26 Aug 2005 23:55:25 +0000
Subject: [PATCH] Added status field, and patron asnd title links.

---
 reports/reservereport.pl | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/reports/reservereport.pl b/reports/reservereport.pl
index 6b84ea7faa..a7d50e224b 100755
--- a/reports/reservereport.pl
+++ b/reports/reservereport.pl
@@ -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
-- 
2.20.1