Province narrows down city narrows down district

1 files changed, 30 insertions, 10 deletions

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
@@ -16,19 +16,39 @@
 											<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]