diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 8cd91007d8..ce5671d09a 100644
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -720,7 +720,7 @@ sub makepartialpayment {
. ' VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?, ?)';
$dbh->do( $insert, undef, $borrowernumber, $nextaccntno, $amount,
- "Payment, thanks - $user", 'Pay', $data->{'itemnumber'}, $manager_id, $payment_note);
+ '', 'Pay', $data->{'itemnumber'}, $manager_id, $payment_note);
UpdateStats({
branch => $user,
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/printfeercpt.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/printfeercpt.tt
index 64bbf354df..13a02e8398 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/printfeercpt.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/printfeercpt.tt
@@ -43,7 +43,22 @@
[% FOREACH account IN accounts %]
| [% account.date %] |
- [% account.description %] |
+
+ [% SWITCH account.accounttype %]
+ [% CASE 'Pay' %]Payment, thanks
+ [% CASE 'Pay00' %]Payment, thanks (cash via SIP2)
+ [% CASE 'Pay01' %]Payment, thanks (VISA via SIP2)
+ [% CASE 'Pay02' %]Payment, thanks (credit card via SIP2)
+ [% CASE 'N' %]New Card
+ [% CASE 'F' %]Fine
+ [% CASE 'A' %]Account management fee
+ [% CASE 'M' %]Sundry
+ [% CASE 'L' %]Lost Item
+ [% CASE 'W' %]Writeoff
+ [% CASE %][% account.accounttype %]
+ [%- END -%]
+ [%- IF account.description %], [% account.description %][% END %]
+ |
[% IF ( account.amountcredit ) %][% ELSE %] | [% END %][% account.amount %] |
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/printinvoice.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/printinvoice.tt
index 29e64da276..d5899d142f 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/printinvoice.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/printinvoice.tt
@@ -44,7 +44,22 @@
[% FOREACH account IN accounts %]
| [% account.date %] |
- [% account.description %] |
+
+ [% SWITCH account.accounttype %]
+ [% CASE 'Pay' %]Payment, thanks
+ [% CASE 'Pay00' %]Payment, thanks (cash via SIP2)
+ [% CASE 'Pay01' %]Payment, thanks (VISA via SIP2)
+ [% CASE 'Pay02' %]Payment, thanks (credit card via SIP2)
+ [% CASE 'N' %]New Card
+ [% CASE 'F' %]Fine
+ [% CASE 'A' %]Account management fee
+ [% CASE 'M' %]Sundry
+ [% CASE 'L' %]Lost Item
+ [% CASE 'W' %]Writeoff
+ [% CASE %][% account.accounttype %]
+ [%- END -%]
+ [%- IF account.description %], [% account.description %][% END %]
+ |
[% IF ( account.amountcredit ) %][% ELSE %] | [% END %][% account.amount %] |
[% IF ( account.amountoutstandingcredit ) %][% ELSE %] | [% END %][% account.amountoutstanding %] |
diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl
index cf1426443d..7f1e251d4a 100755
--- a/members/printfeercpt.pl
+++ b/members/printfeercpt.pl
@@ -99,8 +99,7 @@ for (my $i=0;$i<$numaccts;$i++){
'amount' => sprintf("%.2f",$accts->[$i]{'amount'}),
'amountoutstanding' => sprintf("%.2f",$accts->[$i]{'amountoutstanding'}),
'accountno' => $accts->[$i]{'accountno'},
- 'payment' => ( $accts->[$i]{'accounttype'} =~ /^Pay/ ),
-
+ accounttype => $accts->[$i]{accounttype},
);
if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
diff --git a/members/printinvoice.pl b/members/printinvoice.pl
index 58eb7b20b8..ef01d547eb 100755
--- a/members/printinvoice.pl
+++ b/members/printinvoice.pl
@@ -99,7 +99,7 @@ for ( my $i = 0 ; $i < $numaccts ; $i++ ) {
'amount' => sprintf( "%.2f", $accts->[$i]{'amount'} ),
'amountoutstanding' => sprintf( "%.2f", $accts->[$i]{'amountoutstanding'} ),
'accountno' => $accts->[$i]{'accountno'},
- 'payment' => ( $accts->[$i]{'accounttype'} =~ /^Pay/ ),
+ accounttype => $accts->[$i]{accounttype},
);
if ( $accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU' ) {