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); |
} |
} |