Changeset 892 for trunk/cgi-bin

Timestamp:

11/01/16 15:10:39 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit tweak to city selection; on allocate-from-freeblock, preselect the
city of the parent

File:

• trunk/cgi-bin/main.cgi (modified) (3 diffs)

trunk/cgi-bin/main.cgi

@@ -508 +508 @@
     my $pinfo = getBlockData($ip_dbh, $webvar{parent});
 
+    my @cities;
+    foreach my $city (@citylist) {
+      my %row = (city => $city, sel => ($pinfo->{city} eq $city) );
+      push (@cities, \%row);
+    }
+    $page->param(preselected => 1);
+    $page->param(citylist => \@cities);
+
     # Tree navigation
     my $crumbs = getBreadCrumbs($ip_dbh, $webvar{parent});
@@ -543 +551 @@
     $page->param(pops => \@pops);
 
+    my @cities;
+    foreach my $city (@citylist) {
+      my %row = (city => $city);
+      push (@cities, \%row);
+    }
+    $page->param(citylist => \@cities);
+
     # get all standard alloctypes
     my $tlist = getTypeList($ip_dbh, 'a');
@@ -548 +563 @@
     $page->param(typelist => $tlist);
   }
-
-  my @cities;
-  foreach my $city (@citylist) {
-    my %row = (city => $city);
-    push (@cities, \%row);
-  }
-  $page->param(citylist => \@cities);
 
 ## node hack