X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-renew.pl;h=205f48a227576bd02b51e3e23c42a3667f45404a;hb=574f613a1dfadfcd7c025139e6a63b1b1a0f729c;hp=4a4e3afdc3952bf0c8323784f116ecc107ef1108;hpb=7485f4baa0cbc14e837e56925b669760d5a1c7ec;p=koha_fer

diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl
index 4a4e3afdc3..205f48a227 100755
--- a/opac/opac-renew.pl
+++ b/opac/opac-renew.pl
@@ -4,22 +4,38 @@
 # adapted for use in the hlt opac by finlay@katipo.co.nz 29/11/2002
 #script to renew items from the web
 
+use strict;
+use warnings;
+
 use CGI;
-use C4::Circulation::Circ2;
+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');
+$borrowernumber = $query->param('borrowernumber') || $query->param('bornum');
+my $opacrenew = C4::Context->preference("OpacRenewalAllowed");
+
+for my $itemnumber ( @items ) {
+    my ($status,$error) = CanBookBeRenewed( $borrowernumber, $itemnumber );
+    if ( $status == 1 && $opacrenew == 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.