diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 7ad687dae..b89f35956 100644 --- a/docs/changelog/7.x.x.txt +++ b/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 diff --git a/lib/WebGUI/Asset/Wobject/SQLForm.pm b/lib/WebGUI/Asset/Wobject/SQLForm.pm index 1202dbc11..d19fee55e 100644 --- a/lib/WebGUI/Asset/Wobject/SQLForm.pm +++ b/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; }