added the hidden list field type

lib/WebGUI/Form/selectList.pm

@@ -16,6 +16,7 @@ package WebGUI::Form::selectList;
 
 use strict;
 use base 'WebGUI::Form::Control';
+use WebGUI::Form::hiddenList;
 use WebGUI::International;
 use WebGUI::Session;
 
@@ -154,7 +155,23 @@ sub toHtml {
         return $output;
 }
 
+#-------------------------------------------------------------------
 
+=head2 toHtmlAsHidden ( )
+
+Creates a series of hidden fields representing the data in the list.
+
+=cut
+
+sub toHtmlAsHidden {
+	my $self = shift;
+	return WebGUI::Form::hiddenList->new(
+		value=>$self->{value},
+		defaultValue=>$self->{defaultValue},
+		name=>$self->{name},
+		options=>$self->{options}
+		)->toHtmlAsHidden;
+}
 
 1;