Changeset 627 for trunk/cgi-bin

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

Location:

trunk/cgi-bin

Files:

• IPDB.pm (modified) (3 diffs)
• main.cgi (modified) (1 diff)

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...

trunk/cgi-bin/main.cgi

@@ -244 +244 @@
 # Display blocks immediately within a given parent
 sub showSubs {
-  $page->param(block => $webvar{block});
+  my $pinfo = getBlockData($ip_dbh, $webvar{parent});
+
+  $page->param(del_id => $webvar{parent});
+  $page->param(block => $pinfo->{block});
   $page->param(mayadd => ($IPDBacl{$authuser} =~ /a/));
   $page->param(maydel => ($IPDBacl{$authuser} =~ /d/));
 
-  my $sublist = listSubs($ip_dbh, block => $webvar{block}, rdepth => $webvar{rdepth});
-  $page->param(deldepth => $webvar{rdepth} - 1);
-  $page->param(rdepth => $webvar{rdepth});
-  $page->param(subdepth => $webvar{rdepth} + 1);
+  my $sublist = listSubs($ip_dbh, parent => $webvar{parent});
   $page->param(sublist => $sublist);
 
-  my $flist = listFree($ip_dbh, master => $webvar{block}, rdepth => $webvar{rdepth});
+  my $flist = listFree($ip_dbh, parent => $webvar{parent});
   $page->param(freelist => $flist);
 } # showSubs