Changeset 41 for branches

Timestamp:

11/01/04 10:34:17 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Minor bugfixes in static IP allocation - always chose lowest IP,
and actually insert customer data (oops!)

File:

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

branches/stable/cgi-bin/main.cgi

@@ -973 +973 @@
     # We'll just have to put up with the oddities caused by SQL (un)sort order
     $sth = $ip_dbh->prepare("select * from poolips where pool='$webvar{alloc_from}'".
-        " and available='y'");
+        " and available='y' order by ip");
     $sth->execute;
 
@@ -979 +979 @@
     my $cidr = $data[1];
 
-    $sth = $ip_dbh->prepare("update poolips set custid='$webvar{custid}',available='n'".
+    $sth = $ip_dbh->prepare("update poolips set custid='$webvar{custid}',city='$webvar{city}'".
+        " available='n',description='$webvar{desc}'".
         " where ip='$cidr'");
     $sth->execute;