loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.120, 2004/07/15 14:47:31	version 1.121, 2004/07/26 22:38:16
Line 662 sub get_list {	Line 662 sub get_list {
if ($ENV{'form.updatedisplay'}) {	if ($ENV{'form.updatedisplay'}) {
foreach (keys %hash) {	foreach (keys %hash) {
delete $hash{$_} if ($_ =~ /^dirlist_files_/);	delete $hash{$_} if ($_ =~ /^dirlist_files_/);
	delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/);
}	}
}	}

if ($hash{'dirlist_files_'.$luri}) {	if (defined($hash{'dirlist_files_'.$luri}) &&
	$hash{'dirlist_timestamp_files_'.$luri}+600 > (time)) {
	&Apache::lonnet::logthis("using old n:".time." s:".$hash{'dirlist_timestamp_files_'.$luri});
@list = split(/\n/,$hash{'dirlist_files_'.$luri});	@list = split(/\n/,$hash{'dirlist_files_'.$luri});
} elsif ($uri=~/\.(page\|sequence)\/$/) {	} elsif ($uri=~/\.(page\|sequence)\/$/) {
# is a page or a sequence	# is a page or a sequence
Line 679 sub get_list {	Line 682 sub get_list {
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
} else {	} else {
# is really a directory	# is really a directory
	&Apache::lonnet::logthis("getting fresh n:".time." s:".$hash{'dirlist_timestamp_files_'.$luri});
@list = &Apache::lonnet::dirlist($uri);	@list = &Apache::lonnet::dirlist($uri);
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
	$hash{'dirlist_timestamp_files_'.$luri} = time;
}	}
return @list=&match_ext($r,@list);	return @list=&match_ext($r,@list);
}	}