diff options
Diffstat (limited to 'config')
| -rw-r--r-- | config/pikul_order.tag | 12 |
1 files changed, 3 insertions, 9 deletions
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); |