summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id>2021-07-17 13:22:04 +0800
committerꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id>2021-07-17 13:22:04 +0800
commitbad203691742aecb781702ad1de4fc6e33fec356 (patch)
treea24af2023ac636270980aa7c9ece4fe904caac40
parent8afdce3692396d8d18c5f40727fe2fc4da6b4792 (diff)
Sometimes there's no array layer from query
-rw-r--r--config/pikul_order.tag2
1 files changed, 1 insertions, 1 deletions
diff --git a/config/pikul_order.tag b/config/pikul_order.tag
index de4f7f2..0aad5c8 100644
--- a/config/pikul_order.tag
+++ b/config/pikul_order.tag
@@ -24,7 +24,7 @@ sub {
my @items = @{$Tag->query({sql => "SELECT sku,quantity FROM orderline WHERE \
order_number='$order_number'",
wantarray => 1
- })->[0]};
+ })};
for my $item (@items) {
($item->[2], $item->[3], $item->[4]) = @{$Tag->query({
sql => "SELECT description,price,weight FROM products WHERE sku='$item->[0]'",