From 58a8ef5bbb5b6ffce190e62a7a6580703d396efa Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 31 Jan 2001 19:34:12 +0000
Subject: [PATCH] Changed it so you cant renew a book that is on request, made
 a link from the on request text to the request(reserve) data

---
 moremember.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/moremember.pl b/moremember.pl
index 3cc6ba5b77..3f6bde4110 100755
--- a/moremember.pl
+++ b/moremember.pl
@@ -5,7 +5,8 @@
 #Displays all the detailas about a borrower
 #needs html removed and to use the C4::Output more, but its tricky
 #last modified 21/1/2000 by chris@katipo.co.nz
-
+#modifiecd 31/1/2001 by chris@katipo.co.nz to not allow items on request
+#to be renewed
 use strict;
 use C4::Output;
 use CGI;
@@ -194,15 +195,15 @@ for (my $i=0;$i<$count;$i++){
   #check item is not reserved
   my ($rescount,$reserves)=FindReserves($issue->[$i]{'biblionumber'},'');
   if ($rescount >0){
-    print "<TD>On Request";
+    print "<TD><a href=/cgi-bin/koha/request.pl?bib=$issue->[$i]{'biblionumber'}>On Request - no renewals</a></td></tr>";
   } else {
     print "<TD>";
-  }
+  
     print "<input type=radio name=\"renew_item_$issue->[$i]{'itemnumber'}\" value=y>Y
     <input type=radio name=\"renew_item_$issue->[$i]{'itemnumber'}\" value=n>N</td>
     </tr>
     ";
-  
+  }
 }
 print <<printend
 
-- 
2.39.2