Fix for issue where select lists were displaying default data rather than what was saved in the database.

This commit is contained in:
Frank Dillon 2006-04-25 16:17:01 +00:00
parent dc50a3eb81
commit 464b52b701

View file

@ -1721,10 +1721,17 @@ sub www_editEvent {
if($dataType eq "selectList" || $dataType eq "selectBox") { if($dataType eq "selectList" || $dataType eq "selectBox") {
$options = {"", $i18n3->get("Select")}; $options = {"", $i18n3->get("Select")};
} }
my $val = $self->session->form->process("metadata_".$meta->{$field->{fieldId}}{fieldId},$dataType);
if(!$val || (ref $val eq "ARRAY" && scalar(@{$val}) == 0 ) ) {
$val = $meta->{$field->{fieldId}}{fieldData};
}
$f->dynamicField( $f->dynamicField(
name=>"metadata_".$meta->{$field->{fieldId}}{fieldId}, name=>"metadata_".$meta->{$field->{fieldId}}{fieldId},
label=>$meta->{$field->{fieldId}}{label}, label=>$meta->{$field->{fieldId}}{label},
value=>($self->session->form->process("metadata_".$meta->{$field->{fieldId}}{fieldId},$dataType) || $meta->{$field->{fieldId}}{fieldData}), value=>$val,
extras=>qq/title="$meta->{$field->{fieldId}}{label}"/, extras=>qq/title="$meta->{$field->{fieldId}}{label}"/,
possibleValues=>$meta->{$field->{fieldId}}{possibleValues}, possibleValues=>$meta->{$field->{fieldId}}{possibleValues},
options=>$options, options=>$options,