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::Circ2;
   9
  10 my $query = new CGI;
  11
  12 my $itemnumber = $query->param('item');
  13 my $borrowernumber = $query->param("bornum");
  14
  15
  16
  17 my %env;
  18 my $status = renewstatus(\%env,$borrowernumber,$itemnumber);
  19 if ($status == 1){
  20     renewbook(\%env,$borrowernumber,$itemnumber);
  21 }
  22
  23 if ($query->param('from') eq 'opac_user') {
  24     print $query->redirect("/cgi-bin/koha/opac-user.pl");
  25 }