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
13 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
15 template_name => "opac-user.tmpl",
19 flagsrequired => { borrow => 1 },
23 my $itemnumber = $query->param('item');
24 my $borrowernumber = $query->param("borrowernumber");
26 my ($status,$error) = CanBookBeRenewed( $borrowernumber, $itemnumber );
28 AddRenewal( $borrowernumber, $itemnumber );
31 if ( $query->param('from') eq 'opac_user' ) {
32 print $query->redirect("/cgi-bin/koha/opac-user.pl");