Author: spadkins
Date: Fri Apr 4 07:29:09 2008
New Revision: 11053
Modified:
p5ee/trunk/App-Repository/lib/App/ValueDomain/RepositoryTableColumns.pm
Log:
support get_table_def() instead of using the rep->{table}{<table>} shortcut
Modified:
p5ee/trunk/App-Repository/lib/App/ValueDomain/RepositoryTableColumns.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/ValueDomain/RepositoryTableColumns.pm
(original)
+++ p5ee/trunk/App-Repository/lib/App/ValueDomain/RepositoryTableColumns.pm
Fri Apr 4 07:29:09 2008
@@ -75,9 +75,10 @@
my $context = $self->{context};
my $rep = $context->repository($self->{repository});
my $table = $self->{table} || die "No table specified in $self->{name}
ValueDomain";
+ my $table_def = $rep->get_table_def($table);
my $values = $rep->get_column_names($table);
my $labels = $rep->get_column_labels($table, $self->{labelcolumn});
- my $column_defs = $rep->{table}{$table}{column};
+ my $column_defs = $table_def->{column};
$values = [ @$values ]; # make a copy
$labels = { %$labels }; # make a copy
if ($self->{sortcolumn}) {
