diff options
Diffstat (limited to 'config')
| -rw-r--r-- | config/pikul_order.tag | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/config/pikul_order.tag b/config/pikul_order.tag index 6f22e1d..181923e 100644 --- a/config/pikul_order.tag +++ b/config/pikul_order.tag @@ -2,10 +2,11 @@ UserTag pikul_order Order order_number insurance UserTag pikul_order Routine <<EOR sub { my ($order_number, $insurance) = @_; - my ($shipmode, $nitems, $subtotal, $fname, $lname, $address1, $address2, $city, $state, $phone_day) + my ($shipmode, $nitems, $subtotal, $fname, $lname, $address1, $address2, $city, $state, $zip, + $phone_day) = @{$Tag->query({ - sql => "SELECT shipmode,nitems,subtotal,fname,lname,address1,address2,city,state,phone_day \ - FROM transactions WHERE code='$order_number'", + sql => "SELECT shipmode,nitems,subtotal,fname,lname,address1,address2,city,state,zip,\ + phone_day FROM transactions WHERE code='$order_number'", wantarray => 1 })->[0]}; my @parts = split(/ /, $shipmode, 2); @@ -40,6 +41,7 @@ sub { "$::Variable->{PHONE}", $origin, "$::Variable->{ADDRESS}", + "$::Variable->{POSTAL_CODE}", "$fname $lname", $phone_day, $Tag->query({sql => "SELECT code FROM $table WHERE district='$address2' AND city='$city' \ @@ -47,6 +49,7 @@ sub { wantarray => 1 })->[0]->[0], $address1, + $zip, $nitems, \@items, $insurance, |