This checks that the enrolmentfee for a category both exists, and is greater
than 0, avoiding a spurious charge.
---
C4/Members.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/C4/Members.pm b/C4/Members.pm
index d1546d9..70a85c3 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -771,7 +771,7 @@ sub AddMember {
$sth = $dbh->prepare("SELECT enrolmentfee FROM categories WHERE
categorycode=?");
$sth->execute($data{'categorycode'});
my ($enrolmentfee) = $sth->fetchrow;
- if ($enrolmentfee) {
+ if ($enrolmentfee && $enrolmentfee > 0) {
# insert fee in patron debts
manualinvoice($data{'borrowernumber'}, '', '', 'A', $enrolmentfee);
}
--
1.5.5.GIT
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
