Changeset 376 for branches

Timestamp:

01/10/08 14:19:02 (17 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Flag blocks tagged with 'SWIP: Yes' (with a star next to the "yes" in
the allocation listing) when they do not actually have data in the
customers table.

File:

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

branches/stable/cgi-bin/main.cgi

@@ -401 +401 @@
   $sth->execute();
 
+  # hack hack hack
+  # set up to flag swip=y records if they don't actually have supporting data in the customers table
+  my $custsth = $ip_dbh->prepare("select count(*) from customers where custid=?");
+
   my $count=0;
   while (my @data = $sth->fetchrow_array()) {
@@ -409 +413 @@
 #    $data[2] =~ s/\s+//g;
 
+    $custsth->execute($data[3]);
+    my ($ncust) = $custsth->fetchrow_array();
+
     # 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>),
         $data[1], $disp_alloctypes{$data[2]}, $data[3], 
-        ($data[4] eq 'y' ? 'Yes' : 'No'), $data[5]);
+        ($data[4] eq 'y' ? ($ncust == 0 ? 'Yes<small>*</small>' : 'Yes') : 'No'), $data[5]);
     # If the allocation is a pool, allow listing of the IPs in the pool.
     if ($data[2] =~ /^.[pd]$/) {