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

[spadkins]

Author: spadkins
Date: Fri May 29 12:20:34 2009
New Revision: 12794

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

Log:
_mk_where_clause substitute on dbexpr

Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm Fri May 29 12:20:34 2009
@@ -820,6 +820,11 @@
         next if (!defined $column_def);  # skip if the column is unknown
 
         my $dbexpr = $column_def->{dbexpr};
+
+        if ($dbexpr =~ /{/) { #SEB
+            $dbexpr = $self->substitute($dbexpr, $params);
+        }
+
         my $dbexpr_update = $column_def->{dbexpr_update};
         my $dbexpr_update_applied = 0;