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 %env;
  16 my $status = CanBookBeRenewed( $borrowernumber, $itemnumber );
  17 if ( $status == 1 ) {
  18     AddRenewal( $borrowernumber, $itemnumber );
  19 }
  20
  21 if ( $query->param('from') eq 'opac_user' ) {
  22     print $query->redirect("/cgi-bin/koha/opac-user.pl");
  23 }