--- loncom/interface/lonindexer.pm	2003/02/20 19:41:26	1.61
+++ loncom/interface/lonindexer.pm	2003/03/14 16:12:14	1.62
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.61 2003/02/20 19:41:26 www Exp $
+# $Id: lonindexer.pm,v 1.62 2003/03/14 16:12:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -519,7 +519,7 @@ sub scanDir {
 		my $fext = pop @fileparts;
 		my $ov = pop @fileparts;
 		my $fname = join ('.',@fileparts,$fext);
-		next if (grep /$fname/,@list and $ov =~ /\d+/);
+		next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/);
 	    }
 	}
 
@@ -739,7 +739,7 @@ sub display_line {
 	    (!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn');
 	#
 	$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>");
-	my $metafile = grep /^$filecom[0]\.meta\&/, @list;
+	my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list;
 	my $title;
         if ($ENV{'form.catalogmode'} eq 'interactive') {
 	    $title=$listname;