View | Details | Raw Unified | Return to bug 8299
Collapse All | Expand All

(-)a/misc/cronjobs/overdue_notices.pl (-3 / +8 lines)
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
- 

Return to bug 8299