#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.69 2002-01-03 17:40:26 ivan Exp $
+# $Id: fs-setup,v 1.81 2002-02-22 07:50:19 ivan Exp $
#to delay loading dbdef until we're ready
BEGIN { $FS::Record::setup_hack = 1; }
use FS::Record;
use FS::cust_main_county;
use FS::raddb;
+use FS::part_bill_event;
die "Not running uid freeside!" unless checkeuid();
die $error if $error;
}
+#billing events
+foreach my $aref (
+ [ 'COMP', 'Comp invoice', '$cust_bill->comp();', 30, 'comp' ],
+ [ 'CARD', 'Batch card', '$cust_bill->batch_card();', 40, 'batch-card' ],
+ [ 'BILL', 'Send invoice', '$cust_bill->send();', 50, 'send' ],
+) {
+
+ my $part_bill_event = new FS::part_bill_event({
+ 'payby' => $aref->[0],
+ 'event' => $aref->[1],
+ 'eventcode' => $aref->[2],
+ 'seconds' => 0,
+ 'weight' => $aref->[3],
+ 'plan' => $aref->[4],
+ });
+ my($error);
+ $error=$part_bill_event->insert;
+ die $error if $error;
+
+}
+
+
$dbh->disconnect or die $dbh->errstr;
print "Freeside database initialized sucessfully\n";
'_date', @date_type,
'charged', @money_type,
'printed', 'int', '', '',
+ 'closed', 'char', 'NULL', 1,
],
'primary_key' => 'invnum',
'unique' => [ [] ],
'part_bill_event' => {
'columns' => [
'eventpart', 'int', '', '',
- 'payby', 'int', '', '',
+ 'payby', 'char', '', 4,
'event', 'varchar', '', $char_d,
'eventcode', @perl_type,
'seconds', 'int', 'NULL', '',
+ 'weight', 'int', '', '',
+ 'plan', 'varchar', 'NULL', $char_d,
+ 'plandata', 'text', 'NULL', '',
'disabled', 'char', 'NULL', 1,
],
'primary_key' => 'eventpart',
'amount', @money_type,
'otaker', 'varchar', '', 8,
'reason', 'text', 'NULL', '',
+ 'closed', 'char', 'NULL', 1,
],
'primary_key' => 'crednum',
'unique' => [ [] ],
# payment type table.
'payinfo', 'varchar', 'NULL', 16, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d, #for auditing purposes.
+ 'closed', 'char', 'NULL', 1,
],
'primary_key' => 'paynum',
'unique' => [ [] ],
- 'index' => [ [] ],
+ 'index' => [ [ 'custnum' ], [ 'paybatch' ] ],
},
'cust_bill_pay' => {
],
'primary_key' => 'billpaynum',
'unique' => [ [] ],
- 'index' => [ [ 'paynum', 'invnum' ] ],
+ 'index' => [ [ 'paynum' ], [ 'invnum' ] ],
},
'cust_pay_batch' => { #what's this used for again? list of customers
# into payment type table.
'payinfo', 'varchar', 'NULL', 16, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d,
+ 'closed', 'char', 'NULL', 1,
],
'primary_key' => 'refundnum',
'unique' => [ [] ],
'job', 'text', '', '',
'_date', 'int', '', '',
'status', 'varchar', '', $char_d,
+ 'statustext', 'text', 'NULL', '',
+ 'svcnum', 'int', 'NULL', '',
],
'primary_key' => 'jobnum',
'unique' => [],
- 'index' => [],
+ 'index' => [ [ 'svcnum' ], [ 'status' ] ],
},
'queue_arg' => {
'unique' => [],
'index' => [ [ 'jobnum' ] ],
},
+
+ 'part_export' => {
+ 'columns' => [
+ 'exportnum', 'int', '', '',
+ 'svcpart', 'int', '', '',
+ 'machine', 'varchar', '', $char_d,
+ 'exporttype', 'varchar', '', $char_d,
+ 'nodomain', 'char', 'NULL', 1,
+ ],
+ 'primary_key' => 'exportnum',
+ 'unique' => [],
+ 'index' => [ [ 'machine' ], [ 'exporttype' ] ],
+ },
+
+ 'part_export_option' => {
+ 'columns' => [
+ 'optionnum', 'int', '', '',
+ 'exportnum', 'int', '', '',
+ 'optionname', 'varchar', '', $char_d,
+ 'optionvalue', 'text', 'NULL', '',
+ ],
+ 'primary_key' => 'optionnum',
+ 'unique' => [],
+ 'index' => [ [ 'exportnum' ], [ 'optionname' ] ],
+ },
+
);
%tables;