Changeset 631 for trunk/cgi-bin

Timestamp:

10/08/14 17:41:59 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Missed main.cgi update for IP pool page in r630. See #5.

File:

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

trunk/cgi-bin/main.cgi

@@ -262 +262 @@
 sub showPool {
 
-  my $cidr = new NetAddr::IP $webvar{pool};
-
-  $page->param(block => $webvar{pool});
+  my $poolinfo = getBlockData($ip_dbh, $webvar{pool});
+  my $cidr = new NetAddr::IP $poolinfo->{block};
+
+  $page->param(block => $cidr);
   $page->param(netip => $cidr->addr);
   $cidr++;
@@ -271 +272 @@
   $page->param(bcast => $cidr->addr);
   $page->param(mask => $cidr->mask);
-
-  # Snag pool info for heading
-  my $poolinfo = getBlockData($ip_dbh, $webvar{pool}, $webvar{rdepth});
 
   $page->param(disptype => $disp_alloctypes{$poolinfo->{type}});