Acquisition minor improvements

[koha_gimpoz] / reserve / renewscript.pl

diff --git a/reserve/renewscript.pl b/reserve/renewscript.pl
index b878c52..d06101e 100755 (executable)
--- a/reserve/renewscript.pl
+++ b/reserve/renewscript.pl
@@ -24,38 +24,38 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use CGI;
-use C4::Circulation::Circ2;
+use C4::Circulation;
 
 my $input = new CGI;
-my @names = $input->param();
 
 #
 # find items to renew, all items or a selection of items
 #
 
-# create a look-up table to check efficiently parameter availability
-my %is_param = map {$_ => 1} @names;
-
 my @data;
-if ($is_param{renew_all}) {
+if ($input->param('renew_all')) {
     @data = $input->param('all_items[]');
 }
 else {
     @data = $input->param('items[]');
 }
-
+my $branch=$input->param('branch');
 #
 # renew items
 #
-my %env;
 my $cardnumber = $input->param("cardnumber");
-my $bornum = $input->param("bornum");
+my $borrowernumber = $input->param("borrowernumber");
 
 foreach my $itemno (@data) {
     #check status before renewing issue
-    if (renewstatus(\%env,$bornum,$itemno)){
-        renewbook(\%env,$bornum,$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";
+       }
 }
 
 #
@@ -68,6 +68,6 @@ if ($input->param('destination') eq "circ"){
 }
 else {
     print $input->redirect(
-        '/cgi-bin/koha/members/moremember.pl?bornum='.$bornum
+        '/cgi-bin/koha/members/moremember.pl?borrowernumber='.$borrowernumber
     );
 }