version 1.62, 2004/07/01 21:54:24
|
version 1.63, 2004/07/02 00:27:44
|
Line 53 sub crsdirlist {
|
Line 53 sub crsdirlist {
|
sub innercrsdirlist { |
sub innercrsdirlist { |
my ($courseid,$which,$path)=@_; |
my ($courseid,$which,$path)=@_; |
my $dirptr=16384; |
my $dirptr=16384; |
unless ($which) { $which=''; } |
unless ($which) { $which=''; } else { $which.='/'; } |
unless ($path) { $path=''; } |
unless ($path) { $path=''; } else { $path.='/'; } |
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
my @listing=&Apache::lonnet::dirlist |
my @listing=&Apache::lonnet::dirlist |
($which,$crsdata{'domain'},$crsdata{'num'}, |
($which,$crsdata{'domain'},$crsdata{'num'}, |
Line 64 sub innercrsdirlist {
|
Line 64 sub innercrsdirlist {
|
my @unpackline = split (/\&/,$_); |
my @unpackline = split (/\&/,$_); |
if ($unpackline[3]&$dirptr) { |
if ($unpackline[3]&$dirptr) { |
# is a directory, recurse |
# is a directory, recurse |
&innercrsdirlist($courseid,$which.'/'.$unpackline[0], |
&innercrsdirlist($courseid,$which.$unpackline[0], |
$path.'/'.$unpackline[0]); |
$path.$unpackline[0]); |
} else { |
} else { |
# is a file, put into output |
# is a file, put into output |
push (@output,$path.'/'.$unpackline[0]); |
push (@output,$path.$unpackline[0]); |
} |
} |
} |
} |
} |
} |