use CGI;
use C4::Circulation;
use C4::Auth;
+use C4::Context;
use C4::Items;
use C4::Members;
+use Date::Calc qw( Today Date_to_Days );
my $query = new CGI;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
}
);
my @items = $query->param('item');
-$borrowernumber = $query->param('borrowernumber') || $query->param('bornum');
+
my $opacrenew = C4::Context->preference("OpacRenewalAllowed");
my $errorstring='';
-for my $itemnumber ( @items ) {
- my ($status,$error) = CanBookBeRenewed( $borrowernumber, $itemnumber );
- if ( $status == 1 && $opacrenew == 1 ) {
- my $renewalbranch = C4::Context->preference('OpacRenewalBranch');
- my $branchcode;
- if ($renewalbranch eq 'itemhomebranch'){
- my $item = GetItem($itemnumber);
- $branchcode=$item->{'homebranch'};
- }
- elsif ($renewalbranch eq 'patronhomebranch'){
- my $borrower = GetMemberDetails($borrowernumber);
- $branchcode = $borrower->{'branchcode'};
- }
- elsif ($renewalbranch eq 'checkoutbranch'){
- my $issue = GetOpenIssue($itemnumber);
- $branchcode = $issue->{'branchcode'};
- }
- elsif ($renewalbranch eq 'NULL'){
- $branchcode='';
- }
- else {
- $branchcode='OPACRenew'
- }
- AddRenewal( $borrowernumber, $itemnumber, $branchcode);
- }
- else {
- $errorstring .= $error ."|";
+my $member_details = GetMemberDetails($borrowernumber);
+
+if ( $member_details->{'BlockExpiredPatronOpacActions'}
+ && $member_details->{'is_expired'} )
+{
+ $errorstring = 'card_expired';
+}
+else {
+ for my $itemnumber (@items) {
+ my ( $status, $error ) =
+ CanBookBeRenewed( $borrowernumber, $itemnumber );
+ if ( $status == 1 && $opacrenew == 1 ) {
+ my $renewalbranch = C4::Context->preference('OpacRenewalBranch');
+ my $branchcode;
+ if ( $renewalbranch eq 'itemhomebranch' ) {
+ my $item = GetItem($itemnumber);
+ $branchcode = $item->{'homebranch'};
+ }
+ elsif ( $renewalbranch eq 'patronhomebranch' ) {
+ my $borrower = GetMemberDetails($borrowernumber);
+ $branchcode = $borrower->{'branchcode'};
+ }
+ elsif ( $renewalbranch eq 'checkoutbranch' ) {
+ my $issue = GetOpenIssue($itemnumber);
+ $branchcode = $issue->{'branchcode'};
+ }
+ elsif ( $renewalbranch eq 'NULL' ) {
+ $branchcode = '';
+ }
+ else {
+ $branchcode = 'OPACRenew';
+ }
+ AddRenewal( $borrowernumber, $itemnumber, $branchcode );
+ }
+ else {
+ $errorstring .= $error . "|";
+ }
}
}