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

fixed bug where value of 0 could not be passed to asset,radio,radioList

Browse source
This commit is contained in:
Colin Kuskie 2005-04-08 06:27:40 +00:00
parent 243e6189aa
commit a3e5ff3e24
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Form.pm
View file

@ -143,7 +143,7 @@ Assign extra things like javascript events to this form element.
sub asset {
my $params = shift;
my $value = $params->{value} || $params->{defaultValue};
my $value = defined($params->{value}) ? $params->{value} : $params->{defaultValue};
my $name = $params->{name} || "asset";
my $asset = WebGUI::Asset->newByDynamicClass($value) || WebGUI::Asset->getRoot;
return hidden({
@ -1399,7 +1399,7 @@ This will be used if no value is specified.
sub radio {
my $params = shift;
my $checkedText = ' checked="1"' if ($params->{checked});
my $value = $params->{value}||$params->{defaultValue};
my $value = defined($params->{value}) ? $params->{value} : $params->{defaultValue};
return '<input type="radio" name="'.$params->{name}.'" value="'.$value.'"'.$checkedText.' '.$params->{extras}.' />';
}
@ -1440,7 +1440,7 @@ This will be used if no value is specified.
sub radioList {
my $params = shift;
my ($output, $key, $checked);
my $value = $params->{value} || $params->{defaultValue};
my $value = defined($params->{value}) ? $params->{value} : $params->{defaultValue};
foreach $key (keys %{$params->{options}}) {
$checked = 0;
$checked = 1 if ($key eq $value);