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") {
