oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more form fixes

Browse source
This commit is contained in:
Colin Kuskie 2006-01-15 17:26:36 +00:00
parent 65823b1f53
commit 5705131fcf
4 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Form/Combo.pm
View file

@ -101,6 +101,7 @@ sub toHtml {
$self->get("options")->{_new_} = $i18n->get(581).'->';
return $self->SUPER::toHtml
.WebGUI::Form::Text->new(
$self->session,
size=>$self->session->setting->get("textBoxSize")-5,
name=>$self->get("name")."_new",
id=>$self->get('id')."_new"

8
lib/WebGUI/Form/List.pm
View file

@ -16,6 +16,7 @@ package WebGUI::Form::List;
use strict;
use base 'WebGUI::Form::Control';
use WebGUI::Form::Hidden;
use WebGUI::International;
=head1 NAME
@ -102,7 +103,7 @@ sub correctValues {
push(@defaultValues, $_);
}
}
$self->get("value") = \@defaultValues;
$self->set("value", \@defaultValues);
}
@ -264,10 +265,11 @@ sub toHtmlAsHidden {
foreach my $key (keys %options) {
foreach my $item (@values) {
if ($item eq $key) {
$output .= WebGUI::Form::Hidden->(
$output .= WebGUI::Form::Hidden->new(
$self->session,
name=>$self->get("name"),
value=>$key
);
)->toHtmlAsHidden;
}
}
}

1
lib/WebGUI/Form/TimeField.pm
View file

@ -130,6 +130,7 @@ Renders the field as a hidden field.
sub toHtmlAsHidden {
my $self = shift;
return WebGUI::Form::Hidden->new(
$self->session,
name=>$self->get("name"),
value=>secondsToTime($self->get("value"))
)->toHtmlAsHidden;

2
lib/WebGUI/Form/YesNo.pm
View file

@ -110,6 +110,7 @@ sub toHtml {
$checkNo = 1;
}
my $output = WebGUI::Form::Radio->new(
$self->session,
checked=>$checkYes,
name=>$self->get("name"),
value=>1,
@ -118,6 +119,7 @@ sub toHtml {
$output .= $i18n->get(138);
$output .= '   ';
$output .= WebGUI::Form::Radio->new(
$self->session,
checked=>$checkNo,
name=>$self->get("name"),
value=>0,