# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Circulation;
$branchcode = $item->{'homebranch'};
}
elsif ( $renewalbranch eq 'patronhomebranch' ) {
- my $borrower = GetMemberDetails($borrowernumber);
- $branchcode = $borrower->{'branchcode'};
+ $branchcode = Koha::Patrons->find( $borrowernumber )->branchcode;
}
elsif ( $renewalbranch eq 'checkoutbranch' ) {
my $issue = GetOpenIssue($itemnumber);
else {
$branchcode = 'OPACRenew';
}
- AddRenewal( $borrowernumber, $itemnumber, $branchcode );
+ AddRenewal( $borrowernumber, $itemnumber, $branchcode, undef, undef );
push( @renewed, $itemnumber );
}
else {