From a61368991007a801ae170b4158578a75065db98f Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 15 Nov 2004 19:39:00 +0000
Subject: [PATCH] an overhaul of the form system

---
 lib/WebGUI/Form.pm     | 556 ++++++++++++++++++++++++++---------------
 lib/WebGUI/HTMLForm.pm | 524 ++++++++++++++++++++++++--------------
 2 files changed, 697 insertions(+), 383 deletions(-)

diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
index 8e188bf98..bf61b8775 100644
--- a/lib/WebGUI/Form.pm
+++ b/lib/WebGUI/Form.pm
@@ -126,13 +126,17 @@ If you want to add anything special to this form element like javascript actions
 
  'onClick="alert(\'You've just pushed me !\')"'
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub button {
-        my ($label, $extras, $subtext, $class, $output, $name, $value);
-        $value = $_[0]->{value} || WebGUI::International::get(62);
+	my $params = shift;
+        my $value = $params->{value} || $params->{defaultValue} || WebGUI::International::get(62);
         $value = _fixQuotes($value);
-        return '<input type="button" value="'.$value.'" '.$_[0]->{extras}.'>';
+        return '<input type="button" value="'.$value.'" '.$params->{extras}.'>';
 }
 
 #-------------------------------------------------------------------
@@ -151,7 +155,7 @@ If you'd like this box to be defaultly checked, set this to "1".
 
 =head3 value
 
-The default value for this form element. Defaults to "1".
+The default value for this form element.
 
 =head3 extras
 
@@ -159,13 +163,17 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to 1.
+
 =cut
 
 sub checkbox {
-        my ($checkedText, $value);
-        $checkedText = ' checked="1"' if ($_[0]->{checked});
-        $value = $_[0]->{value} || 1;
-        return '<input type="checkbox" name="'.$_[0]->{name}.'" value="'.$value.'"'.$checkedText.' '.$_[0]->{extras}.'>';
+	my $params = shift;
+        my $checkedText = ' checked="1"' if ($params->{checked});
+        my $value = $params->{value} || $params->{defaultValue} || 1;
+        return '<input type="checkbox" name="'.$params->{name}.'" value="'.$value.'"'.$checkedText.' '.$params->{extras}.'>';
 }
 
 #-------------------------------------------------------------------
