X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Ffs-setup;h=37ecf1b87f774ee55686d14c9b5522975fc20db8;hb=f363d77173f26ec00eb72ecd9a54374831e04dd0;hp=535408891e93d0ba6f3889637579c3ab2ad62e65;hpb=a7c1b602f88c177db34477ed4cdc1f72603f8995;p=freeside.git

diff --git a/bin/fs-setup b/bin/fs-setup
index 535408891..37ecf1b87 100755
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-setup,v 1.87 2002-04-11 22:05:31 ivan Exp $
+# $Id: fs-setup,v 1.89 2002-04-20 06:33:03 ivan Exp $
 
 #to delay loading dbdef until we're ready
 BEGIN { $FS::Record::setup_hack = 1; }
@@ -162,7 +162,9 @@ foreach $attribute (@check_attributes) {
 
 #create history tables (false laziness w/create-history-tables)
 foreach my $table ( grep { ! /^h_/ } $dbdef->tables ) {
-  my $tableobj = $dbdef->table($table);
+  my $tableobj = $dbdef->table($table)
+    or die "unknown table $table";
+
   my $h_tableobj = DBIx::DBSchema::Table->new( {
     name        => "h_$table",
     primary_key => 'historynum',
@@ -382,7 +384,8 @@ sub tables_hash_hack {
         'statustext', 'text', 'NULL', '',
       ],
       'primary_key' => 'eventnum',
-      'unique' => [ [ 'eventpart', 'invnum' ] ],
+      #no... there are retries now #'unique' => [ [ 'eventpart', 'invnum' ] ],
+      'unique' => [],
       'index' => [ ['invnum'], ['status'] ],
     },
 
@@ -932,7 +935,7 @@ sub tables_hash_hack {
         'exportsvcnum' => 'int', '', '',
         'exportnum'    => 'int', '', '',
         'svcpart'      => 'int', '', '',
-      ]
+      ],
       'primary_key' => 'exportsvcnum',
       'unique'      => [ [ 'exportnum', 'svcpart' ] ],
       'index'       => [ [ 'exportnum' ], [ 'svcpart' ] ],