--- loncom/interface/lonindexer.pm	2002/08/21 17:18:08	1.52
+++ loncom/interface/lonindexer.pm	2002/12/02 17:53:24	1.53
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.52 2002/08/21 17:18:08 www Exp $
+# $Id: lonindexer.pm,v 1.53 2002/12/02 17:53:24 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -514,7 +514,7 @@ sub scanDir {
     my %dupdirs = %dirs;
     my @list=&get_list($r,$startdir);
     foreach my $line (@list) {
-	my ($strip,$dom,$foo,$testdir,$foo)=split(/\&/,$line,5); 
+	my ($strip,$dom,undef,$testdir,undef)=split(/\&/,$line,5); 
 	next if $strip =~ /.*\.meta$/;
 	my (@fileparts) = split(/\./,$strip);
 	if ($hash{'display_attrs_7'} != 1) {
@@ -539,7 +539,8 @@ sub scanDir {
 	    while (my ($key,$val)= each %dupdirs) {
 		if ($key eq $compuri and $val eq "open") {
 		    $diropen = "opened";
-		    delete $dupdirs{key},$dirs{$key};
+		    delete($dupdirs{$key});
+		    delete($dirs{$key});
 		}
 	    }
 	}
@@ -625,7 +626,7 @@ sub match_ext {
 # ------------------------------- displays one line in appropriate table format
 sub display_line {
     my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_;
-    my (@pathfn, $fndir, $fnptr);
+    my (@pathfn, $fndir);
     my $dirptr=16384;
     my $fileclr="#ffffe6";
     my $iconpath= $r->dir_config('lonIconsURL') . '/';