Koha/opac/opac-renew.pl
2007-03-09 15:12:54 +00:00

23 lines
581 B
Perl
Executable file

#!/usr/bin/perl
#written 18/1/2000 by chris@katipo.co.nz
# adapted for use in the hlt opac by finlay@katipo.co.nz 29/11/2002
#script to renew items from the web
use CGI;
use C4::Circulation::Circ2;
my $query = new CGI;
my $itemnumber = $query->param('item');
my $borrowernumber = $query->param("borrowernumber");
my %env;
my $status = renewstatus( \%env, $borrowernumber, $itemnumber );
if ( $status == 1 ) {
renewbook( \%env, $borrowernumber, $itemnumber );
}
if ( $query->param('from') eq 'opac_user' ) {
print $query->redirect("/cgi-bin/koha/opac-user.pl");
}