Fix bugs in the Combo Box, and the Mimetype form elements. Fixes bug #11420.

This commit is contained in:
Colin Kuskie 2010-02-22 10:00:47 -08:00
parent 552859fb7f
commit 2d819f14b8
3 changed files with 5 additions and 1 deletions

View file

@ -122,6 +122,7 @@ sub toHtml {
my $options = $self->getOptions;
$options->{''} = '['.$i18n->get(582).']';
$options->{_new_} = $i18n->get(581).'->';
$self->set('options', $options);
return $self->SUPER::toHtml
.WebGUI::Form::Text->new($self->session,
size=>$self->session->setting->get("textBoxSize")-5,

View file

@ -104,6 +104,8 @@ sub toHtml {
foreach ('text/html','text/css','text/javascript','text/plain','text/xml','application/xml') {
$mimeTypes->{$_}=$_;
}
my $value = $self->getOriginalValue();
$mimeTypes->{$value} = $value;
$self->set("options", $mimeTypes);
return $self->SUPER::toHtml();
}