cvs commit: p5ee/App-Repository/lib/App/Repository DBI.pm

cvsuser     05/11/15 08:45:46

  Modified:    App-Repository/lib/App/Repository DBI.pm
  Log:
  load_table_metadata() needed from _get_default_columns()
  
  Revision  Changes    Path
  1.31      +4 -3      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.30
  retrieving revision 1.31
  diff -u -r1.30 -r1.31
  --- DBI.pm	21 Oct 2005 15:32:15 -0000	1.30
  +++ DBI.pm	15 Nov 2005 16:45:46 -0000	1.31
  @@ -458,12 +458,13 @@
   sub _get_default_columns {
       &App::sub_entry if ($App::trace);
       my ($self, $table) = @_;
  +    $self->_load_table_metadata($table) if (!defined $self->{table}{$table}{loaded});
       my $table_def = $self->{table}{$table};
       my $columns = $table_def->{default_columns} || $table_def->{columns};
       if ($columns eq "configured") {
           $columns = $table_def->{columns};
       }
  -    elsif ($columns eq "physical") {
  +    elsif (!$columns || $columns eq "physical") {
           $columns = $table_def->{phys_columns};
       }
       die "Unknown default columns [$columns]" if (ref($columns) ne "ARRAY");