From: ivan Date: Tue, 4 Sep 2001 11:15:58 +0000 (+0000) Subject: rar X-Git-Tag: freeside_1_4_0pre11~370 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=feafaf45ee709ef15b6cf7892abf89e4878c627b rar --- diff --git a/bin/fs-setup b/bin/fs-setup index 1c720e698..5dc666a1e 100755 --- a/bin/fs-setup +++ b/bin/fs-setup @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: fs-setup,v 1.52 2001-09-04 11:15:15 ivan Exp $ +# $Id: fs-setup,v 1.53 2001-09-04 11:15:58 ivan Exp $ #to delay loading dbdef until we're ready BEGIN { $FS::Record::setup_hack = 1; } @@ -79,7 +79,6 @@ my(%tables)=&tables_hash_hack; #turn it into objects my($dbdef) = new DBIx::DBSchema ( map { my(@columns); - 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 );