|
Lines 123-133
if ($filename) {
Link Here
|
| 123 |
print {$fh} join $delim, ( @borrower_fields, @item_fields, @other_fields ); |
123 |
print {$fh} join $delim, ( @borrower_fields, @item_fields, @other_fields ); |
| 124 |
print {$fh} "\n"; |
124 |
print {$fh} "\n"; |
| 125 |
} |
125 |
} |
| 126 |
my $counted = 0; |
126 |
|
| 127 |
my $params; |
|
|
| 128 |
$params->{maximumdays} = $maxdays if $maxdays; |
| 129 |
my $overdues = Getoverdues($params); |
| 130 |
if(_flock($LockFH, LOCK_EX|LOCK_NB)) { |
127 |
if(_flock($LockFH, LOCK_EX|LOCK_NB)) { |
|
|
128 |
my $counted = 0; |
| 129 |
my $params; |
| 130 |
$params->{maximumdays} = $maxdays if $maxdays; |
| 131 |
my $overdues = Getoverdues($params); |
| 131 |
for my $overdue ( @{$overdues} ) { |
132 |
for my $overdue ( @{$overdues} ) { |
| 132 |
next if $overdue->{itemlost}; |
133 |
next if $overdue->{itemlost}; |
| 133 |
|
134 |
|
| 134 |
- |
|
|