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

first batch of Form i18n and compilation patches

Browse source
This commit is contained in:
Colin Kuskie 2006-01-15 04:37:19 +00:00
parent 44c6fdfc50
commit 08afb14d51
6 changed files with 24 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Form/CheckList.pm
View file

@ -60,7 +60,7 @@ sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($self->session);
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=>$i18n->get("941"),
@ -92,18 +92,18 @@ sub toHtml {
%options = $self->orderedHash();
foreach my $key (keys %options) {
my $checked = 0;
foreach my $item (@{$self->get("value}")) {
foreach my $item (@{ $self->{value} }) {
if ($item eq $key) {
$checked = 1;
}
}
$output .= WebGUI::Form::Checkbox->new({
name=>$self->get("name"),
name=>$self->{name},
value=>$key,
extras=>$self->get("extras"),
extras=>$self->{extras},
checked=>$checked
})->toHtml;
$output .= ${$self->get("options}"){$key} . $alignment;
$output .= ${$self->{options}}{$key} . $alignment;
}
return $output;
}