|
Lines 41-46
use C4::Debug;
Link Here
|
| 41 |
use C4::Letters; |
41 |
use C4::Letters; |
| 42 |
use C4::Overdues qw(GetFine); |
42 |
use C4::Overdues qw(GetFine); |
| 43 |
|
43 |
|
|
|
44 |
use Smart::Comments '####'; |
| 45 |
|
| 46 |
|
| 47 |
|
| 44 |
=head1 NAME |
48 |
=head1 NAME |
| 45 |
|
49 |
|
| 46 |
overdue_notices.pl - prepare messages to be sent to patrons for overdue items |
50 |
overdue_notices.pl - prepare messages to be sent to patrons for overdue items |
|
Lines 677-683
sub parse_letter {
Link Here
|
| 677 |
} |
681 |
} |
| 678 |
|
682 |
|
| 679 |
my $currency_format; |
683 |
my $currency_format; |
| 680 |
if ($params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/o) { # process any fine tags... |
684 |
if ( defined $params->{'letter'}->{'content'} |
|
|
685 |
and $params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/o ) |
| 686 |
{ # process any fine tags... |
| 681 |
$currency_format = $1; |
687 |
$currency_format = $1; |
| 682 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/<<items.fine>>/o; |
688 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/<<items.fine>>/o; |
| 683 |
} |
689 |
} |
|
Lines 687-693
sub parse_letter {
Link Here
|
| 687 |
my $item_format = ''; |
693 |
my $item_format = ''; |
| 688 |
foreach my $item (@$i) { |
694 |
foreach my $item (@$i) { |
| 689 |
my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'}); |
695 |
my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'}); |
| 690 |
if (!$item_format) { |
696 |
if ( !$item_format and defined $params->{'letter'}->{'content'} ) { |
| 691 |
$params->{'letter'}->{'content'} =~ m/(<item>.*<\/item>)/; |
697 |
$params->{'letter'}->{'content'} =~ m/(<item>.*<\/item>)/; |
| 692 |
$item_format = $1; |
698 |
$item_format = $1; |
| 693 |
} |
699 |
} |
| 694 |
- |
|
|