From b521361bfc18d0fcbe7773018f8f34e1b6900eae Mon Sep 17 00:00:00 2001
From: ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id>
Date: Tue, 20 Jul 2021 00:30:25 +0800
Subject: Tidy up

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

(limited to 'config')

diff --git a/config/pikul_codes.tag b/config/pikul_codes.tag
index 377aad2..4169c0b 100644
--- a/config/pikul_codes.tag
+++ b/config/pikul_codes.tag
@@ -26,11 +26,16 @@ sub {
 	my $elements = '<select name="mv_shipmode" id="ship_widget" class="form-control" onchange="this.form.submit()">';
 	my $mv_shipmode = $Tag->value('mv_shipmode');
 	for my $i (0 .. $#codes) {
-		$elements .= qq!
-												<option name="mv_shipmode" value="$table! . qq!_$codes[$i]"! . ($mv_shipmode ? ($mv_shipmode eq $table . "_$codes[$i]" ? ' selected' : '') : $i ? '' : ' selected') . qq!>$table&nbsp;$codes[$i]</option>!;
+		$elements .= qq(
+												<option name="mv_shipmode" value="$table)
+			. qq(_$codes[$i]")
+			. ($mv_shipmode
+				? ($mv_shipmode eq $table . "_$codes[$i]" ? ' selected' : '')
+				: $i ? '' : ' selected')
+			. ">$table&nbsp;$codes[$i]</option>";
 	}
-	$elements .= q'
-											</select>';
+	$elements .= q(
+											</select>);
 	return $elements;
 }
 EOR
-- 
cgit v1.3