Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Got requests cancelling from borrowers page

Browse source
This commit is contained in:
chris 2000-01-26 21:48:04 +00:00
parent 9453fe6086
commit 3252978345
2 changed files with 23 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
modrequest.pl
View file

@ -1,7 +1,8 @@
#!/usr/bin/perl
#script to modify reserves/requests
#writen 2/1/00 by chris@katipo.oc.nz
#written 2/1/00 by chris@katipo.oc.nz
#last update 27/1/2000 by chris@katipo.co.nz
use strict;
#use DBI;
@ -29,5 +30,9 @@ for (my $i=0;$i<$count;$i++){
}
}
print $input->redirect("/cgi-bin/koha/request.pl?bib=$biblio[0]");
my $from=$input->param('from');
if ($from eq 'borrower'){
print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$borrower[0]");
} else {
print $input->redirect("/cgi-bin/koha/request.pl?bib=$biblio[0]");
}

20
moremember.pl
View file

@ -2,6 +2,9 @@
#script to do a borrower enquiery/brin up borrower details etc
#written 20/12/99 by chris@katipo.co.nz
#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
use strict;
use C4::Output;
@ -220,6 +223,8 @@ print <<printend
<td bgcolor="99cc33" background="/images/background-mem.gif"><B>Remove</b></TD>
</TR>
<form action=/cgi-bin/koha/modrequest.pl method=post>
<input type=hidden name=from value=borrower>
printend
;
my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
@ -229,21 +234,26 @@ for (my $i=0;$i<$rescount;$i++){
print "<tr VALIGN=TOP >
<TD><a href=\"/cgi-bin/koha/request.pl?bib=$reserves->[$i]{'biblionumber'}\">$reserves->[$i]{'title'}</a></td>
<TD>$reserves->[$i]{'reservedate'}</td>
<TD>$2</td>
<TD><input type=radio name=\"remove-request_123\" value=y>Y
<input type=radio name=\"remove-request_123\" value=n>N</td>
<input type=hidden name=biblio value=$reserves->[$i]{'biblionumber'}>
<input type=hidden name=borrower value=$bornum>
<TD></td>
<TD><select name=\"rank-request\">
<option value=n>No
<option value=del>Yes
</select>
</tr>
";
}
print <<printend
<tr VALIGN=TOP >
<TD colspan=5 align=right>
<INPUT TYPE="image" name="submit" VALUE="update" height=42 WIDTH=187 BORDER=0 src="/images/cancel-requests.gif"></td>
</tr>
</table>
</form>
<p align=right>
<a href=rachey-reading.html><img height=42 WIDTH=187 BORDER=0 src="/images/reading-record.gif"></a>
<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum><img height=42 WIDTH=187 BORDER=0 src="/images/reading-record.gif"></a>
</p>
printend
;