diff --git a/lib/WebGUI/Form/Zipcode.pm b/lib/WebGUI/Form/Zipcode.pm index e523ed06a..bf6aca63b 100644 --- a/lib/WebGUI/Form/Zipcode.pm +++ b/lib/WebGUI/Form/Zipcode.pm @@ -92,9 +92,8 @@ An optional value to use instead of POST input. sub getValue { my $self = shift; - my $value = $self->SUPER::getValue(@_); + my $value = uc $self->SUPER::getValue(@_); $value =~ tr/\r\n//d; - $value =~ tr/a-z/A-Z/d; if ($value =~ /^[A-Z\d\s\-]+$/) { return $value; }