Changeset 61 for trunk/cgi-bin


Ignore:
Timestamp:
11/11/04 15:49:04 (20 years ago)
Author:
Kris Deugau
Message:

/trunk

Numerous minor bugfixes in logic

  • pool IP types corrected
  • search pages with more than 50 results now work correctly (pushed forward from /branches/stable r53)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/main.cgi

    r51 r61  
    360360    # Fix up types from pools (which are single-char)
    361361    # Fixing the database would be...  painful.  :(
    362     if ($data[2] =~ /^[cdsm]$/) {
     362    if ($data[2] =~ /^[sdcmw]$/) {
    363363      $data[2] .= 'i';
    364364    }
     
    391391        print "<b>$i&nbsp;</b>\n";
    392392      } else {
    393         print qq(<a href="/ip/cgi-bin/main.cgi?page=$i&input=$webvar{input}&action=search">$i</a>&nbsp;\n);
     393        print qq(<a href="/ip/cgi-bin/main.cgi?page=$i&input=$webvar{input}&action=search&searchfor=$webvar{searchfor}">$i</a>&nbsp;\n);
    394394      }
    395395    }
     
    818818#  + Different flavours of netblock
    819819
    820   if ($webvar{alloctype} =~ /^[cdsm]i$/) {
     820  if ($webvar{alloctype} =~ /^[scdmw]i$/) {
    821821    my ($base,undef) = split //, $webvar{alloctype};    # split into individual chars
    822822    my $sql;
Note: See TracChangeset for help on using the changeset viewer.