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