From a3e5ff3e24653f3ae5995106ecb473869b9292e4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 8 Apr 2005 06:27:40 +0000
Subject: [PATCH] fixed bug where value of 0 could not be passed to
 asset,radio,radioList

---
 lib/WebGUI/Form.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
index 4a78f9cc9..d20820d4c 100644
--- a/lib/WebGUI/Form.pm
+++ b/lib/WebGUI/Form.pm
@@ -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);