--- loncom/interface/lonindexer.pm	2004/06/18 01:27:04	1.116
+++ loncom/interface/lonindexer.pm	2004/07/02 08:01:20	1.118
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.116 2004/06/18 01:27:04 www Exp $
+# $Id: lonindexer.pm,v 1.118 2004/07/02 08:01:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,6 +60,7 @@ my %hash; # global user-specific gdbm fi
 my %dirs; # keys are directories, values are the open/close status
 my %language; # has the reference information present in language.tab
 my %dynhash; # hash of hashes for dynamic metadata
+my %dynread; # hash of directories already read for dynamic metadata
 my %fieldnames; # Metadata fieldnames
 # ----- Values which are set by the handler subroutine and are accessible to
 # -----     other methods.
@@ -135,7 +136,8 @@ sub handler {
    if ($ENV{'form.launch'} eq '2') {
        $r->content_type('text/html');
        my $extra='';
-       if (defined($ENV{'form.titleelement'})) {
+       if (defined($ENV{'form.titleelement'}) && 
+	   $ENV{'form.titleelement'} ne '') {
 	   my $verify_title = &Apache::lonnet::gettitle($ENV{'form.acts'});
 #	   &Apache::lonnet::logthis("Hrrm $ENV{'form.acts'} -- $verify_title");
 	   $verify_title=~s/'/\\'/g;
@@ -679,7 +681,6 @@ sub get_list {
 # is really a directory
 	@list = &Apache::lonnet::dirlist($uri);
 	$hash{'dirlist_files_'.$luri} = join("\n",@list);
-	&dynmetaread($uri);
     }
     return @list=&match_ext($r,@list);
 }
@@ -687,8 +688,21 @@ sub get_list {
 sub dynmetaread {
     my $uri=shift;
     if (($hash{'display_attrs_8'}==1) || ($hash{'display_attrs_11'}==1)) {
+# We don't want the filename
+	$uri=~s/\/[^\/]+$//;
+# Did we already see this?
+	my $builddir=$uri;
+	while ($builddir) {
+	    if ($dynread{$builddir}) {
+		return 0;
+	    }
+	    $builddir=~s/\/[^\/]+$//;
+	}
+# Actually get the data
 	%dynhash=
 	    (%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri));
+# Remember that we got it
+	$dynread{$uri}=1;
     } 
 }
 
@@ -985,6 +999,7 @@ sub display_line {
 	}
 	if ($hash{'display_attrs_8'} == 1) {
 # statistics
+	    &dynmetaread($filelink);
 	    $r->print("<td>");
 	    &dynmetaprint($r,$filelink,'count');
 	    &dynmetaprint($r,$filelink,'course');
@@ -1013,6 +1028,7 @@ sub display_line {
 	}
 	if ($hash{'display_attrs_11'} == 1) {
 # links
+	   &dynmetaread($filelink);
 	   $r->print('<td>');
 	   &dynmetaprint($r,$filelink,'goto_list');
 	   &dynmetaprint($r,$filelink,'comefrom_list');