From: Jesse Weaver <jesse.weaver@liblime.com>
Date: Fri, 25 Jul 2008 16:51:34 +0000 (-0500)
Subject: kohabug 2379 When a borrower is added manually in Koha...
X-Git-Tag: v3.00.00~128
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=406dbcd39a10d9fd4989eb7ae66a78cdbfc5a670;p=srvgit

kohabug 2379 When a borrower is added manually in Koha...

This checks that the enrolmentfee for a category both exists, and is greater than 0, avoiding a spurious charge.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---

diff --git a/C4/Members.pm b/C4/Members.pm
index d1546d9a46..70a85c3543 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);
     }