Acquisition minor improvements

[koha_gimpoz] / reserve / renewscript.pl

diff --git a/reserve/renewscript.pl b/reserve/renewscript.pl
index 6452f8c..d06101e 100755 (executable)
--- a/reserve/renewscript.pl
+++ b/reserve/renewscript.pl
@@ -24,7 +24,7 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use CGI;
-use C4::Circulation::Circ2;
+use C4::Circulation;
 
 my $input = new CGI;
 
@@ -39,19 +39,23 @@ if ($input->param('renew_all')) {
 else {
     @data = $input->param('items[]');
 }
-
+my $branch=$input->param('branch');
 #
 # renew items
 #
-my %env;
 my $cardnumber = $input->param("cardnumber");
 my $borrowernumber = $input->param("borrowernumber");
 
 foreach my $itemno (@data) {
     #check status before renewing issue
-    if (renewstatus(\%env,$borrowernumber,$itemno)){
-        renewbook(\%env,$borrowernumber,$itemno);
-    }
+#    warn "CanBookbeRenewed";
+    if (CanBookBeRenewed($borrowernumber,$itemno)){
+#      warn "$itemno can be renewed for $borrowernumber";
+        AddRenewal($borrowernumber,$itemno,$branch);
+#      warn "renewal added";
+#    }else {
+#      warn "cannot renew";
+       }
 }
 
 #