From 963bf867e6ad092bc26e4822b5edd1a893ffe2ad 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: Wed, 7 Jul 2021 23:17:36 +0800
Subject: Province narrows down city narrows down district

---
 include/checkout/shipping_address | 40 +++++++++++++++++++++++++++++----------
 1 file changed, 30 insertions(+), 10 deletions(-)

(limited to 'include/checkout')

diff --git a/include/checkout/shipping_address b/include/checkout/shipping_address
index e5260f0..0c89e64 100644
--- a/include/checkout/shipping_address
+++ b/include/checkout/shipping_address
@@ -15,20 +15,40 @@
 											<label class="form-label" for="street_shipping">[L]Street[/L]</label>
 											<input class="form-control" type="text" name="address1" placeholder="123 Main St." id="street_shipping" value="[evalue address1]"/>
 										</div>
+										<div class="form-group col-md-8">
+											<label class="form-label" for="province_shipping">[L]City[/L]</label>
+											<select name="state" id="province_shipping" class="form-control" onchange="this.form.submit()">
+												<option value="-- [L]Please select[/L] --">-- [L]Please select[/L] --</option>[perl products]
+my $options = '';
+for my $province (@{$Tag->query({sql => "SELECT province FROM shipping GROUP BY province ORDER BY province"})}) {
+				$options .= qq(
+												<option value="$province->[0]") . ($province->[0] eq $Tag->value({keep => 1, filter => encode_entities, name => 'state'}) ? ' selected' : '') . ">$province->[0]</option>";
+}
+return $options;
+[/perl]
+											</select>
+										</div>
 										<div class="form-group col-md-8">
 											<label class="form-label" for="city_shipping">[L]City[/L]</label>
 											<select name="city" id="city_shipping" class="form-control" onchange="this.form.submit()">
-												<option value="-- [L]Please select[/L] --">-- [L]Please select[/L] --</option>[perl tables="products shipping"]
+												<option value="-- [L]Please select[/L] --">-- [L]Please select[/L] --</option>[perl products]
+my $options = '';
+for my $city (@{$Tag->query({sql => "SELECT city FROM shipping WHERE province='" . $Tag->value({keep => 1, filter => encode_entities, name => 'state'}) . "' GROUP BY city ORDER BY city"})}) {
+				$options .= qq(
+												<option value="$city->[0]") . ($city->[0] eq $Tag->value({keep => 1, filter => encode_entities, name => 'city'}) ? ' selected' : '') . ">$city->[0]</option>";
+}
+return $options;
+[/perl]
+											</select>
+										</div>
+										<div class="form-group col-md-8">
+											<label class="form-label" for="district_shipping">[L]City[/L]</label>
+											<select name="address3" id="district_shipping" class="form-control" onchange="this.form.submit()">
+												<option value="-- [L]Please select[/L] --">-- [L]Please select[/L] --</option>[perl products]
 my $options = '';
-for my $zone_group (@{$Tag->query({sql => "SELECT zone_group FROM cpa GROUP BY zone_group ORDER BY zone_group"})}) {
-$options .= qq(
-												<optgroup label="$zone_group->[0]">);
-	for my $zone (@{$Tag->query({sql => "SELECT zone FROM cpa WHERE zone_group='$zone_group->[0]'"})}) {
-		$options .= qq(
-													<option value="$zone->[0]") . ($zone->[0] eq $Tag->value({keep => 1, filter => encode_entities, name => city}) ? ' selected' : '') . ">$zone->[0]</option>";
-	}
-	$options .= q(
-												</optgroup>);
+for my $district (@{$Tag->query({sql => "SELECT district FROM shipping WHERE city='" . $Tag->value({keep => 1, filter => encode_entities, name => 'address3'}) . "' GROUP BY district ORDER BY district"})}) {
+				$options .= qq(
+												<option value="$district->[0]") . ($district->[0] eq $Tag->value({keep => 1, filter => encode_entities, name => 'district'}) ? ' selected' : '') . ">$district->[0]</option>";
 }
 return $options;
 [/perl]
-- 
cgit v1.2.3