Attachment #133403 for bug #24865

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

Lines 599-605 sub UpdateFine { Link Here

(-)a/C4/Overdues.pm (-2 / +3 lines)
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(

Lines 56-65 use Koha::Patron::Attribute::Types; Link Here

(-)a/tools/letter.pl (-5 / +1 lines)
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