remove disused script admin/letter.pl

[koha.git] / opac / opac-renew.pl

diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl
index 41f1d73..5eb9761 100755 (executable)
--- a/opac/opac-renew.pl
+++ b/opac/opac-renew.pl
@@ -5,21 +5,33 @@
 #script to renew items from the web
 
 use CGI;
-use C4::Circulation::Renewals2;
+use C4::Circulation;
+use C4::Auth;
 
 my $query = new CGI;
 
-my $itemnumber = $query->param('item');
-my $borrowernumber = $query->param("bornum");
-
-
-
-my %env;
-my $status = renewstatus(\%env,$borrowernumber,$itemnumber);
-if ($status == 1){
-    renewbook(\%env,$borrowernumber,$itemnumber);
+my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
+       {
+                 template_name   => "opac-user.tmpl",
+                 query           => $query,
+                 type            => "opac",
+                 authnotrequired => 0,
+                 flagsrequired   => { borrow => 1 },
+                 debug           => 1,
+       }
+); 
+my @items          = $query->param('item');
+my $borrowernumber = $query->param('borrowernumber') || $query->param('bornum');
+
+for my $itemnumber ( @items ) {
+    my ($status,$error) = CanBookBeRenewed( $borrowernumber, $itemnumber );
+    if ( $status == 1 ) {
+        AddRenewal( $borrowernumber, $itemnumber );
+    }
 }
+# FIXME: else return ERROR to user!!
 
-if ($query->param('from') eq 'opac_user') {
+if ( $query->param('from') eq 'opac_user' ) {
     print $query->redirect("/cgi-bin/koha/opac-user.pl");
-}
+} 
+# FIXME: ELSE WHAT?  No response at all.  Not very robust.