my $patron = Koha::Patrons->find( $borrowernumber ) or return; # FIXME Should do more than just return
my $patron_unblessed = $patron->unblessed;
- my $library = Koha::Libraries->find( $branch );
-
+ my $circ_library = Koha::Libraries->find( _GetCircControlBranch($item, $patron_unblessed) );
if ( C4::Context->preference('CalculateFinesOnReturn') && $issue->is_overdue ) {
_CalculateAndUpdateFine( { issue => $issue, item => $item_unblessed, borrower => $patron_unblessed } );
$datedue = CalcDateDue($datedue, $itemtype, _GetCircControlBranch($item_unblessed, $patron_unblessed), $patron_unblessed, 'is a renewal');
}
-
my $fees = Koha::Charges::Fees->new(
{
patron => $patron,
- library => $library,
+ library => $circ_library,
item => $item_object,
to_date => dt_from_string( $datedue ),
}
value => { enrolmentfee => undef }
})->{categorycode};
+# A default issuingrule should always be present
+my $issuingrule = $builder->build(
+ {
+ source => 'Issuingrule',
+ value => {
+ itemtype => '*',
+ categorycode => '*',
+ branchcode => '*',
+ lengthunit => 'days',
+ issuelength => 0,
+ renewalperiod => 0,
+ renewalsallowed => 0
+ }
+ }
+);
+
# Add Dates
my $dt_today = dt_from_string;
my $today = output_pref(