Changeset 185 for branches/stable/cgi-bin/IPDB.pm

Timestamp:

03/01/05 16:31:04 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Backport SQL/SQL-related bugfixes from /trunk r180 through 184

File:

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

branches/stable/cgi-bin/IPDB.pm

@@ -122 +122 @@
 # Return here if we can't select.  Note that this indicates a
 # problem executing the select.
-  my $sth = $dbh->prepare("select cidr from masterblocks");
+  my $sth = $dbh->prepare("select type from alloctypes");
   $sth->execute();
   return (undef,$DBI::errstr) if ($sth->err);
@@ -156 +156 @@
   } else {
     # it connects, try a stmt.
-    my $sth = $dbh->prepare("select cidr from masterblocks");
+    my $sth = $dbh->prepare("select type from alloctypes");
     my $err = $sth->execute();