Changeset 96

Timestamp:

12/01/04 15:53:28 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Added city and POP list initialization

File:

• trunk/cgi-bin/IPDB.pm (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -34 +34 @@
 our %disp_alloctypes;
 our %list_alloctypes;
+our @citylist;
+our @poplist;
 
 # Let's initialize the globals.
@@ -42 +44 @@
   my $sth;
 
+  # Initialize alloctypes list
   $sth = $dbh->prepare("select type,dispname from alloctypes");
   $sth->execute;
   return (undef,$sth->errstr) if $sth->err;
-
   while (my @data = $sth->fetchrow_array) {
     $disp_alloctypes{$data[0]} = $data[1];
   }
+
+  # City and POP listings
+  $sth = $dbh->prepare("select * from cities");
+  $sth->execute;
+  return (undef,$sth->errstr) if $sth->err;
+  my $i = 0;
+  my $j = 0;
+  while (my @data = $sth->fetchrow_array) {
+    $citylist[$i++] = $data[0];
+    if ($data[1] eq 'y') {
+      $poplist[$j++] = $data[0];
+    }
+  }
+
   return (1,"OK");
 } # end initIPDBGlobals