X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_credit_bill.pm;h=58cc78965779ae206fe48912c110790eb4dd1b13;hp=0892f7984c68698015b6928262f164f472b1c6f4;hb=dbfb0ae501d5acba37f9348476d94b99a4c92450;hpb=4f8a0bb6d0c789c7e156a446dc61dbe27938a372

diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm
index 0892f7984..58cc78965 100644
--- a/FS/FS/cust_credit_bill.pm
+++ b/FS/FS/cust_credit_bill.pm
@@ -107,6 +107,8 @@ sub check {
   ;
   return $error if $error;
 
+  return "amount must be > 0" if $self->amount == 0;
+
   return "Unknown credit"
     unless my $cust_credit = 
       qsearchs( 'cust_credit', { 'crednum' => $self->crednum } );
@@ -141,7 +143,7 @@ sub cust_credit {
 
 =head1 VERSION
 
-$Id: cust_credit_bill.pm,v 1.3 2001-09-02 01:27:11 ivan Exp $
+$Id: cust_credit_bill.pm,v 1.4 2001-09-02 07:49:52 ivan Exp $
 
 =head1 BUGS