new virtual shelves changes, keyed by biblionumber -- approved

[koha_gimpoz] / opac / opac-renew.pl

diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl
index 4a4e3af..d529d3d 100755 (executable)
--- a/opac/opac-renew.pl
+++ b/opac/opac-renew.pl
@@ -5,21 +5,18 @@
 #script to renew items from the web
 
 use CGI;
-use C4::Circulation::Circ2;
+use C4::Circulation;
 
 my $query = new CGI;
 
-my $itemnumber = $query->param('item');
-my $borrowernumber = $query->param("bornum");
+my $itemnumber     = $query->param('item');
+my $borrowernumber = $query->param("borrowernumber");
 
-
-
-my %env;
-my $status = renewstatus(\%env,$borrowernumber,$itemnumber);
-if ($status == 1){
-    renewbook(\%env,$borrowernumber,$itemnumber);
+my $status = CanBookBeRenewed( $borrowernumber, $itemnumber );
+if ( $status == 1 ) {
+    AddRenewal( $borrowernumber, $itemnumber );
 }
 
-if ($query->param('from') eq 'opac_user') {
+if ( $query->param('from') eq 'opac_user' ) {
     print $query->redirect("/cgi-bin/koha/opac-user.pl");
 }