From:	spadkins@cvs.perl.org	Date:	Wed May 21 12:30:14 2008
Subject:	[svn:p5ee] r11300 - in p5ee/trunk/App-Repository: . lib/App

Author: spadkins
Date: Wed May 21 11:30:13 2008
New Revision: 11300

Modified:
   p5ee/trunk/App-Repository/CHANGES
   p5ee/trunk/App-Repository/lib/App/Repository.pm

Log:
supply default columns on get() if none supplied

Modified: p5ee/trunk/App-Repository/CHANGES
==============================================================================
--- p5ee/trunk/App-Repository/CHANGES	(original)
+++ p5ee/trunk/App-Repository/CHANGES	Wed May 21 11:30:13 2008
@@ -3,7 +3,10 @@
 #########################################
 
 0.967
- x App::Repository::_mk_*(): consult the "table" config value for table to see the physical table (good for schema-qualified table names)
+ x App::Repository::get_index()/get_unique_index(): now work for arrays as well as hashrefs
+ x App::Repository::_load_table_metadata(): can load single-table metadata from external *.pl file
+ x App::Repository::summarize_rows(): support custom summarization columns
+ x App::Repository::_mk_*(): consult the "phys_table" config value for table to see the physical table (good for schema-qualified table names)
 
 0.966
  x App::Repository::mk_select_joined_sql(): enable param substitutions in dbexpr's

Modified: p5ee/trunk/App-Repository/lib/App/Repository.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/Repository.pm	Wed May 21 11:30:13 2008
@@ -506,6 +506,7 @@
     my ($self, $table, $params, $cols, $options) = @_;
     die "get(): params undefined" if (!defined $params);
     my ($row, $wantarray);
+    $cols = $self->_get_default_columns($table) if (!$cols);
     if (ref($cols) eq "ARRAY") {
         $wantarray = 1;
     }