Revert "Programatically set tracking_number"

This reverts commit 3f7029884a03c9b58f850b08ba80113e43d4e329.

1 files changed, 9 insertions, 3 deletions

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