Changeset 191 for trunk/cgi-bin

Timestamp:

03/10/05 13:46:49 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Fixed buglet that would have incorrectly allowed allocation
of a specific free routed block as a 'contained' type

File:

• trunk/cgi-bin/main.cgi (modified) (1 diff)

trunk/cgi-bin/main.cgi

@@ -741 +741 @@
       my @data = $sth->fetchrow_array;
       $data[0] =~ s/c$/r/;      # Munge the type into the correct form
-      $typelist = "$disp_alloctypes{$data[0]}<input type=hidden name=alloctype value=$data[0]>\n";
+      $typelist = "$list_alloctypes{$data[0]}<input type=hidden name=alloctype value=$data[0]>\n";
     } else {
       $typelist .= qq(<select name="alloctype">\n);
       $sth = $ip_dbh->prepare("select type,listname from alloctypes where listorder < 500 ".
-        "and type not like '_i' order by listorder");
+        "and type not like '_i' and type not like '_r' order by listorder");
       $sth->execute;
       my @data = $sth->fetchrow_array;