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

[spadkins]

Author: spadkins
Date: Tue Jun 20 13:03:54 2006
New Revision: 6554

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

Log:
added values_string_columns config attribute to give values_string a new meaning

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 Tue Jun 20 
13:03:54 2006
@@ -123,7 +123,22 @@
             }
             $params{$key} = $keyvalue;
         }
-        $params{$valuecolumn} = $values_string if (defined $values_string && 
$values_string ne "");
+
+        if (defined $values_string && $values_string ne "") {
+            my $values_string_columns = $self->{values_string_columns};
+            if ($values_string_columns) {
+                $values_string_columns = [split(/,/, $values_string_columns)] 
if (!ref($values_string_columns));
+                my @values_string_values = split(/,/, $values_string);
+                if ($#values_string_values > -1 && $#$values_string_columns == 
$#values_string_values) {
+                    for (my $i = 0; $i <= $#values_string_columns; $i++) {
+                        $params{$values_string_columns->[$i]} = 
$values_string_values[$i];
+                    }
+                }
+            }
+            else {
+                $params{$valuecolumn} = $values_string;
+            }
+        }
 
         if ($rep && $table && $valuecolumn && $params) {
             my @cols = ( $valuecolumn );