From 3f7029884a03c9b58f850b08ba80113e43d4e329 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=EA=A6=8C=EA=A6=AB=EA=A6=B6=EA=A6=8F=EA=A7=80=EA=A6=A6?=
 =?UTF-8?q?=EA=A6=BF=EA=A6=A7=EA=A6=AE=EA=A6=91=EA=A6=A9=EA=A6=AD=EA=A7=80?=
 <erik@darapsa.co.id>
Date: Sat, 17 Jul 2021 19:51:30 +0800
Subject: Programatically set tracking_number

The transaction data is only being made at this stage, that's why
it didn't work by searching it from the database.
---
 config/pikul_order.tag | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'config')

diff --git a/config/pikul_order.tag b/config/pikul_order.tag
index 181923e..5711c39 100644
--- a/config/pikul_order.tag
+++ b/config/pikul_order.tag
@@ -1,14 +1,8 @@
-UserTag pikul_order Order order_number insurance
+UserTag pikul_order Order order_number shipmode nitems subtotal fname lname address1 address2 city state zip phone_day insurance
 UserTag pikul_order Routine <<EOR
 sub {
-	my ($order_number, $insurance) = @_;
-	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,zip,\
-		phone_day FROM transactions WHERE code='$order_number'",
-		wantarray => 1
-	})->[0]};
+	my ($order_number, $shipmode, $nitems, $subtotal, $fname, $lname, $address1, $address2, $city,
+		$state, $zip, $phone_day, $insurance) = @_;
 	my @parts = split(/ /, $shipmode, 2);
 	my ($table, $service) = split(/_/, shift @parts);
 	my ($company, @provisions, $origin);
-- 
cgit v1.2.3