--- loncom/interface/lonsupportreq.pm	2006/07/11 15:37:59	1.36
+++ loncom/interface/lonsupportreq.pm	2006/09/01 21:07:11	1.37
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.36 2006/07/11 15:37:59 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.37 2006/09/01 21:07:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1105,9 +1105,9 @@ sub sort_cats {
     my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_;
     my @unsorted = @{$idsarrayref};
     if (defined($$cat_order{$$codetitles[$num]})) {
-        foreach (@{$$cat_order{$$codetitles[$num]}}) {
-            if (grep/^$_$/,@unsorted) {
-                push @{$sorted}, $_;
+        foreach my $item (@{$$cat_order{$$codetitles[$num]}}) {
+            if (grep/^\Q$item\E$/,@unsorted) {
+                push @{$sorted}, $item;
             }
         }
     } else {