From 60c10ab363668ec3016306e6069eaade9e04d544 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 1 Sep 2001 22:18:38 +0000
Subject: add primary key

---
 FS/FS/cust_credit_bill.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'FS/FS/cust_credit_bill.pm')

diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm
index be3d548..d6c4f6c 100644
--- a/FS/FS/cust_credit_bill.pm
+++ b/FS/FS/cust_credit_bill.pm
@@ -99,7 +99,8 @@ sub check {
   my $self = shift;
 
   my $error =
-    $self->ut_number('crednum')
+    $self->ut_numbern('creditbillnum')
+    || $self->ut_number('crednum')
     || $self->ut_number('invnum')
     || $self->ut_numbern('_date')
     || $self->ut_money('amount')
@@ -129,7 +130,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: cust_credit_bill.pm,v 1.1 2001-09-01 21:52:19 jeff Exp $
+$Id: cust_credit_bill.pm,v 1.2 2001-09-01 22:18:38 ivan Exp $
 
 =head1 BUGS
 
@@ -137,8 +138,8 @@ The delete method.
 
 =head1 SEE ALSO
 
-L<FS::Record>, L<FS::cust_refund>, L<FS::cust_bill>, schema.html from the base
-documentation.
+L<FS::Record>, L<FS::cust_refund>, L<FS::cust_bill>, L<cust_credit>,
+schema.html from the base documentation.
 
 =cut
 
-- 
cgit v1.1