diff options
Diffstat (limited to 'httemplate/misc/xmlhttp-address_standardize.html')
-rw-r--r-- | httemplate/misc/xmlhttp-address_standardize.html | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/httemplate/misc/xmlhttp-address_standardize.html b/httemplate/misc/xmlhttp-address_standardize.html index f53c35fca..e28c06f3a 100644 --- a/httemplate/misc/xmlhttp-address_standardize.html +++ b/httemplate/misc/xmlhttp-address_standardize.html @@ -16,8 +16,15 @@ my %old = %{ decode_json($cgi->param('arg')) } my %new; -foreach my $pre ( '', 'ship_' ) { - next unless ($pre || !$old{onlyship}); +my @prefixes; +if ($old{onlyship}) { + @prefixes = ('ship_'); +} elsif ( $old{same} ) { + @prefixes = (''); +} else { + @prefixes = ('', 'ship_'); +} +foreach my $pre ( @prefixes ) { my $location = { map { $_ => $old{$pre.$_} } |