diff options
| author | ivan <ivan> | 2001-09-04 11:14:13 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-04 11:14:13 +0000 |
| commit | 7258cc4a7bf97ab2a0bca9dd2242e328e1a017ee (patch) | |
| tree | 68045ec4c465958a0b78c242c536b6e3b4afac2e /bin/fs-setup | |
| parent | 2bad1d2cc99f713d10f447d018742eb03453d422 (diff) | |
tyops
Diffstat (limited to 'bin/fs-setup')
| -rwxr-xr-x | bin/fs-setup | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/bin/fs-setup b/bin/fs-setup index 0c2b67dda..3d56d9f1f 100755 --- a/bin/fs-setup +++ b/bin/fs-setup @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: fs-setup,v 1.50 2001-09-04 11:03:22 ivan Exp $ +# $Id: fs-setup,v 1.51 2001-09-04 11:14:13 ivan Exp $ #to delay loading dbdef until we're ready BEGIN { $FS::Record::setup_hack = 1; } @@ -79,6 +79,8 @@ my(%tables)=&tables_hash_hack; #turn it into objects my($dbdef) = new DBIx::DBSchema ( map { my(@columns); + warn $_; + warn $tables{$_}{'columns'}; while (@{$tables{$_}{'columns'}}) { my($name,$type,$null,$length)=splice @{$tables{$_}{'columns'}}, 0, 4; push @columns, new DBIx::DBSchema::Column ( $name,$type,$null,$length ); @@ -426,7 +428,7 @@ sub tables_hash_hack { }, 'cust_bill_pay' => { - 'column' => [ + 'columns' => [ 'billpaynum', 'int', '', '', 'invnum', 'int', '', '', 'paynum', 'int', '', '', @@ -500,7 +502,7 @@ sub tables_hash_hack { }, 'cust_credit_refund' => { - 'column' => [ + 'columns' => [ 'creditrefundnum', 'int', '', '', 'crednum', 'int', '', '', 'refundnum', 'int', '', '', |