diff options
| author | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-17 15:40:25 +0800 |
|---|---|---|
| committer | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-17 15:40:25 +0800 |
| commit | 7075a6c4130e8eaf48a05b0d8567887b3693c3b3 (patch) | |
| tree | 6d5360608405a0778856e2f8c163a694f2e5672e /config | |
| parent | 0b21c42c19800edc1539ba5e9732a1d9fe4f3454 (diff) | |
Postal codes for both sender & receiver
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, |