loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.93, 2004/02/18 21:15:37	version 1.94, 2004/03/26 19:35:59
Line 47 use strict;	Line 47 use strict;
use Apache::lonnet();	use Apache::lonnet();
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
	use Apache::lonsequence();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonmeta;	use Apache::lonmeta;
use Apache::File;	use Apache::File;
Line 618 sub get_list {	Line 619 sub get_list {

if ($hash{'dirlist_files_'.$luri}) {	if ($hash{'dirlist_files_'.$luri}) {
@list = split(/\n/,$hash{'dirlist_files_'.$luri});	@list = split(/\n/,$hash{'dirlist_files_'.$luri});
	} elsif ($uri=~/\.(page\|sequence)$/) {
	# is a page or a sequence
	@list= &Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri));
	$hash{'dirlist_files_'.$luri} = join("\n",@list);
} else {	} else {
	# is really a directory
@list = &Apache::lonnet::dirlist($uri);	@list = &Apache::lonnet::dirlist($uri);
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
}	}