From 6793c00861e38301c0281c89bb0aa0990c5b7c6c Mon Sep 17 00:00:00 2001
From: Paul Driver <frodwith@gmail.com>
Date: Thu, 31 Mar 2011 09:51:58 -0500
Subject: [PATCH] Fixing a useless use of d switch in the zipcode macro

---
 lib/WebGUI/Form/Zipcode.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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;
 	}