Author: spadkins
Date: Fri May 12 13:57:23 2006
New Revision: 6292
Modified:
p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
Log:
return [] default columns if not found otherwise (i.e. pointing to wrong DB?)
Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm Fri May 12 13:57:23 2006
@@ -496,7 +496,8 @@
elsif (!$columns || $columns eq "physical") {
$columns = $table_def->{phys_columns};
}
- die "Unknown default columns [$columns]" if (ref($columns) ne "ARRAY");
+ $columns = [] if (!$columns || ref($columns) ne "ARRAY");
+ #die "Unknown default columns [$columns]" if (ref($columns) ne "ARRAY");
&App::sub_exit($columns) if ($App::trace);
return($columns);
}
@@ -2582,6 +2583,9 @@
}
}
}
+ #else {
+ # die $@;
+ #}
######################################################################
# primary key
