Index: /trunk/cgi-bin/main.cgi
===================================================================
--- /trunk/cgi-bin/main.cgi	(revision 190)
+++ /trunk/cgi-bin/main.cgi	(revision 191)
@@ -741,9 +741,9 @@
       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;