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).'->'; $self->get("options")->{_new_} = $i18n->get(581).'->';
return $self->SUPER::toHtml return $self->SUPER::toHtml
.WebGUI::Form::Text->new( .WebGUI::Form::Text->new(
$self->session,
size=>$self->session->setting->get("textBoxSize")-5, size=>$self->session->setting->get("textBoxSize")-5,
name=>$self->get("name")."_new", name=>$self->get("name")."_new",
id=>$self->get('id')."_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 strict;
use base 'WebGUI::Form::Control'; use base 'WebGUI::Form::Control';
use WebGUI::Form::Hidden;
use WebGUI::International; use WebGUI::International;
=head1 NAME =head1 NAME
@ -102,7 +103,7 @@ sub correctValues {
push(@defaultValues, $_); push(@defaultValues, $_);
} }
} }
$self->get("value") = \@defaultValues; $self->set("value", \@defaultValues);
} }
@ -264,10 +265,11 @@ sub toHtmlAsHidden {
foreach my $key (keys %options) { foreach my $key (keys %options) {
foreach my $item (@values) { foreach my $item (@values) {
if ($item eq $key) { if ($item eq $key) {
$output .= WebGUI::Form::Hidden->( $output .= WebGUI::Form::Hidden->new(
$self->session,
name=>$self->get("name"), name=>$self->get("name"),
value=>$key value=>$key
); )->toHtmlAsHidden;
} }
} }
} }

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

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

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

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