[svn:p5ee] r13842 - p5ee/trunk/App-Repository/lib/App

Author: spadkins
Date: Fri Mar 12 07:40:23 2010
New Revision: 13842

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

Log:
added some debug statements (that are currently commented out)

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	Fri Mar 12 07:40:23 2010
@@ -4230,14 +4230,16 @@
     my ($table_def, $columns, $column, $column_def, $idx, $native_column);
 
     $table_def = $self->{table}{$table} || {};
-    # print STDERR "_load_table_metadata($table}: table_def=[$table_def] {", join("|", %$table_def), "}\n";
+    #print STDERR "_load_table_metadata($table): table_def=[$table_def] ", ($table_def ? "{".join("|", %$table_def)."}" : "undef"), "\n";
     if (!$table_def->{column}) {   # no columns are defined
         my $context = $self->{context};
         my $options = $context->{options};
         my $prefix = $options->{prefix};
         my $conf_type = $options->{conf_type} || "pl";
         my $table_file = "$prefix/etc/app/Repository/$self->{name}/$table.$conf_type";
+        #print STDERR "_load_table_metadata($table): checking $table_file\n";
         if (-r $table_file) {
+            #print STDERR "_load_table_metadata($table): checking $table_file : found\n";
             $table_def = do $table_file;
             if ($table_def->{overlay}) {
                 delete $table_def->{overlay};