Lines 679-685
sub parse_letter {
Link Here
|
679 |
} |
679 |
} |
680 |
|
680 |
|
681 |
my $currency_format; |
681 |
my $currency_format; |
682 |
if ($params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/o) { # process any fine tags... |
682 |
if ( defined $params->{'letter'}->{'content'} |
|
|
683 |
and $params->{'letter'}->{'content'} =~ m/<fine>(.*)<\/fine>/o ) |
684 |
{ # process any fine tags... |
683 |
$currency_format = $1; |
685 |
$currency_format = $1; |
684 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/<<items.fine>>/o; |
686 |
$params->{'letter'}->{'content'} =~ s/<fine>.*<\/fine>/<<items.fine>>/o; |
685 |
} |
687 |
} |
Lines 689-695
sub parse_letter {
Link Here
|
689 |
my $item_format = ''; |
691 |
my $item_format = ''; |
690 |
foreach my $item (@$i) { |
692 |
foreach my $item (@$i) { |
691 |
my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'}); |
693 |
my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'}); |
692 |
if (!$item_format) { |
694 |
if ( !$item_format and defined $params->{'letter'}->{'content'} ) { |
693 |
$params->{'letter'}->{'content'} =~ m/(<item>.*<\/item>)/; |
695 |
$params->{'letter'}->{'content'} =~ m/(<item>.*<\/item>)/; |
694 |
$item_format = $1; |
696 |
$item_format = $1; |
695 |
} |
697 |
} |
696 |
- |
|
|