diff options
| author | cvs2git <cvs2git> | 2009-10-11 02:42:17 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2009-10-11 02:42:17 +0000 |
| commit | a83a000a027d1272e813259d09230d701d84df64 (patch) | |
| tree | 71500c957e6d7db3e1ad3d59e74ca7bbb14e44ff /httemplate/misc/xmlhttp-cust_main-address_standardize.html | |
| parent | 097a12385d80ef52f37d4cc2bb93bc3f81e6f8e6 (diff) | |
| parent | 0b69c091543b56a45f2ae6b8718fc67f381a6686 (diff) | |
This commit was manufactured by cvs2svn to create branchfreeside_1_9_1
'FREESIDE_1_9_BRANCH'.
Diffstat (limited to 'httemplate/misc/xmlhttp-cust_main-address_standardize.html')
| -rw-r--r-- | httemplate/misc/xmlhttp-cust_main-address_standardize.html | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/httemplate/misc/xmlhttp-cust_main-address_standardize.html b/httemplate/misc/xmlhttp-cust_main-address_standardize.html index 72fa4a464..3b9e142f5 100644 --- a/httemplate/misc/xmlhttp-cust_main-address_standardize.html +++ b/httemplate/misc/xmlhttp-cust_main-address_standardize.html @@ -50,6 +50,9 @@ if ( $sub eq 'address_standardize' ) { unless ( $verifier->is_error ) { + my $zip = $hash->{Zip5}; + $zip .= '-'. $hash->{Zip4} if $hash->{Zip4} =~ /\d/; + $return = { %$return, "new_$pre".'company' => $hash->{FirmName}, @@ -57,7 +60,7 @@ if ( $sub eq 'address_standardize' ) { "new_$pre".'address2' => $hash->{Address1}, "new_$pre".'city' => $hash->{City}, "new_$pre".'state' => $hash->{State}, - "new_$pre".'zip' => $hash->{Zip5}. '-'. $hash->{Zip4}, + "new_$pre".'zip' => $zip, }; my @fields = (qw( company address1 address2 city state zip )); #hmm |