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

Author: spadkins
Date: Sat Oct  2 13:59:12 2010
New Revision: 14458

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

Log:
fix some autoformatting problems

Modified: p5ee/trunk/App-Repository/lib/App/RepositoryShell.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/RepositoryShell.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/RepositoryShell.pm	Sat Oct  2 13:59:12 2010
@@ -588,9 +588,9 @@
         my $table     = lc($1);
         my $context   = $self->{context};
         my $db        = $context->repository($self->{repository});
-print "REPOSITORY: name=[$db->{name}] dbh=[$db->{dbh}] rep=[$db]\n";
+#print "REPOSITORY: name=[$db->{name}] dbh=[$db->{dbh}] rep=[$db]\n";
         my $table_def = $db->get_table_def($table);
-print "TABLEDEF[$table]: ", join("|", %$table_def), "\n";
+#print "TABLEDEF[$table]: ", join("|", %$table_def), "\n";
         my $column_defs = $table_def->{column};
         my ($column_def);
         foreach my $column (keys %$column_defs) {
@@ -792,12 +792,10 @@
                         $f->{type} = 0;
                     }
                     $f->{max_length} = $len if ($len > $f->{max_length});
-print "elem=[$elem] type=[$f->{type}]\n";
                 }
             }
         }
         $self->determine_sprintf_fmt($f);
-print "[$c] type=[$f->{type}] max_length=[$f->{max_length}] min=[$f->{min}] max=[$f->{max}] fmt=[$f->{fmt}] title_fmt=[$f->{title_fmt}]\n";
     }
     if (!$options->{silent} || $options->{silent} <= 1) {
         for ($c = 0; $c <= $#$columns; $c++) {

• [svn:p5ee] r14458 - p5ee/trunk/App-Repository/lib/App by spadkins