Changeset 529 for trunk/cgi-bin/main.cgi

Timestamp:

10/25/12 15:43:55 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up and move SQL behind block assignment page to IPDB.pm. See #34.

File:

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

trunk/cgi-bin/main.cgi

@@ -327 +327 @@
     if ($webvar{fbtype} ne 'y') {
       # Snag the type of the container block from the database.
-      $sth = $ip_dbh->prepare("select type from allocations where cidr >>='$block'");
-      $sth->execute;
-      my @data = $sth->fetchrow_array;
-      $data[0] =~ s/c$/r/;      # Munge the type into the correct form
-      $page->param(fbdisptype => $list_alloctypes{$data[0]});
-      $page->param(type => $data[0]);
+## hmm.  need a flag for parent class/type, sort of?
+      my $pblock = getParent($ip_dbh, $webvar{block});
+      my $ptype = $pblock->{type};
+      $ptype =~ s/c$/r/;
+      $page->param(fbdisptype => $list_alloctypes{$ptype});
+      $page->param(type => $ptype);
     } else {
-      $sth = $ip_dbh->prepare("select type,listname from alloctypes where listorder < 500 ".
-        "and type not like '_i' and type not like '_r' order by listorder");
-      $sth->execute;
-      my @typelist;
-      my $selflag = 0;
-      while (my @data = $sth->fetchrow_array) {
-        my %row = (tval => $data[0],
-                type => $data[1],
-                sel => ($selflag == 0 ? ' selected' : '')
-                );
-        push (@typelist, \%row);
-        $selflag++;
-      }
-      $page->param(typelist => \@typelist);
+      # get "primary" alloctypes, since these are all that can correctly be assigned if we're in this branch
+      my $tlist = getTypeList($ip_dbh, 'p');
+      $tlist->[0]->{sel} = 1;
+      $page->param(typelist => $tlist);
     }
   } else {
@@ -364 +354 @@
     $page->param(pops => \@pops);
 
-    # could arguably include routing (500) in the list, but ATM it doesn't
-    # make sense, and in any case that shouldn't be structurally possible here.
-    $sth = $ip_dbh->prepare("select type,listname from alloctypes where listorder <= 500 order by listorder");
-    $sth->execute;
-    my @typelist;
-    my $selflag = 0;
-    while (my @data = $sth->fetchrow_array) {
-      my %row = (tval => $data[0],
-        type => $data[1],
-        sel => ($selflag == 0 ? ' selected' : '')
-        );
-      push (@typelist, \%row);
-      $selflag++;
-    }
-    $page->param(typelist => \@typelist);
+    # get all standard alloctypes
+    my $tlist = getTypeList($ip_dbh, 'a');
+    $tlist->[0]->{sel} = 1;
+    $page->param(typelist => $tlist);
   }