oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixing a useless use of d switch in the zipcode macro

Browse source
This commit is contained in:
Paul Driver 2011-03-31 09:51:58 -05:00
parent 11f7d40070
commit 6793c00861
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Form/Zipcode.pm
View file

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