Changeset 563

Timestamp:

12/19/12 16:21:38 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Work in progress, see #5:
Update listPool() to handle the fringes of the new table structures
that touch it.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -507 +507 @@
   my $pool = shift;
 
-  my $sth = $dbh->prepare("SELECT ip,custid,available,description,type".
+  my $sth = $dbh->prepare("SELECT ip,custid,available,description,type,rdepth".
         " FROM poolips WHERE pool = ? ORDER BY ip");
   $sth->execute($pool);
   my @poolips;
-  while (my ($ip,$custid,$available,$desc,$type) = $sth->fetchrow_array) {
+  while (my ($ip,$custid,$available,$desc,$type,$rdepth) = $sth->fetchrow_array) {
     my %row = (
         ip => $ip,
@@ -517 +517 @@
         available => $available,
         desc => $desc,
-        delme => $available eq 'n'
+        delme => $available eq 'n',
+        ipdepth => $rdepth,
         );
     push @poolips, \%row;