fixing help feature with new template structure
[koha.git] / opac / opac-renew.pl
1 #!/usr/bin/perl
2
3 #written 18/1/2000 by chris@katipo.co.nz
4 # adapted for use in the hlt opac by finlay@katipo.co.nz 29/11/2002
5 #script to renew items from the web
6
7 use CGI;
8 use C4::Circulation;
9
10 my $query = new CGI;
11
12 my $itemnumber     = $query->param('item');
13 my $borrowernumber = $query->param("borrowernumber");
14
15 my $status = CanBookBeRenewed( $borrowernumber, $itemnumber );
16 if ( $status == 1 ) {
17     AddRenewal( $borrowernumber, $itemnumber );
18 }
19
20 if ( $query->param('from') eq 'opac_user' ) {
21     print $query->redirect("/cgi-bin/koha/opac-user.pl");
22 }