Index: branches/stable/cgi-bin/admin.cgi
===================================================================
--- branches/stable/cgi-bin/admin.cgi	(revision 505)
+++ branches/stable/cgi-bin/admin.cgi	(revision 506)
@@ -133,7 +133,7 @@
   # OK, we know what we're allocating.
 
-  if ($webvar{cidr} !~ /^\s*(\d{1,3}\.){3}\d{1,3}(\/\d{2})?\s*$/) {
-    printAndExit("Can't allocate something that's not a netblock/ip");
-  }
+#  if ($webvar{cidr} !~ /^\s*(\d{1,3}\.){3}\d{1,3}(\/\d{2})?\s*$/) {
+#    printAndExit("Can't allocate something that's not a netblock/ip");
+#  }
 
   $sth = $ip_dbh->prepare("select def_custid from alloctypes where type='$webvar{alloctype}'");
Index: branches/stable/cgi-bin/extras/db2rwhois.pl
===================================================================
--- branches/stable/cgi-bin/extras/db2rwhois.pl	(revision 505)
+++ branches/stable/cgi-bin/extras/db2rwhois.pl	(revision 506)
@@ -74,5 +74,5 @@
 	"not (cidr <<= '10.0.0.0/8') and ".
 	"not (type = 'wr') and ".
-	"masklen(cidr) <=30 and ".
+	"((masklen(cidr) <=30 and family(cidr)=4) or (masklen(cidr) <=56 and family(cidr)=6)) and ".
 	"cidr <<= ?");
 
Index: branches/stable/cgi-bin/main.cgi
===================================================================
--- branches/stable/cgi-bin/main.cgi	(revision 505)
+++ branches/stable/cgi-bin/main.cgi	(revision 506)
@@ -437,5 +437,5 @@
     # 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,5 +996,5 @@
   # 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 {