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

(-)a/C4/Overdues.pm (-2 / +3 lines)
Lines 599-605 sub UpdateFine { Link Here
599
    } else {
599
    } else {
600
        if ( $amount ) { # Don't add new fines with an amount of 0
600
        if ( $amount ) { # Don't add new fines with an amount of 0
601
            my $patron = Koha::Patrons->find( $borrowernumber );
601
            my $patron = Koha::Patrons->find( $borrowernumber );
602
            my $desc = C4::Letters::GetPreparedLetter(
602
            my $letter = eval { C4::Letters::GetPreparedLetter(
603
                module                 => 'circulation',
603
                module                 => 'circulation',
604
                letter_code            => 'OVERDUE_FINE_DESC',
604
                letter_code            => 'OVERDUE_FINE_DESC',
605
                message_transport_type => 'print',
605
                message_transport_type => 'print',
Lines 609-615 sub UpdateFine { Link Here
609
                    borrowers => $borrowernumber,
609
                    borrowers => $borrowernumber,
610
                    items     => $itemnum,
610
                    items     => $itemnum,
611
                },
611
                },
612
            )->{content};
612
            ) };
613
            my $desc = $letter ? $letter->{content} : "Item $itemnum - due $due";
613
614
614
            my $account = Koha::Account->new({ patron_id => $borrowernumber });
615
            my $account = Koha::Account->new({ patron_id => $borrowernumber });
615
            $accountline = $account->add_debit(
616
            $accountline = $account->add_debit(
(-)a/tools/letter.pl (-5 / +1 lines)
Lines 56-65 use Koha::Patron::Attribute::Types; Link Here
56
sub protected_letters {
56
sub protected_letters {
57
    my $dbh = C4::Context->dbh;
57
    my $dbh = C4::Context->dbh;
58
    my $codes = $dbh->selectall_arrayref(q{SELECT DISTINCT letter_code FROM message_transports});
58
    my $codes = $dbh->selectall_arrayref(q{SELECT DISTINCT letter_code FROM message_transports});
59
    return {
59
    return { map { $_->[0] => 1 } @{$codes} };
60
        OVERDUE_FINE_DESC => 1,
61
        map { $_->[0] => 1 } @{$codes}
62
    };
63
}
60
}
64
61
65
our $input       = CGI->new;
62
our $input       = CGI->new;
66
- 

Return to bug 24865