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
This commit is contained in:
rangi 2001-01-31 19:34:12 +00:00
parent e371a7114f
commit 58a8ef5bbb
1 changed files with 5 additions and 4 deletions

View File

@ -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