X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Fboraccount.pl;h=518aa3c01da2243091a72d7f6ca55fd76213841f;hb=c8e99f313fe19dea6b11ed5fc05231e86283edf7;hp=314f558a1ed2491acfd3b62ad721dc0b30f0db1b;hpb=7b295e9dd7a1f2a9b1d1cf1882edbc2a0e70fe3a;p=koha.git

diff --git a/members/boraccount.pl b/members/boraccount.pl
index 314f558a1e..518aa3c01d 100755
--- a/members/boraccount.pl
+++ b/members/boraccount.pl
@@ -84,7 +84,7 @@ foreach my $accountline ( @{$accts}) {
     $accountline->{date} = format_date($accountline->{date});
     $accountline->{amount} = sprintf '%.2f', $accountline->{amount};
     $accountline->{amountoutstanding} = sprintf '%.2f', $accountline->{amountoutstanding};
-    if ($accountline->{accounttype} eq 'Pay') {
+    if ($accountline->{accounttype} =~ /^Pay/) {
         $accountline->{payment} = 1;
         $reverse_col = 1;
     }