|
Lines 27-32
use warnings;
Link Here
|
| 27 |
use CGI; |
27 |
use CGI; |
| 28 |
use C4::Circulation; |
28 |
use C4::Circulation; |
| 29 |
use C4::Auth; |
29 |
use C4::Auth; |
|
|
30 |
use C4::Context; |
| 30 |
use C4::Items; |
31 |
use C4::Items; |
| 31 |
use C4::Members; |
32 |
use C4::Members; |
| 32 |
use Date::Calc qw( Today Date_to_Days ); |
33 |
use Date::Calc qw( Today Date_to_Days ); |
|
Lines 48-85
my $opacrenew = C4::Context->preference("OpacRenewalAllowed");
Link Here
|
| 48 |
|
49 |
|
| 49 |
my $errorstring=''; |
50 |
my $errorstring=''; |
| 50 |
my $member_details = GetMemberDetails($borrowernumber); |
51 |
my $member_details = GetMemberDetails($borrowernumber); |
| 51 |
# BlockExpiredPatronOpacActions syspref 0 is false, 1 is true. BlockExpiredPatronOpacActions for categories (from GetMemberDetails) -1 means use syspref, 0 is false, 1 is true (where false means dont block, true means block) |
52 |
|
| 52 |
if( ($member_details->{'BlockExpiredPatronOpacActions'} == -1 ? C4::Conext->preference('BlockExpiredPatronOpacActions') : $member_details->{'BlockExpiredPatronOpacActions'}) |
53 |
if ( $member_details->{'BlockExpiredPatronOpacActions'} |
| 53 |
&& Date_to_Days( Today() ) > Date_to_Days( split /-/, $member_details->{'dateexpiry'} ) ){ |
54 |
&& $member_details->{'is_expired'} ) |
| 54 |
$errorstring='unable to renew as your card has expired'; |
55 |
{ |
| 55 |
} else { |
56 |
$errorstring = 'card_expired'; |
| 56 |
for my $itemnumber ( @items ) { |
57 |
} |
| 57 |
my ($status,$error) = CanBookBeRenewed( $borrowernumber, $itemnumber ); |
58 |
else { |
|
|
59 |
for my $itemnumber (@items) { |
| 60 |
my ( $status, $error ) = |
| 61 |
CanBookBeRenewed( $borrowernumber, $itemnumber ); |
| 58 |
if ( $status == 1 && $opacrenew == 1 ) { |
62 |
if ( $status == 1 && $opacrenew == 1 ) { |
| 59 |
my $renewalbranch = C4::Context->preference('OpacRenewalBranch'); |
63 |
my $renewalbranch = C4::Context->preference('OpacRenewalBranch'); |
| 60 |
my $branchcode; |
64 |
my $branchcode; |
| 61 |
if ($renewalbranch eq 'itemhomebranch'){ |
65 |
if ( $renewalbranch eq 'itemhomebranch' ) { |
| 62 |
my $item = GetItem($itemnumber); |
66 |
my $item = GetItem($itemnumber); |
| 63 |
$branchcode=$item->{'homebranch'}; |
67 |
$branchcode = $item->{'homebranch'}; |
| 64 |
} |
68 |
} |
| 65 |
elsif ($renewalbranch eq 'patronhomebranch'){ |
69 |
elsif ( $renewalbranch eq 'patronhomebranch' ) { |
| 66 |
my $borrower = GetMemberDetails($borrowernumber); |
70 |
my $borrower = GetMemberDetails($borrowernumber); |
| 67 |
$branchcode = $borrower->{'branchcode'}; |
71 |
$branchcode = $borrower->{'branchcode'}; |
| 68 |
} |
72 |
} |
| 69 |
elsif ($renewalbranch eq 'checkoutbranch'){ |
73 |
elsif ( $renewalbranch eq 'checkoutbranch' ) { |
| 70 |
my $issue = GetOpenIssue($itemnumber); |
74 |
my $issue = GetOpenIssue($itemnumber); |
| 71 |
$branchcode = $issue->{'branchcode'}; |
75 |
$branchcode = $issue->{'branchcode'}; |
| 72 |
} |
76 |
} |
| 73 |
elsif ($renewalbranch eq 'NULL'){ |
77 |
elsif ( $renewalbranch eq 'NULL' ) { |
| 74 |
$branchcode=''; |
78 |
$branchcode = ''; |
| 75 |
} |
79 |
} |
| 76 |
else { |
80 |
else { |
| 77 |
$branchcode='OPACRenew' |
81 |
$branchcode = 'OPACRenew'; |
| 78 |
} |
82 |
} |
| 79 |
AddRenewal( $borrowernumber, $itemnumber, $branchcode); |
83 |
AddRenewal( $borrowernumber, $itemnumber, $branchcode ); |
| 80 |
} |
84 |
} |
| 81 |
else { |
85 |
else { |
| 82 |
$errorstring .= $error ."|"; |
86 |
$errorstring .= $error . "|"; |
| 83 |
} |
87 |
} |
| 84 |
} |
88 |
} |
| 85 |
} |
89 |
} |