From 3b6fdee0a910d0c1eca0539b24d93660336f1891 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 5 Feb 2007 17:52:02 +0000 Subject: [PATCH] fix for SQLForm 0 values in key/value pairs --- docs/changelog/7.x.x.txt | 1 + lib/WebGUI/Asset/Wobject/SQLForm.pm | 5 ++--- 2 files changed, 3 insertions(+), 3 deletions(-) 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; }