add primary key

diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm
index be3d548..d6c4f6c 100644 (file)
--- 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
 

diff --git a/bin/fs-setup b/bin/fs-setup
index 8fbc67e..71d53ef 100755 (executable)
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-setup,v 1.46 2001-09-01 21:52:20 jeff Exp $
+# $Id: fs-setup,v 1.47 2001-09-01 22:18:38 ivan Exp $
 
 #to delay loading dbdef until we're ready
 BEGIN { $FS::Record::setup_hack = 1; }
@@ -319,14 +319,15 @@ sub tables_hash_hack {
 
     'cust_credit_bill' => {
       'columns' => [
+        'creditbillnum', 'int', '', '',
         'crednum',  'int', '', '',
         'invnum',  'int', '', '',
         '_date',    @date_type,
         'amount',   @money_type,
       ],
-      'primary_key' => 'crednum',
+      'primary_key' => 'creditbillnum',
       'unique' => [ [] ],
-      'index' => [ ['invnum'] ],
+      'index' => [ ['crednum'], ['invnum'] ],
     },
 
     'cust_main' => {
@@ -420,7 +421,7 @@ sub tables_hash_hack {
       ],
       'primary_key' => 'paynum',
       'unique' => [ [] ],
-      'index' => [ ['invnum'] ],
+      'index' => [ [] ],
     },
 
     'cust_bill_pay' => {