Author: spadkins
Date: Thu Mar 29 15:11:26 2007
New Revision: 9364
Modified:
p5ee/trunk/App-Repository/lib/App/ValueDomain/Repository.pm
Log:
allow substitutions on the table name
Modified: p5ee/trunk/App-Repository/lib/App/ValueDomain/Repository.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/ValueDomain/Repository.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/ValueDomain/Repository.pm Thu Mar 29
15:11:26 2007
@@ -103,7 +103,7 @@
my $context = $self->{context};
my $rep = $context->repository($repository);
- my $table = $self->{table};
+ my $table = $self->substitute($self->{table});
my $valuecolumn = $self->{valuecolumn};
my $labelcolumn = $self->{labelcolumn};
$labelcolumn = "" if ($labelcolumn eq $valuecolumn);