@@ -196,25 +204,31 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. Should be passed as an array reference.
+
 =cut
 
 sub checkList {
+	my $params = shift;
         my ($output, $checked, $key, $item);
-        foreach $key (keys %{$_[0]->{options}}) {
+	my $values = $params->{value} || $params->{defaultValue};
+        foreach $key (keys %{$params->{options}}) {
 		$checked = 0;
-		foreach $item (@{$_[0]->{value}}) {
+		foreach $item (@{$values}) {
                         if ($item eq $key) {
                                 $checked = 1;
                         }
                 }
 		$output .= checkbox({
-			name=>$_[0]->{name},
+			name=>$params->{name},
 			value=>$key,
-			extras=>$_[0]->{extras},
+			extras=>$params->{extras},
 			checked=>$checked
 			});
-                $output .= ${$_[0]->{options}}{$key};
-		if ($_[0]->{vertical}) {
+                $output .= ${$params->{options}}{$key};
+		if ($params->{vertical}) {
 			$output .= "<br />\n";
 		} else {
 			$output .= " &nbsp; &nbsp;\n";
@@ -255,21 +269,25 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. Should be passed as an array reference.
+
 =cut
 
 sub combo {
-        my ($output, $size);
-	$_[0]->{options}->{''} = '['.WebGUI::International::get(582).']';
-	$_[0]->{options}->{_new_} = WebGUI::International::get(581).'-&gt;';
-	$output = selectList({
-		name=>$_[0]->{name},
-		options=>$_[0]->{options},
-		value=>$_[0]->{value},
-		multiple=>$_[0]->{multiple},
-		extras=>$_[0]->{extras}
+	my $params = shift;
+	$params->{options}->{''} = '['.WebGUI::International::get(582).']';
+	$params->{options}->{_new_} = WebGUI::International::get(581).'-&gt;';
+	my $output = selectList({
+		name=>$params->{name},
+		options=>$params->{options},
+		value=>$params->{value} || $params->{defaultValue},
+		multiple=>$params->{multiple},
+		extras=>$params->{extras}
 		});
-	$size =  $session{setting}{textBoxSize}-5;
-        $output .= text({name=>$_[0]->{name}."_new",size=>$size});
+	my $size =  $session{setting}{textBoxSize}-5;
+        $output .= text({name=>$params->{name}."_new",size=>$size});
 	return $output;
 }
 
@@ -289,7 +307,7 @@ An array reference of field types to be displayed. The types are "mixed", "html"
 
 =head3 value
 
-The default value for this form element. Defaults to "mixed".
+The default value for this form element. 
 
 =head3 extras
 
@@ -297,9 +315,14 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to "mixed".
+
 =cut
 
 sub contentType {
+	my $params = shift;
 	my (%hash, $output, $type);
  	tie %hash, 'Tie::IxHash';
 	# NOTE: What you are about to see is bad code. Do not attempt this
@@ -307,8 +330,8 @@ sub contentType {
 	# if/elsif construct executes much more quickly than a bunch of
 	# unnecessary database hits.
 	my @types = qw(mixed html code text);
-	$_[0]->{types} = \@types unless ($_[0]->{types});
-	foreach $type (@{$_[0]->{types}}) {
+	$params->{types} = \@types unless ($params->{types});
+	foreach $type (@{$params->{types}}) {
 		if ($type eq "text") {
 			$hash{text} = WebGUI::International::get(1010);
 		} elsif ($type eq "mixed") {
@@ -321,32 +344,38 @@ sub contentType {
 	}
 	return selectList({
 		options=>\%hash,
-		name=>$_[0]->{name},
-		value=>$_[0]->{value},
-		extras=>$_[0]->{extras}
+		name=>$params->{name},
+		value=>[$params->{value}],
+		extras=>$params->{extras},
+		defaultValue=>[$params->{defaultValue}]
 		});
 }
 
 
 #-------------------------------------------------------------------
-                                                                                                                                                             
+                                                                                                                                                      
 =head2 databaseLink ( hashRef )
-                                                                                                                                                             
+                                                                                                                                                       
 Returns a select list of database links.
-                                                                                                                                                             
+                                                                                                                                                       
 =head3 name
-                                                                                                                                                             
+                                                                                                                                                       
 The name field for this form element. Defaults to "databaseLinkId".
-                                                                                                                                                             
+                                                                                                                                                       
 =head3 value
-                                                                                                                                                             
-The unique identifier for the selected template. Defaults to "0", which is the WebGUI database.
-                                                                                                                                                             
+                                                                                                                                               
+The unique identifier for the selected template. 
+                                                                                                                                         
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to 0 (the WebGUI database).
+
 =cut
                                                                                                                                                              
 sub databaseLink {
-        my $value = $_[0]->{value} || 0;
-        my $name = $_[0]->{name} || "databaseLinkId";
+	my $params = shift;
+        my $value = $params->{value} || $params->{defaultValue} || 0;
+        my $name = $params->{name} || "databaseLinkId";
         return selectList({
                 name=>$name,
                 options=>WebGUI::DatabaseLink::getList(),
@@ -387,24 +416,29 @@ The number of characters wide this form element should be. There should be no re
 
 By default a date is placed in the "value" field. Set this to "1" to turn off the default date.
 
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to today.
+
 =cut
 
 sub date {
-	my $value = epochToSet($_[0]->{value}) unless ($_[0]->{noDate} && $_[0]->{value} eq '');
-        my $size = $_[0]->{size} || 10;
+	my $params = shift;
+	my $value = epochToSet($params->{value}||$params->{defaultValue}) unless ($params->{noDate} && $params->{value} eq '');
+        my $size = $params->{size} || 10;
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar.js',{ language=>'javascript' });
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/lang/calendar-en.js',{ language=>'javascript' });
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar-setup.js',{ language=>'javascript' });
 	WebGUI::Style::setLink($session{config}{extrasURL}.'/calendar/calendar-win2k-1.css', { rel=>"stylesheet", type=>"text/css", media=>"all" });
 	return text({
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		value=>$value,
 		size=>$size,
-		extras=>'id="'.$_[0]->{name}.'Id" '.$_[0]->{extras},
+		extras=>'id="'.$params->{name}.'Id" '.$params->{extras},
 		maxlength=>10
 		}) . '<script type="text/javascript"> 
 			Calendar.setup({ 
-				inputField : "'.$_[0]->{name}.'Id", 
+				inputField : "'.$params->{name}.'Id", 
 				ifFormat : "%Y-%m-%d", 
 				showsTime : false, 
 				timeFormat : "12",
@@ -433,23 +467,28 @@ The date and time. Pass as an epoch value. Defaults to today and now.
 
 Extra parameters to add to the date/time form element such as javascript or stylesheet information.
 
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to today and now.
+
 =cut
 
 sub dateTime {
-	my $value = epochToSet($_[0]->{value},1);
+	my $params = shift;
+	my $value = epochToSet($params->{value}||$params->{defaultValue},1);
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar.js',{ language=>'javascript' });
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/lang/calendar-en.js',{ language=>'javascript' });
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar-setup.js',{ language=>'javascript' });
 	WebGUI::Style::setLink($session{config}{extrasURL}.'/calendar/calendar-win2k-1.css', { rel=>"stylesheet", type=>"text/css", media=>"all" });
         return text({
-                name=>$_[0]->{name},
+                name=>$params->{name},
                 value=>$value,
                 size=>19,
-                extras=>'id="'.$_[0]->{name}.'Id" '.$_[0]->{extras},
+                extras=>'id="'.$params->{name}.'Id" '.$params->{extras},
                 maxlength=>19
                 }) . '<script type="text/javascript">
                         Calendar.setup({
-                                inputField : "'.$_[0]->{name}.'Id",
+                                inputField : "'.$params->{name}.'Id",
                                 ifFormat : "%Y-%m-%d %H:%M:%S",
                                 showsTime : true,
                                 timeFormat : "12",
@@ -536,15 +575,21 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub email {
+	my $params = shift;
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/emailCheck.js',{ language=>'javascript' });
 	my $output .= text({
-		name=>$_[0]->{name},
-		value=>$_[0]->{value},
-		size=>$_[0]->{size},
-		extras=>' onChange="emailCheck(this.value)" '.$_[0]->{extras}
+		name=>$params->{name},
+		value=>$params->{value},
+		size=>$params->{size},
+		extras=>' onChange="emailCheck(this.value)" '.$params->{extras},
+		defaultValue=>$params->{defaultValue}
 		});
 	return $output;
 }
@@ -578,16 +623,21 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub fieldType {
+	my $params = shift;
 	my (%hash, $output, $type);
  	tie %hash, 'Tie::IxHash';
 	# NOTE: What you are about to see is bad code. Do not attempt this
 	# without adult supervision. =) 
 	my @types = qw(dateTime time float zipcode text textarea HTMLArea url date email phone integer yesNo selectList radioList checkList);
-	$_[0]->{types} = \@types unless ($_[0]->{types});
-	foreach $type (@{$_[0]->{types}}) {
+	$params->{types} = \@types unless ($params->{types});
+	foreach $type (@{$params->{types}}) {
 		if ($type eq "text") {
 			$hash{text} = WebGUI::International::get(475);
 		} elsif ($type eq "timeField") {
@@ -624,17 +674,13 @@ sub fieldType {
         		$hash{checkbox} = WebGUI::International::get(943);
 		}
 	}
-	# This is a hack for reverse compatibility with a bug where this field used to allow an array ref.
-	my $value = $_[0]->{value};
-	unless ($value eq "ARRAY") {
-		$value = [$value];
-	}
 	return selectList({
 		options=>\%hash,
-		name=>$_[0]->{name},
-		value=>$_[0]->{value},
-		extras=>$_[0]->{extras},
-		size=>$_[0]->{size}
+		name=>$params->{name},
+		value=>[$params->{value}],
+		extras=>$params->{extras},
+		size=>$params->{size},
+		defaultValue=>[$params->{defaultValue}]
 		});
 }
 
@@ -661,9 +707,9 @@ The number of characters wide this form element should be. There should be no re
 =cut
 
 sub file {
-        my ($size);
-        $size = $_[0]->{size} || $session{setting}{textBoxSize} || 30;
-        return '<input type="file" name="'.$_[0]->{name}.'" size="'.$size.'" '.$_[0]->{extras}.'>';
+	my $params = shift;
+        my $size = $params->{size} || $session{setting}{textBoxSize} || 30;
+        return '<input type="file" name="'.$params->{name}.'" size="'.$size.'" '.$params->{extras}.'>';
 }
 
 
@@ -687,9 +733,14 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub filterContent {
+	my $params = shift;
 	my %filter;
 	tie %filter, 'Tie::IxHash';
 	%filter = (
@@ -699,12 +750,13 @@ sub filterContent {
 		'most'=>WebGUI::International::get(421),
 		'all'=>WebGUI::International::get(419)
 		);
-	my $name = $_[0]->{name} || "filterContent";
+	my $name = $params->{name} || "filterContent";
         return selectList({
 		name=>$name,
 		options=>\%filter,
-		value=>[$_[0]->{value}],
-		extras=>$_[0]->{extras}
+		value=>[$params->{value}],
+		extras=>$params->{extras},
+		defaultValue=>[$params->{defaultValue}]
 		});
 }
 
@@ -746,7 +798,8 @@ If you want to add anything special to the form header like javascript actions o
 =cut
 
 sub formHeader {
-        my $action = $_[0]->{action} || WebGUI::URL::page();
+	my $params = shift;
+        my $action = $params->{action} || WebGUI::URL::page();
 	my $hidden;
 	if ($action =~ /\?/) {
 		my ($path,$query) = split(/\?/,$action);
@@ -758,9 +811,9 @@ sub formHeader {
 			$hidden .= hidden({name=>$name,value=>$value});
 		}
 	}
-        my $method = $_[0]->{method} || "POST";
-        my $enctype = $_[0]->{enctype} || "multipart/form-data";
-	return '<form action="'.$action.'" enctype="'.$enctype.'" method="'.$method.'" '.$_[0]->{extras}.'><div class="formContents">'.$hidden;
+        my $method = $params->{method} || "POST";
+        my $enctype = $params->{enctype} || "multipart/form-data";
+	return '<form action="'.$action.'" enctype="'.$enctype.'" method="'.$method.'" '.$params->{extras}.'><div class="formContents">'.$hidden;
 }
 
 
@@ -792,18 +845,24 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub float {
-        my $value = $_[0]->{value} || 0;
-        my $size = $_[0]->{size} || 11;
+	my $params = shift;
+        my $value = $params->{value} || 0;
+        my $size = $params->{size} || 11;
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/inputCheck.js',{ language=>'javascript' });
 	return text({
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		value=>$value,
 		size=>$size,
-		extras=>'onKeyUp="doInputCheck(this.form.'.$_[0]->{name}.',\'0123456789.\')" '.$_[0]->{extras},
-		maxlength=>$_[0]->{maxlength}
+		extras=>'onKeyUp="doInputCheck(this.form.'.$params->{name}.',\'0123456789.\')" '.$params->{extras},
+		maxlength=>$params->{maxlength},
+		defaultValue=>$params->{defaultValue}
 		});
 }
 
@@ -822,7 +881,7 @@ The name field for this form element.
 
 =head3 value 
 
-The selected group id(s) for this form element.  This should be passed as an array reference. Defaults to "7" (Everyone).
+The selected group id(s) for this form element.  This should be passed as an array reference.
 
 =head3 size
 
@@ -842,27 +901,33 @@ If you want to add anything special to this form element like javascript actions
 
 An array reference containing a list of groups to exclude from the list.
 
+=head3 defaultValue
+
+This will be used if no value is specified. Should be passed as an array reference. Defaults to 7 (Everyone).
+
 =cut
 
 sub group {
+	my $params = shift;
         my (%hash, $value, $where);
-	$value = $_[0]->{value};
+	$value = $params->{value};
 	if ($$value[0] eq "") { #doing long form otherwise arrayRef didn't work
 		$value = [7];
 	}
 	tie %hash, 'Tie::IxHash';
-	my $exclude = $_[0]->{excludeGroups};
+	my $exclude = $params->{excludeGroups};
 	if ($$exclude[0] ne "") {
 		$where = "and groupId not in (".quoteAndJoin($exclude).")";
 	}
  	%hash = WebGUI::SQL->buildHash("select groupId,groupName from groups where showInForms=1 $where order by groupName");
 	return selectList({
 		options=>\%hash,
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		value=>$value,
-		extras=>$_[0]->{extras},
-		size=>$_[0]->{size},
-		multiple=>$_[0]->{multiple}
+		extras=>$params->{extras},
+		size=>$params->{size},
+		multiple=>$params->{multiple},
+		defaultValue=>$params->{defaultValue}
 		});
 		
 }
@@ -881,10 +946,15 @@ The name field for this form element.
 
 The default value for this form element.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub hidden {
-        return '<input type="hidden" name="'.$_[0]->{name}.'" value="'._fixQuotes(_fixMacros(_fixSpecialCharacters($_[0]->{value}))).'" />'."\n";
+	my $params = shift;
+        return '<input type="hidden" name="'.$params->{name}.'" value="'._fixQuotes(_fixMacros(_fixSpecialCharacters($params->{value}))).'" />'."\n";
 }
 
 
@@ -906,15 +976,21 @@ A hash reference where the key is the "name" of the hidden field.
 
 An array reference where each value in the array should be a name from the hash (if you want it to show up in the hidden list). 
 
+=head3 defaultValue
+
+This will be used if no value is specified. Should be passed as an array reference.
+
 =cut
 
 sub hiddenList {
+	my $params = shift;
         my ($output, $key, $item);
-        foreach $key (keys %{$_[0]->{options}}) {
-                foreach $item (@{$_[0]->{value}}) {
+	my $values = $params->{value} || $params->{defaultValue};
+        foreach $key (keys %{$params->{options}}) {
+                foreach $item (@{$values}) {
                         if ($item eq $key) {
 				$output .= hidden({
-					name=>$_[0]->{name},
+					name=>$params->{name},
 					value=>$key
 					});
                         }
@@ -957,22 +1033,21 @@ The number of characters tall this form element should be. There should be no re
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
-=head3 popupToggle
+=head3 defaultValue
 
-Defaults to "0". If set to "1" the rich editor will be a pop-up editor. If set to "0" the rich editor will be inline.
-
-B<NOTE:> WebGUI uses a great variety of rich editors. Not all of them are capable of inline mode, so even if you leave this set to "0" the editor may be a pop-up anyway.
+This will be used if no value is specified.
 
 =cut
 
 sub HTMLArea {
+	my $params = shift;
         my ($output, $rows, $columns, $htmlArea);
 	my $browser = HTTP::BrowserDetect->new($session{env}{HTTP_USER_AGENT});
 	my %var;
 
 	# Store all scalar options in template variables
-        foreach (keys %{$_[0]}) {
-           $var{"form.".$_} = $_[0]->{$_} unless (ref $_[0]->{$_});
+        foreach (keys %{$params}) {
+           $var{"form.".$_} = $params->{$_} unless (ref $params->{$_});
         }
 
 	# Supported Rich Editors
@@ -982,20 +1057,20 @@ sub HTMLArea {
 	$var{"classic.supported"} = ($browser->ie && $browser->version >= 5);
  
 	# Textarea field
-        $rows = $_[0]->{rows} || ($session{setting}{textAreaRows}+15);
-        $columns = $_[0]->{columns} || ($session{setting}{textAreaCols}+5);
+        $rows = $params->{rows} || ($session{setting}{textAreaRows}+15);
+        $columns = $params->{columns} || ($session{setting}{textAreaCols}+5);
         $var{textarea} = textarea({
-                name=>$_[0]->{name},
-                value=>$_[0]->{value},
-                wrap=>$_[0]->{wrap},
+                name=>$params->{name},
+                value=>$params->{value},
+                wrap=>$params->{wrap},
                 columns=>$columns,
                 rows=>$rows,
-                extras=>$_[0]->{extras}.' onBlur="fixChars(this.form.'.$_[0]->{name}.')" id="'.$_[0]->{name}.'"'.' mce_editable="true" '
+                extras=>$params->{extras}.' onBlur="fixChars(this.form.'.$params->{name}.')" id="'.$params->{name}.'"'.' mce_editable="true" ',
+		defaultValue=>$params->{defaultValue}
                 });
 
 	# Other variables
-	$var{"popup"} = ($session{user}{richEditorMode} eq "popup" || $_[0]->{popupToggle});
-	$var{"button"} = '<input type="button" onClick="openEditWindow(this.form.'.$_[0]->{name}.')" value="'
+	$var{"button"} = '<input type="button" onClick="openEditWindow(this.form.'.$params->{name}.')" value="'
                 .WebGUI::International::get(171).'" style="font-size: 8pt;"><br>';
 	if ($session{user}{richEditor} eq 'none') {
 		return $var{textarea};
@@ -1032,18 +1107,23 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub integer {
-        my $value = $_[0]->{value} || 0;
-        my $size = $_[0]->{size} || 11;
+	my $params = shift;
+        my $value = $params->{value} || $params->{defaultValue} || 0;
+        my $size = $params->{size} || 11;
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/inputCheck.js',{ language=>'javascript' });
 	return text({
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		value=>$value,
 		size=>$size,
-		extras=>'onKeyUp="doInputCheck(this.form.'.$_[0]->{name}.',\'0123456789-\')" '.$_[0]->{extras},
-		maxlength=>$_[0]->{maxlength}
+		extras=>'onKeyUp="doInputCheck(this.form.'.$params->{name}.',\'0123456789-\')" '.$params->{extras},
+		maxlength=>$params->{maxlength}
 		});
 }
 
@@ -1071,12 +1151,16 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub interval {
-        my (%units, $output, $intervalValue, $unitsValue);
-        $intervalValue = (defined $_[0]->{intervalValue}) ? $_[0]->{intervalValue} : 1;
-        $unitsValue = $_[0]->{unitsValue} || "seconds";
+	my $params = shift;
+        my (%units);
+        my $value =  $params->{value} || $params->{defaultValue} || 1;
         tie %units, 'Tie::IxHash';
 	%units = ('seconds'=>WebGUI::International::get(704),
 		'minutes'=>WebGUI::International::get(705),
@@ -1085,14 +1169,15 @@ sub interval {
                 'weeks'=>WebGUI::International::get(701),
                 'months'=>WebGUI::International::get(702),
                 'years'=>WebGUI::International::get(703));
-	$output = integer({
-		name=>$_[0]->{name}.'_interval',
-		value=>$intervalValue,
-		extras=>$_[0]->{extras}
+	my ($interval, $units) = WebGUI::DateTime::secondsToInterval($value);
+	my $output = integer({
+		name=>$params->{name}.'_interval',
+		value=>$interval,
+		extras=>$params->{extras}
 		});
 	$output .= selectList({
-		name=>$_[0]->{name}.'_units',
-		value=>[$unitsValue],
+		name=>$params->{name}.'_units',
+		value=>[$units],
 		options=>\%units
 		});
 	return $output;
@@ -1127,15 +1212,19 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this. Defaults to "30" unless overridden in the settings.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub password {
-        my ($size, $maxLength, $value);
-	$value = _fixQuotes($_[0]->{value});
-        $maxLength = $_[0]->{maxlength} || 35;
-        $size = $_[0]->{size} || $session{setting}{textBoxSize} || 30;
-        return '<input type="password" name="'.$_[0]->{name}.'" value="'.$value.'" size="'.
-		$size.'" maxlength="'.$maxLength.'" '.$_[0]->{extras}.'>';
+	my $params = shift;
+	my $value = _fixQuotes($params->{value}||$params->{defaultValue});
+        my $maxLength = $params->{maxlength} || 35;
+        my $size = $params->{size} || $session{setting}{textBoxSize} || 30;
+        return '<input type="password" name="'.$params->{name}.'" value="'.$value.'" size="'.
+		$size.'" maxlength="'.$maxLength.'" '.$params->{extras}.'>';
 }
 
 #-------------------------------------------------------------------
@@ -1166,17 +1255,23 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub phone {
+	my $params = shift;
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/inputCheck.js',{ language=>'javascript' });
-        my $maxLength = $_[0]->{maxlength} || 30;
+        my $maxLength = $params->{maxlength} || 30;
 	return text({
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		maxlength=>$maxLength,
-		extras=>'onKeyUp="doInputCheck(this.form.'.$_[0]->{name}.',\'0123456789-()+ \')" '.$_[0]->{extras},
-		value=>$_[0]->{value},
-		size=>$_[0]->{size}
+		extras=>'onKeyUp="doInputCheck(this.form.'.$params->{name}.',\'0123456789-()+ \')" '.$params->{extras},
+		value=>$params->{value},
+		size=>$params->{size},
+		defaultValue=>$params->{defaultValue}
 		});
 }
 
@@ -1204,13 +1299,17 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. 
 
 =cut
 
 sub radio {
-        my ($checkedText);
-        $checkedText = ' checked="1"' if ($_[0]->{checked});
-        return '<input type="radio" name="'.$_[0]->{name}.'" value="'.$_[0]->{value}.'"'.$checkedText.' '.$_[0]->{extras}.'>';
+	my $params = shift;
+        my $checkedText = ' checked="1"' if ($params->{checked});
+	my $value = $params->{value}||$params->{defaultValue};
+        return '<input type="radio" name="'.$params->{name}.'" value="'.$value.'"'.$checkedText.' '.$params->{extras}.'>';
 }
 
 #-------------------------------------------------------------------
@@ -1241,21 +1340,27 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. 
+
 =cut
 
 sub radioList {
+	my $params = shift;
         my ($output, $key, $checked);
-        foreach $key (keys %{$_[0]->{options}}) {
+	my $value = $params->{value} || $params->{defaultValue};
+        foreach $key (keys %{$params->{options}}) {
 		$checked = 0;
-                $checked = 1 if ($key eq $_[0]->{value});
+                $checked = 1 if ($key eq $value);
 		$output .= radio({
-			name=>$_[0]->{name},
+			name=>$params->{name},
 			value=>$key,
 			checked=>$checked,
-			extras=>$_[0]->{extras}
+			extras=>$params->{extras}
 			});
-		$output .= ' '.$_[0]->{options}->{$key};
-                if ($_[0]->{vertical}) {
+		$output .= ' '.$params->{options}->{$key};
+                if ($params->{vertical}) {
                         $output .= "<br />\n";
                 } else {
                         $output .= " &nbsp; &nbsp;\n";
@@ -1300,30 +1405,36 @@ If you want to add anything special to this form element like javascript actions
 
 A boolean value for whether or not the values in the options hash should be sorted.
 
+=head3 defaultValue
+
+This will be used if no value is specified. Should be passed as an array reference.
+
 =cut
 
 sub selectList {
+	my $params = shift;
 	my ($output, $key, $item, $size, $multiple);
-	$size = $_[0]->{size} || 1;
-	$multiple = ' multiple="1"' if ($_[0]->{multiple});
-       	$output = '<select name="'.$_[0]->{name}.'" size="'.$size.'" '.$_[0]->{extras}.$multiple.'>';
+	$size = $params->{size} || 1;
+	$multiple = ' multiple="1"' if ($params->{multiple});
+       	$output = '<select name="'.$params->{name}.'" size="'.$size.'" '.$params->{extras}.$multiple.'>';
+	my $values = $params->{value} || $params->{defaultValue};
 	my %options;
         tie %options, 'Tie::IxHash';
-       	if ($_[0]->{sortByValue}) {
-               	foreach my $optionKey (sort {"\L${$_[0]->{options}}{$a}" cmp "\L${$_[0]->{options}}{$b}" } keys %{$_[0]->{options}}) {
-                         $options{$optionKey} = ${$_[0]->{options}}{$optionKey};
+       	if ($params->{sortByValue}) {
+               	foreach my $optionKey (sort {"\L${$params->{options}}{$a}" cmp "\L${$params->{options}}{$b}" } keys %{$params->{options}}) {
+                         $options{$optionKey} = ${$params->{options}}{$optionKey};
                	}
        	} else {
-               	%options = %{$_[0]->{options}};
+               	%options = %{$params->{options}};
        	}
        	foreach $key (keys %options) {
            	$output .= '<option value="'.$key.'"';
-          	 foreach $item (@{$_[0]->{value}}) {
+          	 foreach $item (@{$values}) {
              		if ($item eq $key) {
              			$output .= ' selected="1"';
              		}
            	}
-           	$output .= '>'.${$_[0]->{options}}{$key}.'</option>';
+           	$output .= '>'.${$params->{options}}{$key}.'</option>';
 	}
 	$output	.= '</select>'; 
 	return $output;
@@ -1338,7 +1449,7 @@ Returns a submit button.
 
 =head3 value
 
-The button text for this submit button. Defaults to "save".
+The button text for this submit button. 
 
 =head3 extras
 
@@ -1346,14 +1457,18 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to "save".
+
 =cut
 
 sub submit {
-        my ($label, $extras, $subtext, $class, $output, $name, $value, $wait);
-        $value = $_[0]->{value} || WebGUI::International::get(62);
-        $value = _fixQuotes($value);
-	$wait = WebGUI::International::get(452);
-	return '<input type="submit" value="'.$value.'" onClick="this.value=\''.$wait.'\'" '.$_[0]->{extras}.'>';
+	my $params = shift;
+        my $value = $params->{value} || $params->{defaultValue} || WebGUI::International::get(62);
+        my $value = _fixQuotes($value);
+	my $wait = WebGUI::International::get(452);
+	return '<input type="submit" value="'.$value.'" onClick="this.value=\''.$wait.'\'" '.$params->{extras}.'>';
 
 }
 
@@ -1369,7 +1484,7 @@ The name field for this form element. Defaults to "templateId".
 
 =head3 value 
 
-The unique identifier for the selected template. Defaults to "1".
+The unique identifier for the selected template.
 
 =head3 namespace
 
@@ -1381,16 +1496,21 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub template {
-        my $templateId = $_[0]->{value} || 1;
-	my $name = $_[0]->{name} || "templateId";
+	my $params = shift;
+        my $templateId = $params->{value} || $params->{defaultValue};
+	my $name = $params->{name} || "templateId";
         return selectList({
                 name=>$name,
-                options=>WebGUI::Template::getList($_[0]->{namespace}),
+                options=>WebGUI::Template::getList($params->{namespace}),
                 value=>[$templateId],
-		extras=>$_[0]->{extras}
+		extras=>$params->{extras}
                 });
 }
 
@@ -1422,17 +1542,21 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub text {
-        my ($size, $maxLength, $value);
-        $value = _fixSpecialCharacters($_[0]->{value});
+	my $params = shift;
+        my $value = _fixSpecialCharacters($params->{value}||$params->{defaultValue});
 	$value = _fixQuotes($value);
 	$value = _fixMacros($value);
-        $maxLength = $_[0]->{maxlength} || 255;
-        $size = $_[0]->{size} || $session{setting}{textBoxSize} || 30;
-        return '<input type="text" name="'.$_[0]->{name}.'" value="'.$value.'" size="'.
-                $size.'" maxlength="'.$maxLength.'" '.$_[0]->{extras}.' />';
+        my $maxLength = $params->{maxlength} || 255;
+        my $size = $params->{size} || $session{setting}{textBoxSize} || 30;
+        return '<input type="text" name="'.$params->{name}.'" value="'.$value.'" size="'.
+                $size.'" maxlength="'.$maxLength.'" '.$params->{extras}.' />';
 }
 
 #-------------------------------------------------------------------
@@ -1467,18 +1591,22 @@ The number of characters tall this form element should be. There should be no re
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub textarea {
-        my ($columns, $value, $rows, $wrap);
-	$wrap = $_[0]->{wrap} || "virtual";
-	$rows = $_[0]->{rows} || $session{setting}{textAreaRows} || 5;
-	$columns = $_[0]->{columns} || $session{setting}{textAreaCols} || 50;
-	$value = _fixSpecialCharacters($_[0]->{value});
+	my $params = shift;
+	my $wrap = $params->{wrap} || "virtual";
+	my $rows = $params->{rows} || $session{setting}{textAreaRows} || 5;
+	my $columns = $params->{columns} || $session{setting}{textAreaCols} || 50;
+	my $value = _fixSpecialCharacters($params->{value} || $params->{defaultValue});
 	$value = _fixTags($value);
 	$value = _fixMacros($value);
-        return '<textarea name="'.$_[0]->{name}.'" cols="'.$columns.'" rows="'.$rows.'" wrap="'.
-		$wrap.'" '.$_[0]->{extras}.'>'.$value.'</textarea>';
+        return '<textarea name="'.$params->{name}.'" cols="'.$columns.'" rows="'.$rows.'" wrap="'.
+		$wrap.'" '.$params->{extras}.'>'.$value.'</textarea>';
 }
 
 #-------------------------------------------------------------------
@@ -1493,7 +1621,7 @@ The name field for this form element.
 
 =head3 value
 
-The default value for this form element. Defaults to the current time (like "15:03:42").
+The default value for this form element. 
 
 =head3 maxlength
 
@@ -1509,20 +1637,25 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this. Defaults to 8.
 
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to now.
+
 =cut
 
 sub timeField {
-        my $value = WebGUI::DateTime::secondsToTime($_[0]->{value});
+	my $params = shift;
+        my $value = WebGUI::DateTime::secondsToTime($params->{value}||$params->{defaultValue});
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/inputCheck.js',{ language=>'javascript' });
 	my $output = text({
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		value=>$value,
-		size=>$_[0]->{size} || 8,
-		extras=>'onKeyUp="doInputCheck(this.form.'.$_[0]->{name}.',\'0123456789:\')" '.$_[0]->{extras},
-		maxlength=>$_[0]->{maxlength} || 8
+		size=>$params->{size} || 8,
+		extras=>'onKeyUp="doInputCheck(this.form.'.$params->{name}.',\'0123456789:\')" '.$params->{extras},
+		maxlength=>$params->{maxlength} || 8
 		});
 	$output .= '<input type="button" style="font-size: 8pt;" onClick="window.timeField = this.form.'.
-		$_[0]->{name}.';clockSet = window.open(\''.$session{config}{extrasURL}.
+		$params->{name}.';clockSet = window.open(\''.$session{config}{extrasURL}.
 		'/timeChooser.html\',\'timeChooser\',\'WIDTH=230,HEIGHT=100\');return false" value="'.
 		WebGUI::International::get(970).'">';
 	return $output;
@@ -1556,17 +1689,23 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub url {
-        my $maxLength = $_[0]->{maxlength} || 2048;
+	my $params = shift;
+        my $maxLength = $params->{maxlength} || 2048;
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/addHTTP.js',{ language=>'javascript' });
 	return text({
-		name=>$_[0]->{name},
-		value=>$_[0]->{value},
-		extras=>$_[0]->{extras}.' onBlur="addHTTP(this.form.'.$_[0]->{name}.')"',
-		size=>$_[0]->{size},
-		maxlength=>$maxLength
+		name=>$params->{name},
+		value=>$params->{value},
+		extras=>$params->{extras}.' onBlur="addHTTP(this.form.'.$params->{name}.')"',
+		size=>$params->{size},
+		maxlength=>$maxLength,
+		defaultValue=>$params->{defaultValue}
 		});
 }
 
@@ -1594,16 +1733,21 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub whatNext {
-        my ($name);
-        $name = $_[0]->{name} || "proceed";
+	my $params = shift;
+        my $name = $params->{name} || "proceed";
         return selectList({
-                options=>$_[0]->{options},
+                options=>$params->{options},
                 name=>$name,
-                value=>[$_[0]->{value}],
-                extras=>$_[0]->{extras}
+                value=>[$params->{value}],
+                extras=>$params->{extras},
+		defaultValue=>[$params->{defaultValue}]
                 });
 
 }
@@ -1628,28 +1772,34 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to 1.
+
 =cut
 
 sub yesNo {
+	my $params = shift;
         my ($subtext, $checkYes, $checkNo, $class, $output, $name, $label, $extras, $value);
-	if ($_[0]->{value}) {
+	my $value = $params->{value}||$params->{defaultValue};
+	if ($value) {
 		$checkYes = 1;
 	} else {
 		$checkNo = 1;
 	}
 	$output = radio({
 		checked=>$checkYes,
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		value=>1,
-		extras=>$_[0]->{extras}
+		extras=>$params->{extras}
 		});
 	$output .= WebGUI::International::get(138);
 	$output .= '&nbsp;&nbsp;&nbsp;';
 	$output .= radio({
                 checked=>$checkNo,
-                name=>$_[0]->{name},
+                name=>$params->{name},
                 value=>0,
-                extras=>$_[0]->{extras}
+                extras=>$params->{extras}
                 });
         $output .= WebGUI::International::get(139);
 	return $output;
@@ -1683,17 +1833,23 @@ If you want to add anything special to this form element like javascript actions
 
 The number of characters wide this form element should be. There should be no reason for anyone to specify this.
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub zipcode {
+	my $params = shift;
 	WebGUI::Style::setScript($session{config}{extrasURL}.'/inputCheck.js',{ language=>'javascript' });
-        my $maxLength = $_[0]->{maxlength} || 10;
+        my $maxLength = $params->{maxlength} || 10;
 	return text({
-		name=>$_[0]->{name},
+		name=>$params->{name},
 		maxlength=>$maxLength,
-		extras=>'onKeyUp="doInputCheck(this.form.'.$_[0]->{name}.',\'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ- \')" '.$_[0]->{extras},
-		value=>$_[0]->{value},
-		size=>$_[0]->{size}
+		extras=>'onKeyUp="doInputCheck(this.form.'.$params->{name}.',\'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ- \')" '.$params->{extras},
+		value=>$params->{value},
+		size=>$params->{size},
+		defaultValue=>$params->{defaultValue}
 		});
 }
 
diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index 4c4b54c43..59345a804 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -222,13 +222,13 @@ sub _uiLevelChecksOut {
 
 #-------------------------------------------------------------------
 
-=head2 button ( value [ label, extras, subtext ] )
+=head2 button ( value [, label, extras, subtext, defaultValue ] )
 
 Adds a button row to this form. Use it in combination with scripting code to make the button perform an action.
 
 =head3 value
 
-The button text for this button. Defaults to "save".
+The button text for this button. 
 
 =head3 label
 
@@ -244,15 +244,20 @@ If you want to add anything special to this form element like javascript actions
 
 Extra text to describe this form element or to provide special instructions.
 
+=head3 defaultValue
+
+If no value is specified, a default value to use. Defaults to "save".
+
 =cut
 
 sub button {
         my ($output);
         my ($self, @p) = @_;
-        my ($value, $label, $extras, $subtext) = rearrange([qw(value label extras subtext)], @p);
+        my ($value, $label, $extras, $subtext, $defaultValue) = rearrange([qw(value label extras subtext defaultValue)], @p);
         $output = WebGUI::Form::button({
                 "value"=>$value,
-                "extras"=>$extras
+                "extras"=>$extras,
+		"defaultValue"=>$defaultValue
                 });
         $output .= _subtext($subtext);
         $output = $self->_tableFormRow($label,$output);
@@ -261,7 +266,7 @@ sub button {
 
 #-------------------------------------------------------------------
 
-=head2 checkbox ( name [ label, checked, subtext, value, extras, uiLevel ] )
+=head2 checkbox ( name [, label, checked, subtext, value, extras, uiLevel, defaultValue ] )
 
 Adds a checkbox row to this form.
 
@@ -283,7 +288,7 @@ Extra text to describe this form element or to provide special instructions.
 
 =head3 value
 
-The default value for this form element. Defaults to "1".
+The default value for this form element.
 
 =head3 extras
 
@@ -295,19 +300,24 @@ If you want to add anything special to this form element like javascript actions
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no value is specified, we'll use this. Defaults to "1".
+
 =cut
 
 sub checkbox {
 	my ($output);
 	my ($self, @p) = @_;
-    	my ($name, $label, $checked, $subtext, $value, $extras, $uiLevel) = 
-		rearrange([qw(name label checked subtext value extras uiLevel)], @p);
+    	my ($name, $label, $checked, $subtext, $value, $extras, $uiLevel, $defaultValue) = 
+		rearrange([qw(name label checked subtext value extras uiLevel defaultValue)], @p);
 	if (_uiLevelChecksOut($uiLevel)) {
 		$output = WebGUI::Form::checkbox({
 			"name"=>$name,
 			"value"=>$value,
 			"checked"=>$checked,
-			"extras"=>$extras
+			"extras"=>$extras,
+			"defaultValue"=>$defaultValue
 			});
 		$output .= _subtext($subtext);
         	$output = $self->_tableFormRow($label,$output);
@@ -315,7 +325,8 @@ sub checkbox {
 		if ($checked) {
 			$output = WebGUI::Form::hidden({
 				"name"=>$name,
-				"value"=>$value
+				"value"=>$value,
+				"defaultValue"=>$defaultValue
 				});
 		}
 	}
@@ -324,7 +335,7 @@ sub checkbox {
 
 #-------------------------------------------------------------------
 
-=head2 checkList ( name, options [ , label, value, vertical, extras, subtext, uiLevel ] )
+=head2 checkList ( name, options [ , label, value, vertical, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a checkbox list row to this form.
 
@@ -362,13 +373,17 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no other value is passed, use this. Should be passed as an array reference.
+
 =cut
 
 sub checkList {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $options, $label, $value, $vertical, $extras, $subtext, $uiLevel) =
-                rearrange([qw(name options label value vertical extras subtext uiLevel)], @p);
+        my ($name, $options, $label, $value, $vertical, $extras, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(name options label value vertical extras subtext uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
 		$output = WebGUI::Form::checkList({
 			"name"=>$name,
@@ -383,7 +398,8 @@ sub checkList {
 		$output = WebGUI::Form::hiddenList({
 			"name"=>$name,
 			"options"=>$options,
-			"value"=>$value
+			"value"=>$value,
+			"defaultValue"=>$defaultValue
 			});
 	}
         $self->{_data} .= $output;
@@ -391,7 +407,7 @@ sub checkList {
 
 #-------------------------------------------------------------------
 
-=head2 combo ( name, options, [ label, value, size, multiple, extras, subtext, uiLevel ] )
+=head2 combo ( name, options [, label, value, size, multiple, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a combination select list / text box row to this form. If the text box is filled out it will have a value stored in "name"_new where name is the first field passed into this method.
 
@@ -433,13 +449,17 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no other value is present, will use this. Should be passed as an array reference.
+
 =cut
 
 sub combo {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $options, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel) =
-                rearrange([qw(name options label value size multiple extras subtext uiLevel)], @p);
+        my ($name, $options, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(name options label value size multiple extras subtext uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::combo({
                         "name"=>$name,
@@ -447,7 +467,8 @@ sub combo {
                         "value"=>$value,
                         "size"=>$size,
 			"multiple"=>$multiple,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			"defaultValue"=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
@@ -455,7 +476,8 @@ sub combo {
                 $output = WebGUI::Form::hiddenList({
 			"name"=>$name,
                         "options"=>$options,
-                        "value"=>$value
+                        "value"=>$value,
+			"defaultValue",$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -463,7 +485,7 @@ sub combo {
 
 #-------------------------------------------------------------------
 
-=head2 contentType ( name, types [ label, value, extras, subtext, uiLevel ] )
+=head2 contentType ( name, types [, label, value, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a content type select list field to this form.
 
@@ -497,13 +519,17 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "3".
 
+=head3 defaultValue
+
+When no value is specified, we'll use this.
+
 =cut
 
 sub contentType {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $types, $label, $value, $extras, $subtext, $uiLevel) =
-                rearrange([qw(name types label value extras subtext uiLevel)], @p);
+        my ($name, $types, $label, $value, $extras, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(name types label value extras subtext uiLevel defaultValue)], @p);
 	$uiLevel = 3 if ($uiLevel eq "");
         if (_uiLevelChecksOut($uiLevel)) {
 		$label = WebGUI::International::get(1007) unless ($label);
@@ -511,15 +537,16 @@ sub contentType {
                         "name"=>$name,
                         "types"=>$types,
                         "value"=>$value,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
-                $output = WebGUI::Form::hiddenList({
+                $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        types=>$types,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -528,7 +555,7 @@ sub contentType {
 
 #-------------------------------------------------------------------
 
-=head2 databaseLink (  [name , value, label, afterEdit, extras, uiLevel ] )
+=head2 databaseLink (  [name , value, label, afterEdit, extras, uiLevel, defaultValue ] )
 
 Adds a database link select list to the form.
 
@@ -558,13 +585,17 @@ If you want to add anything special to this form element like javascript actions
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "5".
 
+=head3 defaultValue
+
+When no other value is passed, we'll use this.
+
 =cut
 
 sub databaseLink {
         my ($output, $subtext);
         my ($self, @p) = @_;
-        my ($name, $value, $label, $afterEdit, $extras, $uiLevel) = 
-		rearrange([qw(name value label afterEdit extras uiLevel)], @p);
+        my ($name, $value, $label, $afterEdit, $extras, $uiLevel, $defaultValue) = 
+		rearrange([qw(name value label afterEdit extras uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
 		$label = $label || WebGUI::International::get(1075);
 		if (WebGUI::Grouping::isInGroup(3)) {
@@ -576,14 +607,16 @@ sub databaseLink {
         	$output = WebGUI::Form::databaseLink({
                 	"name"=>$name,
                 	"value"=>$value,
-                	"extras"=>$extras
+                	"extras"=>$extras,
+			"defaultValue"=>$defaultValue
                 	});
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			"defaultValue"=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -593,7 +626,7 @@ sub databaseLink {
 
 #-------------------------------------------------------------------
 
-=head2 date ( name [ label, value, extras, subtext, size, noDate, uiLevel ] )
+=head2 date ( name [, label, value, extras, subtext, size, noDate, uiLevel, defaultValue ] )
 
 Adds a date row to this form.
 
@@ -607,7 +640,7 @@ The left column label for this form row.
 
 =head3 value
 
-The default date. Pass as an epoch value. Defaults to today.
+The default date. Pass as an epoch value. 
 
 =head3 extras
 
@@ -631,27 +664,33 @@ By default a date is placed in the "value" field. Set this to "1" to turn off th
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no value is specified, use this. Defaults to today.
+
 =cut
 
 sub date {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $extras, $subtext, $size, $noDate, $uiLevel) =
-                rearrange([qw(name label value extras subtext size noDate uiLevel)], @p);
+        my ($name, $label, $value, $extras, $subtext, $size, $noDate, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value extras subtext size noDate uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::date({
                         "name"=>$name,
                         "value"=>$value,
                         "noDate"=>$noDate,
                         "size"=>$size,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>epochToSet($value)
+                        "value"=>epochToSet($value),
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -661,7 +700,7 @@ sub date {
 
 #-------------------------------------------------------------------
 
-=head2 dateTime ( name [ label, value, subtext, uiLevel, dateExtras, timeExtras ] )
+=head2 dateTime ( name [, label, value, subtext, uiLevel, dateExtras, timeExtras, defaultValue ] )
 
 Adds a date time row to this form.
 
@@ -689,25 +728,29 @@ The UI level for this field. See the WebGUI developer's site for details. Defaul
 
 Extra parameters such as javascript or style sheet information that you wish to add to the form element.
 
+=head3 defaultValue
+
 =cut
 
 sub dateTime {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $subtext, $uiLevel, $extras) = 
-		rearrange([qw(name label value subtext uiLevel extras)], @p);
+        my ($name, $label, $value, $subtext, $uiLevel, $extras, $defaultValue) = 
+		rearrange([qw(name label value subtext uiLevel extras defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::dateTime({
                         "name"=>$name,
                         "value"=>$value,
-			"extras"=>$extras
+			"extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>epochToSet($value,1)
+                        "value"=>epochToSet($value,1),
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -749,7 +792,8 @@ sub dynamicField {
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$param{name},
-                        "value"=>$param{value}
+                        "value"=>$param{value},
+			"defaultValue"=>$param{defaultValue}
                         });
         }
         $self->{_data} .= $output;
@@ -757,7 +801,7 @@ sub dynamicField {
 
 #-------------------------------------------------------------------
 
-=head2 email ( name [ label, value, maxlength, extras, subtext, size, uiLevel ] )
+=head2 email ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] )
 
 Adds an email address row to this form.
 
@@ -795,27 +839,33 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no other value is specified, this will be used.
+
 =cut
 
 sub email {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel) =
-                rearrange([qw(name label value maxlength extras subtext size uiLevel)], @p);
+        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::email({
                         "name"=>$name,
                         "value"=>$value,
                         "maxlength"=>$maxlength,
                         "size"=>$size,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			"defaultValue" => $defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -824,7 +874,7 @@ sub email {
 
 #-------------------------------------------------------------------
 
-=head2 fieldType ( name, types [ label, value, size, extras, subtext, uiLevel ] )
+=head2 fieldType ( name, types [, label, value, size, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a field type select list field to this form. This is primarily useful for building dynamic form builders.
 
@@ -862,13 +912,17 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no other value is specified, this will be used.
+
 =cut
 
 sub fieldType {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $types, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel) =
-                rearrange([qw(name types label value size multiple extras subtext uiLevel)], @p);
+        my ($name, $types, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(name types label value size multiple extras subtext uiLevel, $defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::fieldType({
                         "name"=>$name,
@@ -876,15 +930,16 @@ sub fieldType {
                         "value"=>$value,
                         "multiple"=>$multiple,
                         "size"=>$size,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			"defaultValue"=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
-                $output = WebGUI::Form::hiddenList({
+                $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        types=>$types,
-                        "value"=>$value
+                        "value"=>$value,
+			"defaultValue"=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -892,7 +947,7 @@ sub fieldType {
 
 #-------------------------------------------------------------------
 
-=head2 file ( name [ label, subtext, extras, size, uiLevel ] )
+=head2 file ( name [, label, subtext, extras, size, uiLevel ] )
 
 Adds a file browse row to this form.
 
@@ -943,7 +998,7 @@ sub file {
 
 #-------------------------------------------------------------------
 
-=head2 filterContent ( [ name, label, value, extras, subtext, uiLevel ] )
+=head2 filterContent ( [ name, label, value, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a content filter select list to the form for use with the WebGUI::HTML::filter() function.
 
@@ -974,26 +1029,32 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no other value is present, this will be used.
+
 =cut
 
 sub filterContent {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $extras, $subtext, $uiLevel) =
-                rearrange([qw(name label value extras subtext uiLevel)], @p);
+        my ($name, $label, $value, $extras, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value extras subtext uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
 		$label = WebGUI::International::get(418) if ($label eq "");
                 $output = WebGUI::Form::filterContent({
                         "name"=>$name,
                         "value"=>$value,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1002,7 +1063,7 @@ sub filterContent {
 
 #-------------------------------------------------------------------
 
-=head2 float ( name [ label, value, maxlength, extras, subtext, size, uiLevel ] )
+=head2 float ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] )
 
 Adds an integer row to this form.
 
@@ -1040,27 +1101,33 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no other value is specified, this will be used.
+
 =cut
 
 sub float {
 	my ($output);
 	my ($self, @p) = @_;
-	my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel) =
-		rearrange([qw(name label value maxlength extras subtext size uiLevel)], @p);
+	my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+		rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue)], @p);
 	if (_uiLevelChecksOut($uiLevel)) {
 		$output = WebGUI::Form::float({
 			"name"=>$name,
 			"value"=>$value,
 			"maxlength"=>$maxlength,
 			"size"=>$size,
-			"extras"=>$extras
+			"extras"=>$extras,
+			defaultValue=>$defaultValue
 			});
 		$output .= _subtext($subtext);
 		$output = $self->_tableFormRow($label,$output);
 	} else {
 		$output = WebGUI::Form::hidden({
 			"name"=>$name,
-			"value"=>$value
+			"value"=>$value,
+			defaultValue=>$defaultValue
 			});
 	}
 	$self->{_data} .= $output;
@@ -1070,7 +1137,7 @@ sub float {
 
 #-------------------------------------------------------------------
 
-=head2 group ( name [ label, value, size, multiple, extras, subtext, uiLevel, excludeGroups ] )
+=head2 group ( name [, label, value, size, multiple, extras, subtext, uiLevel, excludeGroups, defaultValue ] )
 
 Adds a group pull-down to this form. A group pull down provides a select list that provides name value pairs for all the groups in the WebGUI system.
 
@@ -1084,7 +1151,7 @@ The left column label for this form row.
 
 =head3 value
 
-The default value(s) for this form element. This should be passed as an array reference. Defaults to "7" (Everyone).
+The default value(s) for this form element. This should be passed as an array reference.
 
 =head3 size
 
@@ -1112,13 +1179,17 @@ The UI level for this field. See the WebGUI developer's site for details. Defaul
 
 An array reference containing a list of groups to exclude from the list.
 
+=head3 defaultValue
+
+When no other value is specified, this will be used. Should be passed as an array reference. Defaults to "7" (Everyone).
+
 =cut
 
 sub group {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $excludeGroups) =
-                rearrange([qw(name label value size multiple extras subtext uiLevel excludeGroups)], @p);
+        my ($name, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $excludeGroups, $defaultValue) =
+                rearrange([qw(name label value size multiple extras subtext uiLevel excludeGroups defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
 		if (WebGUI::Grouping::isInGroup(3)) {
 			$subtext = manageIcon("op=listGroups").$subtext;
@@ -1129,7 +1200,8 @@ sub group {
                         "value"=>$value,
                         "multiple"=>$multiple,
                         "extras"=>$extras,
-			excludeGroups=>$excludeGroups
+			excludeGroups=>$excludeGroups,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
@@ -1138,7 +1210,8 @@ sub group {
                 $output = WebGUI::Form::hiddenList({
 			"name"=>$name,
                         "options"=>$hashRef,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1146,7 +1219,7 @@ sub group {
 
 #-------------------------------------------------------------------
 
-=head2 hidden ( name [ value ] )
+=head2 hidden ( name, value [, defaultValue ] )
 
 Adds a hidden row to this form.
 
@@ -1158,20 +1231,25 @@ The name field for this form element.
 
 The default value for this form element.
 
+=head3 defaultValue
+
+If no value is specified, this will be used instead.
+
 =cut
 
 sub hidden {
         my ($self, @p) = @_;
-        my ($name, $value) = rearrange([qw(name value)], @p);
+        my ($name, $value, $defaultValue) = rearrange([qw(name value defaultValue)], @p);
         $self->{_data} .= WebGUI::Form::hidden({
 		"name"=>$name,
-		"value"=>$value
+		"value"=>$value,
+		defaultValue=>$defaultValue
 		});
 }
 
 #-------------------------------------------------------------------
 
-=head2 HTMLArea ( name [ label, value, subtext, extras, wrap, rows, columns, uiLevel, popupToggle ] )
+=head2 HTMLArea ( name [, label, value, subtext, extras, wrap, rows, columns, uiLevel, defaultValue ] )
 
 Adds an HTML area row to this form. An HTML area is different than a standard text area in that it provides rich edit functionality and some special error trapping for HTML and other special characters.
 
@@ -1213,19 +1291,17 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
-=head3 popupToggle
+=head3 defaultValue
 
-Defaults to "0". If set to "1" the rich editor will be a pop-up editor. If set to "0" the rich editor will be inline.
-
-B<NOTE:> WebGUI uses a great variety of rich editors. Not all of them are capable of inline mode, so even if you leave this set to "0" the editor may be a pop-up anyway.
+If no value is specified, this will be used.
 
 =cut
 
 sub HTMLArea {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $subtext, $extras, $wrap, $rows, $columns, $uiLevel, $popupToggle) =
-                rearrange([qw(name label value subtext extras wrap rows columns uiLevel popupToggle)], @p);
+        my ($name, $label, $value, $subtext, $extras, $wrap, $rows, $columns, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value subtext extras wrap rows columns uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::HTMLArea({
                         "name"=>$name,
@@ -1234,14 +1310,15 @@ sub HTMLArea {
                         "columns"=>$columns,
                         "rows"=>$rows,
                         "extras"=>$extras,
-			"popupToggle"=>$popupToggle
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,	
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1249,7 +1326,7 @@ sub HTMLArea {
 
 #-------------------------------------------------------------------
 
-=head2 integer ( name [ label, value, maxlength, extras, subtext, size, uiLevel ] )
+=head2 integer ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] )
 
 Adds an integer row to this form.
 
@@ -1287,27 +1364,33 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+If no value is specified, this will be used.
+
 =cut
 
 sub integer {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel) =
-                rearrange([qw(name label value maxlength extras subtext size uiLevel)], @p);
+        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::integer({
                         "name"=>$name,
                         "value"=>$value,
                         "maxlength"=>$maxlength,
                         "size"=>$size,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			"defaultValue"=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1315,7 +1398,7 @@ sub integer {
 
 #-------------------------------------------------------------------
 
-=head2 interval ( name [ label, intervalValue, unitsValue, extras, subtext, uiLevel ] )
+=head2 interval ( name [, label, value, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a time interval row to this form.
 
@@ -1327,13 +1410,9 @@ The the base name for this form element. This form element actually returns two
 
 The left column label for this form row.
 
-=head3 intervalValue
+=head3 value 
 
-The default value for interval portion of this form element. Defaults to '1'.
-
-=head3 unitsValue
-
-The default value for units portion of this form element. Defaults to 'seconds'. Possible values are 'seconds', 'minutes', 'hours', 'days', 'weeks', 'months', and 'years'.
+The number of seconds in this interval.
 
 =head3 extras
 
@@ -1349,30 +1428,35 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no value is specified, we'll use this instead. Defaults to 1.
+
 =cut
 
 sub interval {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $intervalValue, $unitsValue, $extras, $subtext, $uiLevel) =
-                rearrange([qw(name label intervalValue unitsValue extras subtext uiLevel)], @p);
+        my ($name, $label, $value, $extras, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value extras subtext uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::interval({
                         "name"=>$name,
-                        "intervalValue"=>$intervalValue,
-                        "unitsValue"=>$unitsValue,
-                        "extras"=>$extras
+                        "value"=>$value,
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
+		my ($interval, $units) = WebGUI::DateTime::secondsToInterval($value||$defaultValue||1);
                 $output = WebGUI::Form::hidden({
                         "name"=>$name.'_interval',
-                        "value"=>$intervalValue
+                        "value"=>$interval
                         });
                 $output .= WebGUI::Form::hidden({
                         "name"=>$name.'_units',
-                        "value"=>$unitsValue
+                        "value"=>$units
                         });
         }
         $self->{_data} .= $output;
@@ -1435,7 +1519,7 @@ sub new {
 
 #-------------------------------------------------------------------
 
-=head2 password ( name [ label, value, subtext, maxlength, extras, size, uiLevel ] )
+=head2 password ( name [, label, value, subtext, maxlength, extras, size, uiLevel, defaultValue ] )
 
 Adds a password row to this form. 
 
@@ -1473,27 +1557,33 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+When no value is specified, this will be used instead.
+
 =cut
 
 sub password {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $subtext, $maxlength, $extras, $size, $uiLevel) =
-                rearrange([qw(name label value subtext maxlength extras size uiLevel)], @p);
+        my ($name, $label, $value, $subtext, $maxlength, $extras, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value subtext maxlength extras size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::password({
                         "name"=>$name,
                         "value"=>$value,
                         "size"=>$size,
                         "maxlength"=>$maxlength,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1501,7 +1591,7 @@ sub password {
 
 #-------------------------------------------------------------------
 
-=head2 phone ( name [ label, value, maxlength, extras, subtext, size, uiLevel ] )
+=head2 phone ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] )
 
 Adds a text row to this form.
 
@@ -1539,27 +1629,33 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+If no value is specified, we'll use this instead.
+
 =cut
 
 sub phone {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel) =
-                rearrange([qw(name label value maxlength extras subtext size uiLevel)], @p);
+        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::phone({
                         "name"=>$name,
                         "value"=>$value,
                         "size"=>$size,
                         "maxlength"=>$maxlength,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1591,7 +1687,7 @@ sub printRowsOnly {
 
 #-------------------------------------------------------------------
 
-=head2 radio ( name [ label, checked, value, subtext, extras, uiLevel ] )
+=head2 radio ( name [, label, checked, value, subtext, extras, uiLevel, defaultValue ] )
 
 Adds a radio button row to this form.
 
@@ -1625,19 +1721,24 @@ If you want to add anything special to this form element like javascript actions
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+If no value is specified, we'll use this instead.
+
 =cut
 
 sub radio {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $checked, $value, $subtext, $extras, $uiLevel) =
-                rearrange([qw(name label checked value subtext extras uiLevel)], @p);
+        my ($name, $label, $checked, $value, $subtext, $extras, $uiLevel, $defaultValue) =
+                rearrange([qw(name label checked value subtext extras uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::radio({
                         "name"=>$name,
                         "value"=>$value,
                         "checked"=>$checked,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
@@ -1645,7 +1746,8 @@ sub radio {
 		if ($checked) {
                 	$output = WebGUI::Form::hidden({
                         	"name"=>$name,
-                        	"value"=>$value
+                        	"value"=>$value,
+				defaultValue=>$defaultValue
                         	});
 		}
         }
@@ -1654,7 +1756,7 @@ sub radio {
 
 #-------------------------------------------------------------------
 
-=head2 radioList ( name, options, [ label, value, vertical, extras, subtext, uiLevel ] )
+=head2 radioList ( name, options [, label, value, vertical, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a radio button list row to this form.
 
@@ -1692,28 +1794,33 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+If no other value is specified, we'll use this instead.
+
 =cut
 
 sub radioList {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $options, $label, $value, $vertical, $extras, $subtext, $uiLevel) =
-                rearrange([qw(name options label value vertical extras subtext uiLevel)], @p);
+        my ($name, $options, $label, $value, $vertical, $extras, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(name options label value vertical extras subtext uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::radioList({
                         "name"=>$name,
                         "options"=>$options,
                         "value"=>$value,
                         "vertical"=>$vertical,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
-                $output = WebGUI::Form::hiddenList({
+                $output = WebGUI::Form::hidden({
 			"name"=>$name,
-                        "options"=>$options,
-                        "value"=>[$value]
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1743,7 +1850,7 @@ sub raw {
 
 #-------------------------------------------------------------------
 
-=head2 readOnly ( value [ label, subtext, uiLevel ] )
+=head2 readOnly ( value [, label, subtext, uiLevel, defaultValue ] )
 
 Adds a read only row to this form. This is mainly used for displaying not editable properties, but it can also be used to quickly insert custom form elements.
 
@@ -1763,15 +1870,19 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+If no value is specified, we'll use this.
+
 =cut
 
 sub readOnly {
         my ($output);
         my ($self, @p) = @_;
-        my ($value, $label, $subtext, $uiLevel) =
-                rearrange([qw(value label subtext uiLevel)], @p);
+        my ($value, $label, $subtext, $uiLevel, $defaultValue) =
+                rearrange([qw(value label subtext uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
-                $output = $value;
+                $output = $value || $defaultValue;
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         }
@@ -1779,15 +1890,8 @@ sub readOnly {
 }
 
 #-------------------------------------------------------------------
-#Use of this method is depricated. Use selectList instead.
-sub select {
-	my $self = shift;
-	return $self->selectList(@_);
-}
 
-#-------------------------------------------------------------------
-
-=head2 selectList ( name, options, [ label, value, size, multiple, extras, subtext, uiLevel ] )
+=head2 selectList ( name, options [, label, value, size, multiple, extras, subtext, uiLevel, sortByValue, defaultValue ] )
 
 Adds a select list row to this form.
 
@@ -1833,13 +1937,17 @@ The UI level for this field. See the WebGUI developer's site for details. Defaul
 
 A boolean value for whether the values in the options hash should be sorted.
 
+=head3 defaultValue
+
+If no value is specified, this will be used. Pass as an array reference.
+
 =cut
 
 sub selectList {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $options, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $sortByValue) =
-                rearrange([qw(name options label value size multiple extras subtext uiLevel sortByValue)], @p);
+        my ($name, $options, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $sortByValue, $defaultValue) =
+                rearrange([qw(name options label value size multiple extras subtext uiLevel sortByValue defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::selectList({
                         "name"=>$name,
@@ -1848,7 +1956,8 @@ sub selectList {
                         "multiple"=>$multiple,
                         "size"=>$size,
                         "extras"=>$extras,
-			"sortByValue"=>$sortByValue
+			"sortByValue"=>$sortByValue,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
@@ -1856,7 +1965,8 @@ sub selectList {
                 $output = WebGUI::Form::hiddenList({
 			"name"=>$name,
                         "options"=>$options,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1864,13 +1974,13 @@ sub selectList {
 
 #-------------------------------------------------------------------
 
-=head2 submit ( value [ label, extras, subtext ] )
+=head2 submit ( value [ label, extras, subtext, defaultValue ] )
 
 Adds a submit button row to this form.
 
 =head3 value
 
-The button text for this submit button. Defaults to "save".
+The button text for this submit button.
 
 =head3 label
 
@@ -1886,15 +1996,20 @@ If you want to add anything special to this form element like javascript actions
 
 Extra text to describe this form element or to provide special instructions.
 
+=head3 defaultValue
+
+If no value is specified, this will be used. Defaults to "save".
+
 =cut
 
 sub submit {
         my ($output);
         my ($self, @p) = @_;
-        my ($value, $label, $extras, $subtext) = rearrange([qw(value label extras subtext)], @p);
+        my ($value, $label, $extras, $subtext, $defaultValue) = rearrange([qw(value label extras subtext defaultValue)], @p);
         $output = WebGUI::Form::submit({
                 "value"=>$value,
-                "extras"=>$extras
+                "extras"=>$extras,
+		defaultValue=>$defaultValue
                 });
         $output .= _subtext($subtext);
         $output = $self->_tableFormRow($label,$output);
@@ -1903,7 +2018,7 @@ sub submit {
 
 #-------------------------------------------------------------------
 
-=head2 template ( name [, value, label, namespace, afterEdit, extras, uiLevel ] )
+=head2 template ( name [, value, label, namespace, afterEdit, extras, uiLevel, defaultValue ] )
 
 Adds a template select list to the form.
 
@@ -1921,7 +2036,7 @@ The left column label for this form row.
 
 =head3 namespace
 
-The namespace (or type) of templates to show in this list. Defaults to "Page".
+The namespace (or type) of templates to show in this list. 
 
 =head3 afterEdit
 
@@ -1937,13 +2052,17 @@ If you want to add anything special to this form element like javascript actions
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+If no value is specified, this will be used. 
+
 =cut
 
 sub template {
         my ($output, $subtext);
         my ($self, @p) = @_;
-        my ($name, $value, $label, $namespace, $afterEdit, $extras, $uiLevel) = 
-		rearrange([qw(name value label namespace afterEdit extras uiLevel)], @p);
+        my ($name, $value, $label, $namespace, $afterEdit, $extras, $uiLevel, $defaultValue) = 
+		rearrange([qw(name value label namespace afterEdit extras uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
 		$label = $label || WebGUI::International::get(356);
 		if (WebGUI::Grouping::isInGroup(8)) {
@@ -1956,14 +2075,16 @@ sub template {
                 	"name"=>$name,
                 	"value"=>$value,
                 	"namespace"=>$namespace,
-                	"extras"=>$extras
+                	"extras"=>$extras,
+			defaultValue=>$defaultValue
                 	});
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -1971,7 +2092,7 @@ sub template {
 
 #-------------------------------------------------------------------
 
-=head2 text ( name [ label, value, maxlength, extras, subtext, size, uiLevel ] )
+=head2 text ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] )
 
 Adds a text row to this form.
 
@@ -2009,27 +2130,33 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub text {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel) =
-                rearrange([qw(name label value maxlength extras subtext size uiLevel)], @p);
+        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::text({
                         "name"=>$name,
                         "value"=>$value,
                         "size"=>$size,
                         "maxlength"=>$maxlength,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
         	$output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -2037,7 +2164,7 @@ sub text {
 
 #-------------------------------------------------------------------
 
-=head2 textarea ( name [ label, value, subtext, extras, wrap, rows, columns, uiLevel ] )
+=head2 textarea ( name [, label, value, subtext, extras, wrap, rows, columns, uiLevel, defaultValue ] )
 
 Adds a text area row to this form.
 
@@ -2079,13 +2206,17 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub textarea {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $subtext, $extras, $wrap, $rows, $columns, $uiLevel) =
-                rearrange([qw(name label value subtext extras wrap rows columns uiLevel)], @p);
+        my ($name, $label, $value, $subtext, $extras, $wrap, $rows, $columns, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value subtext extras wrap rows columns uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::textarea({
                         "name"=>$name,
@@ -2093,14 +2224,16 @@ sub textarea {
                         "wrap"=>$wrap,
                         "columns"=>$columns,
                         "rows"=>$rows,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue =>$defaultValue
                         });
                 $output .= _subtext($subtext);
         	$output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -2108,7 +2241,7 @@ sub textarea {
 
 #-------------------------------------------------------------------
 
-=head2 timeField ( name [ label, value, extras, subtext, size, noDate, uiLevel ] )
+=head2 timeField ( name [, label, value, extras, subtext, size, noDate, uiLevel, defaultValue ] )
 
 Adds a date row to this form.
 
@@ -2142,26 +2275,32 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+This will be used if no value is specified.
+
 =cut
 
 sub timeField {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $extras, $subtext, $size, $uiLevel) =
-                rearrange([qw(name label value extras subtext size uiLevel)], @p);
+        my ($name, $label, $value, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value extras subtext size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::time({
                         "name"=>$name,
                         "value"=>$value,
                         "size"=>$size,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>secondsToTime($value)
+                        "value"=>secondsToTime($value),
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -2184,7 +2323,7 @@ sub trClass {
 
 #-------------------------------------------------------------------
 
-=head2 url ( name [ label, value, maxlength, extras, subtext, size, uiLevel ] )
+=head2 url ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] )
 
 Adds a URL row to this form.
 
@@ -2222,27 +2361,31 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
 =cut
 
 sub url {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel) =
-                rearrange([qw(name label value maxlength extras subtext size uiLevel)], @p);
+        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::url({
                         "name"=>$name,
                         "value"=>$value,
                         "size"=>$size,
                         "maxlength"=>$maxlength,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
         	$output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -2250,7 +2393,7 @@ sub url {
 
 #-------------------------------------------------------------------
 
-=head2 whatNext ( options [, value, name, label, subtext, uiLevel, extras ] )
+=head2 whatNext ( options [, value, name, label, subtext, uiLevel, extras, defaultValue ] )
 
 Adds a "What next?" select list to this form for use with chained action forms in WebGUI.
 
@@ -2284,13 +2427,17 @@ If you want to add anything special to this form element like javascript actions
 
  'onChange="this.form.submit()"'
 
+=head3 defaultValue
+
+Used if value is not specified. 
+
 =cut
 
 sub whatNext {
         my ($output);
         my ($self, @p) = @_;
-        my ($options, $value, $name, $label, $subtext, $uiLevel, $extras) =
-                rearrange([qw(options value name label subtext uiLevel extras)], @p);
+        my ($options, $value, $name, $label, $subtext, $uiLevel, $extras, $defaultValue) =
+                rearrange([qw(options value name label subtext uiLevel extras defaultValue)], @p);
 	$uiLevel |= 1;
 	$label |= WebGUI::International::get(744);
         if (_uiLevelChecksOut($uiLevel)) {
@@ -2298,14 +2445,16 @@ sub whatNext {
                         "name"=>$name,
 			"options"=>$options,
                         "value"=>$value,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
                 $output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;
@@ -2313,7 +2462,7 @@ sub whatNext {
 
 #-------------------------------------------------------------------
 
-=head2 yesNo ( name [ label, value, extras, subtext, uiLevel ] )
+=head2 yesNo ( name [, label, value, extras, subtext, uiLevel, defaultValue ] )
 
 Adds a yes/no radio menu to this form.
 
@@ -2327,7 +2476,7 @@ The left column label for this form row.
 
 =head3 value
 
-The default value(s) for this form element. Valid values are "1" and "0". Defaults to "1".
+The default value(s) for this form element. Valid values are "1" and "0". 
 
 =head3 extras
 
@@ -2343,6 +2492,9 @@ Extra text to describe this form element or to provide special instructions.
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+This will be used if value is not specified. Defaults to 1.
 =cut
 
 sub yesNo {
@@ -2370,7 +2522,7 @@ sub yesNo {
 
 #-------------------------------------------------------------------
 
-=head2 zipcode ( name [ label, value, maxlength, extras, subtext, size, uiLevel ] )
+=head2 zipcode ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] )
 
 Adds a zip code row to this form.
 
@@ -2408,27 +2560,33 @@ The number of characters wide this form element should be. There should be no re
 
 The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
 
+=head3 defaultValue
+
+Used if value not specified. 
+
 =cut
 
 sub zipcode {
         my ($output);
         my ($self, @p) = @_;
-        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel) =
-                rearrange([qw(name label value maxlength extras subtext size uiLevel)], @p);
+        my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue) =
+                rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
                 $output = WebGUI::Form::zipcode({
                         "name"=>$name,
                         "value"=>$value,
                         "size"=>$size,
                         "maxlength"=>$maxlength,
-                        "extras"=>$extras
+                        "extras"=>$extras,
+			defaultValue=>$defaultValue
                         });
                 $output .= _subtext($subtext);
         	$output = $self->_tableFormRow($label,$output);
         } else {
                 $output = WebGUI::Form::hidden({
                         "name"=>$name,
-                        "value"=>$value
+                        "value"=>$value,
+			defaultValue=>$defaultValue
                         });
         }
         $self->{_data} .= $output;