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

Labels for Check and Radio Lists

Browse source
This commit is contained in:
Jukka Raimovaara 2007-12-13 14:01:37 +00:00
parent f14c6e4b91
commit 607fdd25a2
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -130,9 +130,10 @@ sub toHtml {
if ($self->get("showSelectAll")) { if ($self->get("showSelectAll")) {
$output .= $self->getSelectAllButton; $output .= $self->getSelectAllButton;
} }
my $i=0;
tie my %options, 'Tie::IxHash', $self->orderedHash(); tie my %options, 'Tie::IxHash', $self->orderedHash();
foreach my $key (keys %options) { foreach my $key (keys %options) {
$i++;
my $checked = (grep { $_ eq $key } @{ $self->get('value') }) my $checked = (grep { $_ eq $key } @{ $self->get('value') })
? 1 ? 1
: 0 : 0
@ -144,8 +145,9 @@ sub toHtml {
value => $key, value => $key,
extras => $self->get('extras'), extras => $self->get('extras'),
checked => $checked, checked => $checked,
id => $self->get('name').$i,
})->toHtml })->toHtml
. ${$self->get('options')}{$key} . '<label for="'.$self->get('name').$i.'">'.$self->get('options')->{$key}."</label>"
. $alignment . $alignment
; ;
} }

7
lib/WebGUI/Form/RadioList.pm
View file

@ -106,7 +106,9 @@ sub toHtml {
my %options; my %options;
tie %options, 'Tie::IxHash'; tie %options, 'Tie::IxHash';
%options = $self->orderedHash; %options = $self->orderedHash;
my $i=0;
foreach my $key (keys %options) { foreach my $key (keys %options) {
$i++;
my $checked = 0; my $checked = 0;
if ($self->get('value') eq $key) { if ($self->get('value') eq $key) {
$checked = 1; $checked = 1;
@ -115,9 +117,10 @@ sub toHtml {
name=>$self->get('name'), name=>$self->get('name'),
value=>$key, value=>$key,
extras=>$self->get('extras'), extras=>$self->get('extras'),
checked=>$checked checked=>$checked,
id=>$self->get('name').$i
})->toHtml; })->toHtml;
$output .= $self->get('options')->{$key} . $alignment; $output .= '<label for="'.$self->get('name').$i.'">'.$self->get('options')->{$key}."</label>" . $alignment;
} }
return $output; return $output;
} }