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') || $query->param('bornum');
26 my ($status,$error) = CanBookBeRenewed
( $borrowernumber, $itemnumber );
28 AddRenewal
( $borrowernumber, $itemnumber );
30 # FIXME: else return ERROR to user!!
32 if ( $query->param('from') eq 'opac_user' ) {
33 print $query->redirect("/cgi-bin/koha/opac-user.pl");
35 # FIXME: ELSE WHAT? No response at all. Not very robust.