use C4::Context;
use C4::Items;
use C4::Members;
+use Koha::Patrons;
use Date::Calc qw( Today Date_to_Days );
my $query = new CGI;
my $errorstring = q{};
my $renewed = q{};
-my $member_details = GetMemberDetails($borrowernumber);
+my $patron = Koha::Patrons->find( $borrowernumber );
-if ( $member_details->{'BlockExpiredPatronOpacActions'}
- && $member_details->{'is_expired'} )
+if ( $patron->category->effective_BlockExpiredPatronOpacActions
+ && $patron->is_expired )
{
$errorstring = 'card_expired';
}
$branchcode = $item->{'homebranch'};
}
elsif ( $renewalbranch eq 'patronhomebranch' ) {
- my $borrower = GetMemberDetails($borrowernumber);
+ my $borrower = GetMember( borrowernumber => $borrowernumber );
$branchcode = $borrower->{'branchcode'};
}
elsif ( $renewalbranch eq 'checkoutbranch' ) {