[svn:p5ee] r12605 - p5ee/trunk/App-Repository/lib/App/ValueDomain

[spadkins]

Author: spadkins
Date: Thu Mar 12 14:26:34 2009
New Revision: 12605

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

Log:
if value equals nothing substitute value with the default value

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 12 
14:26:34 2009
@@ -233,7 +233,10 @@
         my $sql         = $self->{sql};
         my $values_session_var = $self->{values_session_var};
                      if ($values_session_var) {
-                         $sql =~ s/\{$values_session_var(:[^:{}]*)\}/$value/g;
+            if ($value eq "" && $sql =~ /\{$values_session_var:([^:{}]*)\}/) {
+                $value = $1;
+            }
+                         $sql =~ s/\{$values_session_var:[^:{}]*\}/$value/g;
                      }
         $sql = $self->substitute($sql, undef, {undef_value => "NULL"});
         my $rows = $rep->_do($sql);