@@ -, +, @@ BlockExpiredPatronOpacActions $patron->category->effective_BlockExpiredPatronOpacActions --- C4/Members.pm | 7 ------- opac/opac-renew.pl | 4 +++- opac/opac-reserve.pl | 3 ++- 3 files changed, 5 insertions(+), 9 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -168,7 +168,6 @@ sub GetMemberDetails { SELECT borrowers.*, category_type, categories.description, - categories.BlockExpiredPatronOpacActions, reservefee, enrolmentperiod FROM borrowers @@ -182,7 +181,6 @@ sub GetMemberDetails { SELECT borrowers.*, category_type, categories.description, - categories.BlockExpiredPatronOpacActions, reservefee, enrolmentperiod FROM borrowers @@ -212,11 +210,6 @@ sub GetMemberDetails { $borrower->{'flags'} = $flags; $borrower->{'authflags'} = $accessflagshash; - # Handle setting the true behavior for BlockExpiredPatronOpacActions - $borrower->{'BlockExpiredPatronOpacActions'} = - C4::Context->preference('BlockExpiredPatronOpacActions') - if ( $borrower->{'BlockExpiredPatronOpacActions'} == -1 ); - $borrower->{'is_expired'} = 0; $borrower->{'is_expired'} = 1 if defined($borrower->{dateexpiry}) && --- a/opac/opac-renew.pl +++ a/opac/opac-renew.pl @@ -30,6 +30,7 @@ use C4::Auth; use C4::Context; use C4::Items; use C4::Members; +use Koha::Patrons; use Date::Calc qw( Today Date_to_Days ); my $query = new CGI; @@ -49,9 +50,10 @@ my $opacrenew = C4::Context->preference("OpacRenewalAllowed"); my $errorstring = q{}; my $renewed = q{}; +my $patron = Koha::Patrons->find( $borrowernumber ); my $member_details = GetMemberDetails($borrowernumber); -if ( $member_details->{'BlockExpiredPatronOpacActions'} +if ( $patron->category->effective_BlockExpiredPatronOpacActions && $member_details->{'is_expired'} ) { $errorstring = 'card_expired'; --- a/opac/opac-reserve.pl +++ a/opac/opac-reserve.pl @@ -71,9 +71,10 @@ sub get_out { # get borrower information .... my ( $borr ) = GetMemberDetails( $borrowernumber ); +my $patron = Koha::Patrons->find( $borrowernumber ); # check if this user can place a reserve, -1 means use sys pref, 0 means dont block, 1 means block -if ( $borr->{'BlockExpiredPatronOpacActions'} ) { +if ( $patron->category->effective_BlockExpiredPatronOpacActions ) { if ( $borr->{'is_expired'} ) { --