From 89e5f9be28448e62e85b2b7d53c9c06c9528cc50 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: Tue, 20 Jul 2021 19:43:32 +0800
Subject: select option are only if select

---
 config/pikul.tag | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/config/pikul.tag b/config/pikul.tag
index 343e50b..3c8f455 100644
--- a/config/pikul.tag
+++ b/config/pikul.tag
@@ -2,6 +2,10 @@ UserTag pikul Order widget extra
 UserTag pikul Routine <<EOR
 sub {
 	my ($widget, $extra) = @_;
+	my $elements;
+	if ($widget eq 'select') {
+		$elements = '<select name="mv_shipmode"' . ($extra ? " $extra" : '') . '>';
+	}
 	my $district = $Tag->value('address2');
 	my $city = $Tag->value('city');
 	my $province = $Tag->value('state');
@@ -9,10 +13,6 @@ sub {
 	for my $item (@{$Carts->{main}}) {
 		$weight += $Tag->data('products', 'weight', $item->{code}) * $item->{quantity};
 	}
-	my $elements;
-	if ($widget eq 'select') {
-		$elements = '<select name="mv_shipmode"' . ($extra ? " $extra" : '') . '>';
-	}
 	use Pikul;
 	for (my $company = $::Variable->{PIKUL_ANTERAJA}; $company <= $::Variable->{PIKUL_ANTERAJA};
 		$company++) {
@@ -34,15 +34,19 @@ sub {
 		$weight)};
 		Pikul::cleanup();
 		for my $code (@codes) {
-			$elements .= q(
+			if ($widget eq 'select') {
+				$elements .= q(
 												<option value=")
-				. $table . qq(_$code")
-				. ($Tag->value('mv_shipmode') eq $table . "_$code" ? ' selected' : '')
-				. ">$table&nbsp;$code</option>";
+					. $table . qq(_$code")
+					. ($Tag->value('mv_shipmode') eq $table . "_$code" ? ' selected' : '')
+					. ">$table&nbsp;$code</option>";
+			}
 		}
 	}
-	$elements .= q(
+	if ($widget eq 'select') {
+		$elements .= q(
 											</select>);
+	}
 	return $elements;
 }
 EOR
-- 
cgit v1.2.3