From dc82e6f3bd6589aad1c416e33c42c60679eb407b Mon Sep 17 00:00:00 2001 From: Yung Han Khoe Date: Mon, 12 Feb 2007 15:08:47 +0000 Subject: [PATCH] Fix for radioList fields in view. --- lib/WebGUI/Asset/Wobject/SQLForm.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/WebGUI/Asset/Wobject/SQLForm.pm b/lib/WebGUI/Asset/Wobject/SQLForm.pm index 550825a23..5de169b6c 100644 --- a/lib/WebGUI/Asset/Wobject/SQLForm.pm +++ b/lib/WebGUI/Asset/Wobject/SQLForm.pm @@ -2404,7 +2404,11 @@ sub _getFormElement { $fieldValue = $self->_getFieldValue($field, $recordValues, $readOnly); # Resolve value to key in case of read only and key/value pairs - $fieldValue = join(', ', @{$field->{allOptions}}{@$fieldValue}) if ($field->{hasOptions} && $readOnly); + if ($field->{canHaveMultipleValues}) { + $fieldValue = join(', ', @{$field->{allOptions}}{@$fieldValue}) if ($field->{hasOptions} && $readOnly); + }else{ + $fieldValue = $field->{allOptions}->{$fieldValue} if ($field->{hasOptions} && $readOnly); + } $maxLength = $field->{maxFieldLength} || $allowedDbFieldTypes->{$field->{dbFieldType}}->{maxLength}; # Construct the form element