version 1.6, 2008/01/22 22:37:18
|
version 1.7, 2008/09/11 13:19:28
|
Line 47 sub innercrsdirlist {
|
Line 47 sub innercrsdirlist {
|
unless ($which) { $which=''; } else { $which.='/'; } |
unless ($which) { $which=''; } else { $which.='/'; } |
unless ($path) { $path=''; } else { $path.='/'; } |
unless ($path) { $path=''; } else { $path.='/'; } |
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
|
my $getpropath = 1; |
my @listing=&Apache::lonnet::dirlist |
my @listing=&Apache::lonnet::dirlist |
($which,$crsdata{'domain'},$crsdata{'num'}, |
($which,$crsdata{'domain'},$crsdata{'num'},$getpropath); |
&propath($crsdata{'domain'},$crsdata{'num'})); |
|
foreach (@listing) { |
foreach (@listing) { |
unless ($_=~/^\./) { |
unless ($_=~/^\./) { |
my @unpackline = split (/\&/,$_); |
my @unpackline = split (/\&/,$_); |