#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.60 2001-10-02 16:00:30 jeff Exp $
+# $Id: fs-setup,v 1.62 2001-10-15 10:42:28 ivan Exp $
#to delay loading dbdef until we're ready
BEGIN { $FS::Record::setup_hack = 1; }
#my(@date_type) = ( 'timestamp', '', '' );
my(@date_type) = ( 'int', 'NULL', '' );
-my(@perl_type) = ( 'varchar', 'NULL', 255 );
+my(@perl_type) = ( 'varchar', 'NULL', '' );
my @money_type = ( 'decimal', '', '10,2' );
###
'susp', @date_type,
'cancel', @date_type,
'expire', @date_type,
+ 'manual_flag', 'char', 'NULL', 1,
],
'primary_key' => 'pkgnum',
'unique' => [ [] ],
'setup', @perl_type,
'freq', 'int', '', '', #billing frequency (months)
'recur', @perl_type,
+ 'plan', 'varchar', 'NULL', '',
+ 'plandata', 'varchar', 'NULL', '',
],
'primary_key' => 'pkgpart',
'unique' => [ [] ],