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++) {
