Lines 110-117
for my $overdue ( @{$overdues} ) {
Link Here
|
110 |
( $control eq 'ItemHomeLibrary' ) ? $overdue->{homebranch} |
110 |
( $control eq 'ItemHomeLibrary' ) ? $overdue->{homebranch} |
111 |
: ( $control eq 'PatronLibrary' ) ? $borrower->{branchcode} |
111 |
: ( $control eq 'PatronLibrary' ) ? $borrower->{branchcode} |
112 |
: $overdue->{branchcode}; |
112 |
: $overdue->{branchcode}; |
|
|
113 |
# In final case, CircControl must be PickupLibrary. (branchcode comes from issues table here). |
114 |
|
115 |
unless( defined $branchcode ) { |
116 |
warn( "Item home branch, borrower branch code or issues branchcode " |
117 |
. "not defined. Cannot process fine for borrower cardnumber '$borrower->{cardnumber}', " |
118 |
. "item barcode '$overdue->{branchcode}'"); |
119 |
next; |
120 |
} |
113 |
|
121 |
|
114 |
# In final case, CircControl must be PickupLibrary. (branchcode comes from issues table here). |
|
|
115 |
if ( !exists $is_holiday{$branchcode} ) { |
122 |
if ( !exists $is_holiday{$branchcode} ) { |
116 |
$is_holiday{$branchcode} = set_holiday( $branchcode, $today ); |
123 |
$is_holiday{$branchcode} = set_holiday( $branchcode, $today ); |
117 |
} |
124 |
} |
118 |
- |
|
|