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

Timestamp:

10/08/14 17:17:38 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit 3/mumble for work done intermittently over the past ~year.
See #5, comment 25:

• Update suballocation list/summary; IPDB::listSubs(), main.cgi:showSubs(), and page template

File:

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

trunk/cgi-bin/IPDB.pm

@@ -460 +460 @@
   # Just In Case
   $args{vrf} = '' if !$args{vrf};
-  $args{rdepth} = 1 if !$args{rdepth};
 
   # Snag the allocations for this block
-  my $sth = $dbh->prepare("SELECT cidr,city,type,custid,swip,description".
-        " FROM allocations WHERE parent = ? AND rdepth = ? ORDER BY cidr");
-  $sth->execute($args{block},$args{rdepth});
+  my $sth = $dbh->prepare("SELECT cidr,city,type,custid,swip,description,id,master_id".
+        " FROM allocations WHERE parent_id = ? ORDER BY cidr");
+  $sth->execute($args{parent});
 
   # hack hack hack
@@ -472 +471 @@
 
   my @blocklist;
-  while (my ($cidr,$city,$type,$custid,$swip,$desc) = $sth->fetchrow_array()) {
+  while (my ($cidr,$city,$type,$custid,$swip,$desc,$id) = $sth->fetchrow_array()) {
     $custsth->execute($custid);
     my ($ncust) = $custsth->fetchrow_array();
@@ -484 +483 @@
         desc => $desc,
         hassubs => ($type eq 'rm' || $type =~ /.c/ ? 1 : 0),
+        id => $id,
         );
 #    $row{subblock} = ($type =~ /^.r$/);         # hmf.  wonder why these won't work in the hash declaration...