X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Ffs-setup;h=9f8740093cb8f818941d294eaf1158205e40b0b1;hb=56b98dd1587282585a92a93dbac5781da58154f1;hp=621c426c4bfea3b973e656a252fcbf614fd15487;hpb=0057d8bd24476fc9a50c82a94f39b168f46b0a28;p=freeside.git

diff --git a/bin/fs-setup b/bin/fs-setup
index 621c426c4..9f8740093 100755
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-setup,v 1.8 1998-12-15 04:33:27 ivan Exp $
+# $Id: fs-setup,v 1.10 1998-12-16 06:05:38 ivan Exp $
 #
 # ivan@sisd.com 97-nov-8,9
 #
@@ -32,7 +32,13 @@
 # fix radius attributes ivan@sisd.com 98-sep-27
 #
 # $Log: fs-setup,v $
-# Revision 1.8  1998-12-15 04:33:27  ivan
+# Revision 1.10  1998-12-16 06:05:38  ivan
+# add table cust_main_invoice
+#
+# Revision 1.9  1998/12/15 04:36:29  ivan
+# s/croak/die/; #oops
+#
+# Revision 1.8  1998/12/15 04:33:27  ivan
 # dies if it isn't running as the freeside user
 #
 # Revision 1.7  1998/11/18 09:01:31  ivan
@@ -61,7 +67,7 @@ use FS::UID qw(adminsuidsetup datasrc checkeuid);
 use FS::Record;
 use FS::cust_main_county;
 
-croak "Not running uid freeside!" unless checkeuid();
+die "Not running uid freeside!" unless checkeuid();
 
 my $user = shift or die &usage;
 FS::UID::getsecrets $user;
@@ -365,6 +371,17 @@ sub tables_hash_hack {
       'index' => [ ['last'], ],
     },
 
+    'cust_main_invoice' => {
+      'columns' => [
+        'destnum',  'int',  '',     '',
+        'custnum',  'int',  '',     '',
+        'dest',     'varchar', '',  $char_d,
+      ],
+      'primary_key' => 'destnum',
+      'unique' => [ [] ],
+      'index' => [ ['custnum'], ],
+    },
+
     'cust_main_county' => { #county+state+country are checked off the
                             #cust_main_county for validation and to provide
                             # a tax rate.