- Timestamp:
- 03/10/05 13:46:49 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/main.cgi
r189 r191 741 741 my @data = $sth->fetchrow_array; 742 742 $data[0] =~ s/c$/r/; # Munge the type into the correct form 743 $typelist = "$ disp_alloctypes{$data[0]}<input type=hidden name=alloctype value=$data[0]>\n";743 $typelist = "$list_alloctypes{$data[0]}<input type=hidden name=alloctype value=$data[0]>\n"; 744 744 } else { 745 745 $typelist .= qq(<select name="alloctype">\n); 746 746 $sth = $ip_dbh->prepare("select type,listname from alloctypes where listorder < 500 ". 747 "and type not like '_i' order by listorder");747 "and type not like '_i' and type not like '_r' order by listorder"); 748 748 $sth->execute; 749 749 my @data = $sth->fetchrow_array;
Note:
See TracChangeset
for help on using the changeset viewer.