Changeset 506 for branches/stable/cgi-bin/main.cgi

Timestamp:

11/15/11 17:20:49 (13 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Minor bugfixes for IPv6

File:

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

branches/stable/cgi-bin/main.cgi

@@ -437 +437 @@
     # Prefix subblocks with "Sub "
     my @row = ( (($data[2] =~ /^.r$/) ? 'Sub ' : '').
-        qq(<a href="/ip/cgi-bin/main.cgi?action=edit&block=$data[0]">$data[0]</a>),
+        qq(<a href="/ip/cgi-bin/main.cgi?action=edit&block=$data[0]&reallyblock=1">$data[0]</a>),
         $data[1], $disp_alloctypes{$data[2]}, $data[3], 
         ($data[4] eq 'y' ? ($ncust == 0 ? 'Yes<small>*</small>' : 'Yes') : 'No'), $data[5]);
@@ -996 +996 @@
   # Two cases:  block is a netblock, or block is a static IP from a pool
   # because I'm lazy, we'll try to make the SELECT's bring out identical)ish) data
-  if ($webvar{block} =~ /\/32$/) {
+  if ($webvar{block} =~ /\/32$/ && !$webvar{reallyblock}) {
     $sql = "select ip,custid,type,city,circuitid,description,notes,modifystamp,privdata,oldcustid from poolips where ip='$webvar{block}'";
   } else {