cvsuser 02/11/01 12:21:15 Modified: App-Repository/lib/App/Repository DBI.pm Log: correct a bug referencing the configuration Revision Changes Path 1.2 +8 -4 p5ee/App-Repository/lib/App/Repository/DBI.pm Index: DBI.pm =================================================================== RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/DBI.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -w -r1.1 -r1.2 --- DBI.pm 12 Oct 2002 03:03:48 -0000 1.1 +++ DBI.pm 1 Nov 2002 20:21:14 -0000 1.2 @@ -1,13 +1,13 @@ ###################################################################### -## File: $Id: DBI.pm,v 1.1 2002/10/12 03:03:48 spadkins Exp $ +## File: $Id: DBI.pm,v 1.2 2002/11/01 20:21:14 spadkins Exp $ ###################################################################### use App; use App::Repository; package App::Repository::DBI; -$VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r}; +$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r}; @ISA = ( "App::Repository" ); @@ -97,7 +97,7 @@ # BASIC # $self->{name} # name of this repository (often "db") -# $self->{config} # hash of config file data +# $self->{conf} # hash of config file data # CURRENT STATE # $self->{error} # most recent error generated from this module @@ -165,7 +165,7 @@ sub connect { my $self = shift; - my $config = $self->{config}; + my $config = $self->{conf}; if (!defined $self->{dbh}) { @@ -2130,6 +2130,10 @@ $data_types = $sth->{TYPE}; # array of fieldtypes $columns = $table_def->{columns}; + if (! defined $columns) { + $columns = []; + $table_def->{columns} = $columns; + } # if we got a list of columns for the table from the database if (defined $phys_columns && ref($phys_columns) eq "ARRAY") {