forward port of newline/cr bug fix

lib/WebGUI/Form/Combo.pm

@@ -87,7 +87,9 @@ the list.
 sub getValueFromPost {
 	my $self = shift;
 	if ($self->session->form->param($self->get("name")."_new")) {
-		return $self->session->form->param($self->get("name")."_new");
+		my $formValue = $self->session->form->param($self->get("name")."_new");
+		$formValue =~ tr/\r\n//d;
+		return $formValue;
         }
 	return $self->SUPER::getValueFromPost;
 }

lib/WebGUI/Form/Text.pm

@@ -84,6 +84,25 @@ sub definition {
 
 #-------------------------------------------------------------------
 
+=head2 getValueFromPost ( )
+
+Retrieves a value from a form GET or POST and returns it. If the value comes back as undef, this method will return the defaultValue instead.  Strip newlines/carriage returns from the value.
+
+=cut
+
+sub getValueFromPost {
+	my $self = shift;
+	my $formValue = $session{req}->param($self->{name});
+	if (defined $formValue) {
+		$formValue =~ tr/\r\n//d;
+		return $formValue;
+	} else {
+		return $self->{defaultValue};
+	}
+}
+
+#-------------------------------------------------------------------
+
 =head2 toHtml ( )
 
 Renders an input tag of type text.

lib/WebGUI/Form/Url.pm

@@ -86,6 +86,7 @@ Parses the posted value and tries to make corrections if necessary.
 sub getValueFromPost {
 	my $self = shift;
 	my $value = $self->session->form->param($self->get("name"));
+	$value =~ tr/\r\n//d;
      	if ($value =~ /mailto:/) {
                 return $value;
         } elsif ($value =~ /^([A-Z0-9]+[._+-]?){1,}([A-Z0-9]+[_+-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i) {

lib/WebGUI/Form/Zipcode.pm

@@ -86,6 +86,7 @@ Returns a validated form post result. If the result does not pass validation, it
 sub getValueFromPost {
 	my $self = shift;
 	my $value = $self->session->form->param($self->get("name"));
+	$value =~ tr/\r\n//d;
    	if ($value =~ /^[A-Z\d\s\-]+$/) {
                 return $value;
         }