#!/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; }
#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 );