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);

Reply via email to