|
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 |
- |
|
|