Changeset 167 for trunk/cgi-bin/IPDB.pm

Timestamp:

02/22/05 14:25:58 (19 years ago)

Author:

Kris Deugau

Message:

/trunk

New feature: Different "default" CustIDs depending on the allocation type
consistency-check.pl also updated to check this information.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -22 +22 @@
 @ISA            = qw(Exporter);
 @EXPORT_OK    = qw(
-        %disp_alloctypes %list_alloctypes @citylist @poplist @masterblocks
+        %disp_alloctypes %list_alloctypes %def_custids @citylist @poplist @masterblocks
         %allocated %free %routed %bigfree
         &initIPDBGlobals &connectDB &finish &checkDBSanity &allocateBlock &deleteBlock
@@ -30 +30 @@
 @EXPORT         = (); # Export nothing by default.
 %EXPORT_TAGS    = ( ALL => [qw(
-                %disp_alloctypes %list_alloctypes @citylist @poplist @masterblocks
-                %allocated %free %routed %bigfree
+                %disp_alloctypes %list_alloctypes %def_custids @citylist @poplist
+                @masterblocks %allocated %free %routed %bigfree
                 &initIPDBGlobals &connectDB &finish &checkDBSanity &allocateBlock
                 &deleteBlock &mailNotify
@@ -42 +42 @@
 our %disp_alloctypes;
 our %list_alloctypes;
+our %def_custids;
 our @citylist;
 our @poplist;
@@ -58 +59 @@
 
   # Initialize alloctypes hashes
-  $sth = $dbh->prepare("select type,listname,dispname,listorder from alloctypes order by listorder");
+  $sth = $dbh->prepare("select type,listname,dispname,listorder,def_custid from alloctypes order by listorder");
   $sth->execute;
   while (my @data = $sth->fetchrow_array) {
     $disp_alloctypes{$data[0]} = $data[2];
+    $def_custids{$data[0]} = $data[4];
     if ($data[3] < 900) {
       $list_alloctypes{$data[0]} = $data[1];