|
Lines 463-469
END_SQL
Link Here
|
| 463 |
|
463 |
|
| 464 |
my $rqoverduerules = $dbh->prepare($query); |
464 |
my $rqoverduerules = $dbh->prepare($query); |
| 465 |
$rqoverduerules->execute($branchcode, @myborcat, @myborcatout); |
465 |
$rqoverduerules->execute($branchcode, @myborcat, @myborcatout); |
| 466 |
|
466 |
|
| 467 |
# We get default rules is there is no rule for this branch |
467 |
# We get default rules is there is no rule for this branch |
| 468 |
if($rqoverduerules->rows == 0){ |
468 |
if($rqoverduerules->rows == 0){ |
| 469 |
$query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = '' "; |
469 |
$query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = '' "; |
|
Lines 600-606
END_SQL
Link Here
|
| 600 |
$sendfee = C4::Context->preference('DefaultNoticeFee'); |
600 |
$sendfee = C4::Context->preference('DefaultNoticeFee'); |
| 601 |
} |
601 |
} |
| 602 |
|
602 |
|
| 603 |
if ($sendfee > 0){ |
603 |
if (defined($sendfee) && $sendfee > 0){ |
| 604 |
C4::Accounts::manualinvoice($borrowernumber, "", "", "F", $sendfee, C4::Context->preference('NoticeFeeNote')); |
604 |
C4::Accounts::manualinvoice($borrowernumber, "", "", "F", $sendfee, C4::Context->preference('NoticeFeeNote')); |
| 605 |
} |
605 |
} |
| 606 |
|
606 |
|
| 607 |
- |
|
|