#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.93 2002-06-08 07:48:37 khoff Exp $
+# $Id: fs-setup,v 1.96.4.7 2003-06-14 02:02:25 ivan Exp $
#to delay loading dbdef until we're ready
BEGIN { $FS::Record::setup_hack = 1; }
my $cust_main = $dbdef->table('cust_main');
unless ($ship) { #remove ship_ from cust_main
$cust_main->delcolumn($_) foreach ( grep /^ship_/, $cust_main->columns );
-} else { #add indices on ship_last and ship_company
- push @{$cust_main->index->lol_ref}, ( ['ship_last'], ['ship_company'] )
+} else { #add indices
+ push @{$cust_main->index->lol_ref},
+ map { [ "ship_$_" ] } qw( last company daytime night fax );
}
#add radius attributes to svc_acct
my $tableobj = $dbdef->table($table)
or die "unknown table $table";
+ die "unique->lol_ref undefined for $table"
+ unless defined $tableobj->unique->lol_ref;
+ die "index->lol_ref undefined for $table"
+ unless defined $tableobj->index->lol_ref;
+
my $h_tableobj = DBIx::DBSchema::Table->new( {
name => "h_$table",
primary_key => 'historynum',
'prog', @perl_type,
],
'primary_key' => 'agentnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['typenum'] ],
},
'atype', 'varchar', '', $char_d,
],
'primary_key' => 'typenum',
- 'unique' => [ [] ],
- 'index' => [ [] ],
+ 'unique' => [],
+ 'index' => [],
},
'type_pkgs' => {
'closed', 'char', 'NULL', 1,
],
'primary_key' => 'invnum',
- 'unique' => [ [] ],
- 'index' => [ ['custnum'] ],
+ 'unique' => [],
+ 'index' => [ ['custnum'], ['_date'] ],
},
'cust_bill_event' => {
'disabled', 'char', 'NULL', 1,
],
'primary_key' => 'eventpart',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['payby'] ],
},
'closed', 'char', 'NULL', 1,
],
'primary_key' => 'crednum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['custnum'] ],
},
'amount', @money_type,
],
'primary_key' => 'creditbillnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['crednum'], ['invnum'] ],
},
'comments', 'text', 'NULL', '',
],
'primary_key' => 'custnum',
- 'unique' => [ [] ],
+ 'unique' => [],
#'index' => [ ['last'], ['company'] ],
- 'index' => [ ['last'], [ 'company' ], [ 'referral_custnum' ] ],
+ 'index' => [ ['last'], [ 'company' ], [ 'referral_custnum' ],
+ [ 'daytime' ], [ 'night' ], [ 'fax' ],
+ ],
},
'cust_main_invoice' => {
'dest', 'varchar', '', $char_d,
],
'primary_key' => 'destnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['custnum'], ],
},
'tax', 'real', '', '', #tax %
],
'primary_key' => 'taxnum',
- 'unique' => [ [] ],
+ 'unique' => [],
# 'unique' => [ ['taxnum'], ['state', 'county'] ],
- 'index' => [ [] ],
+ 'index' => [],
},
'cust_pay' => {
'_date', @date_type,
'payby', 'char', '', 4, # CARD/BILL/COMP, should be index into
# payment type table.
- 'payinfo', 'varchar', 'NULL', 16, #see cust_main above
+ 'payinfo', 'varchar', 'NULL', $char_d, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d, #for auditing purposes.
'closed', 'char', 'NULL', 1,
],
'primary_key' => 'paynum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ [ 'custnum' ], [ 'paybatch' ] ],
},
'_date', @date_type
],
'primary_key' => 'billpaynum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ [ 'paynum' ], [ 'invnum' ] ],
},
'amount', @money_type,
],
'primary_key' => 'paybatchnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['invnum'], ['custnum'] ],
},
'manual_flag', 'char', 'NULL', 1,
],
'primary_key' => 'pkgnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['custnum'] ],
},
'reason', 'varchar', '', $char_d,
'payby', 'char', '', 4, # CARD/BILL/COMP, should be index
# into payment type table.
- 'payinfo', 'varchar', 'NULL', 16, #see cust_main above
+ 'payinfo', 'varchar', 'NULL', $char_d, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d,
'closed', 'char', 'NULL', 1,
],
'primary_key' => 'refundnum',
- 'unique' => [ [] ],
- 'index' => [ [] ],
+ 'unique' => [],
+ 'index' => [],
},
'cust_credit_refund' => {
'_date', @date_type
],
'primary_key' => 'creditrefundnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ [ 'crednum', 'refundnum' ] ],
},
'svcpart', 'int', '', '',
],
'primary_key' => 'svcnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['svcnum'], ['pkgnum'], ['svcpart'] ],
},
'plandata', 'text', 'NULL', '',
'disabled', 'char', 'NULL', 1,
'taxclass', 'varchar', 'NULL', $char_d,
- 'def_svcpart','int', '', '',
],
'primary_key' => 'pkgpart',
- 'unique' => [ [] ],
- 'index' => [ [] ],
+ 'unique' => [],
+ 'index' => [ [ 'disabled' ] ],
},
# 'part_title' => {
'referral', 'varchar', '', $char_d,
],
'primary_key' => 'refnum',
- 'unique' => [ [] ],
- 'index' => [ [] ],
+ 'unique' => [],
+ 'index' => [],
},
'part_svc' => {
'disabled', 'char', 'NULL', 1,
],
'primary_key' => 'svcpart',
- 'unique' => [ [] ],
- 'index' => [ [] ],
+ 'unique' => [],
+ 'index' => [ [ 'disabled' ] ],
},
'part_svc_column' => {
'loc', 'char', 'NULL', 4, #NULL for legacy purposes
],
'primary_key' => 'popnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ [ 'state' ] ],
},
'nxx', 'char', '', 3,
],
'primary_key' => 'localnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ [ 'npa', 'nxx' ], [ 'popnum' ] ],
},
'domsvc', 'int', '', '',
],
'primary_key' => 'svcnum',
- 'unique' => [ [ 'username', 'domsvc' ] ],
+ #'unique' => [ [ 'username', 'domsvc' ] ],
+ 'unique' => [],
'index' => [ ['username'], ['domsvc'] ],
},
],
'primary_key' => 'svcnum',
'unique' => [ ['domain'] ],
- 'index' => [ [] ],
+ 'index' => [],
},
'domain_record' => {
'columns' => [
'recnum', 'int', '', '',
'svcnum', 'int', '', '',
- 'reczone', 'varchar', '', $char_d,
+ #'reczone', 'varchar', '', $char_d,
+ 'reczone', 'varchar', '', 255,
'recaf', 'char', '', 2,
'rectype', 'char', '', 5,
- 'recdata', 'varchar', '', $char_d,
+ #'recdata', 'varchar', '', $char_d,
+ 'recdata', 'varchar', '', 255,
],
'primary_key' => 'recnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['svcnum'] ],
},
'dst', 'varchar', 'NULL', $char_d,
],
'primary_key' => 'svcnum',
- 'unique' => [ [] ],
+ 'unique' => [],
'index' => [ ['srcsvc'], ['dstsvc'] ],
},
'usersvc', 'int', '', '',
],
'primary_key' => 'svcnum',
- 'unique' => [ [] ],
- 'index' => [ [] ],
+ 'unique' => [],
+ 'index' => [],
},
#'svc_wo' => {
],
'primary_key' => 'prepaynum',
'unique' => [ ['identifier'] ],
- 'index' => [ [] ],
+ 'index' => [],
},
'port' => {