fix for SQLForm 0 values in key/value pairs

docs/changelog/7.x.x.txt

@@ -56,6 +56,7 @@
  - fix: RSS feeds should now process HTML characters properly for RSS 2.0 standard
  - fix: Corner case which could cause WeatherData.pm to fail has been fixed.
  - fix: wiki pagination broken (perlDreamer Consulting, LLC)
+ - fix: SQLForm: set issues (perlDreamer Consulting, LLC)
  - fix: Collab System FAQ: clicking top link does not bring you back to the top of FAQ (perlDreamer Consulting, LLC)
 
 7.3.8

lib/WebGUI/Asset/Wobject/SQLForm.pm

@@ -721,9 +721,8 @@ sub _getFieldProperties {
 		@keys = split(/[\r\n]+/, $definition{formPopulationKeys});
 		@values = split(/[\r\n]+/, $definition{formPopulationValues});
 
-		while (my $key = shift(@keys)) {
-			$options->{$key} = shift(@values);
-		}
+		##Assign all values to keys in an ordered, 1:1 way
+		@{ $options }{@keys} = @values;
 	}