Changeset 41 for branches


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/stable/cgi-bin/main.cgi

    r39 r41  
    973973    # We'll just have to put up with the oddities caused by SQL (un)sort order
    974974    $sth = $ip_dbh->prepare("select * from poolips where pool='$webvar{alloc_from}'".
    975         " and available='y'");
     975        " and available='y' order by ip");
    976976    $sth->execute;
    977977
     
    979979    my $cidr = $data[1];
    980980
    981     $sth = $ip_dbh->prepare("update poolips set custid='$webvar{custid}',available='n'".
     981    $sth = $ip_dbh->prepare("update poolips set custid='$webvar{custid}',city='$webvar{city}'".
     982        " available='n',description='$webvar{desc}'".
    982983        " where ip='$cidr'");
    983984    $sth->execute;
Note: See TracChangeset for help on using the changeset viewer.