Changeset 564 for trunk/cgi-bin

Timestamp:

12/19/12 16:24:47 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Work in progress, see #5:
Update getTypeList() for new dropdown list requirements

File:

• trunk/cgi-bin/IPDB.pm (modified) (1 diff)

trunk/cgi-bin/IPDB.pm

@@ -550 +550 @@
                                 # really be specified in the call for clarity
   my $tlist;
-  if ($tgroup eq 'p') {
-    # grouping 'p' - primary allocation types.  These include static IP pools (_d and _p),
-    # dynamic-allocation ranges (_e), containers (_c), and the "miscellaneous" cn, in, and en types.
-    $tlist = $dbh->selectall_arrayref("SELECT type,listname FROM alloctypes WHERE listorder < 500 ".
+  if ($tgroup eq 'n') {
+    # grouping 'p' - all netblock types.  These include routed blocks, containers (_c)
+    # and contained (_r) types, dynamic-allocation ranges (_e), static IP pools (_d and _p),
+    # and the "miscellaneous" cn, in, and en types.
+    $tlist = $dbh->selectall_arrayref("SELECT type,listname FROM alloctypes WHERE listorder <= 500 ".
+        "AND type NOT LIKE '_i' ORDER BY listorder", { Slice => {} });
+  } elsif ($tgroup eq 'p') {
+    # grouping 'p' - primary allocation types.  As with 'n' above but without the _r contained types.
+    $tlist = $dbh->selectall_arrayref("SELECT type,listname FROM alloctypes WHERE listorder <= 500 ".
         "AND type NOT LIKE '_i' AND type NOT LIKE '_r' ORDER BY listorder", { Slice => {} });
   } elsif ($tgroup eq 'c') {