[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 02 Dec 2002 17:53:25 -0000


albertel		Mon Dec  2 12:53:25 2002 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  - fixes startup warnings
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.52 loncom/interface/lonindexer.pm:1.53
--- loncom/interface/lonindexer.pm:1.52	Wed Aug 21 13:18:08 2002
+++ loncom/interface/lonindexer.pm	Mon Dec  2 12:53:24 2002
@@ -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 @@
     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 @@
 	    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 @@
 # ------------------------------- 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') . '/';