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 @items = $query->param('item');
24 my $borrowernumber = $query->param('borrowernumber') || $query->param('bornum');
25 my $opacrenew = C4
::Context
->preference("OpacRenewalAllowed");
27 for my $itemnumber ( @items ) {
28 my ($status,$error) = CanBookBeRenewed
( $borrowernumber, $itemnumber );
29 if ( $status == 1 && $opacrenew == 1 ) {
30 AddRenewal
( $borrowernumber, $itemnumber );
33 # FIXME: else return ERROR to user!!
35 if ( $query->param('from') eq 'opac_user' ) {
36 print $query->redirect("/cgi-bin/koha/opac-user.pl");
38 # FIXME: ELSE WHAT? No response at all. Not very robust.