version 1.38, 2003/09/21 21:40:06
|
version 1.39, 2003/11/12 21:37:07
|
Line 49 use Apache::lonratedt;
|
Line 49 use Apache::lonratedt;
|
use Apache::londocs; |
use Apache::londocs; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
# -------------------------------------------- Return path to profile directory |
|
|
|
sub propath { |
|
my ($udom,$uname)=@_; |
|
$udom=~s/\W//g; |
|
$uname=~s/\W//g; |
|
my $subdir=$uname.'__'; |
|
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/; |
|
my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname"; |
|
return $proname; |
|
} |
|
|
|
# ================================================ Get course directory listing |
# ================================================ Get course directory listing |
|
|
sub crsdirlist { |
sub crsdirlist { |
Line 69 sub crsdirlist {
|
Line 57 sub crsdirlist {
|
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'}, |
&propath($crsdata{'domain'},$crsdata{'num'})); |
&Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'})); |
my @output=(); |
my @output=(); |
foreach (@listing) { |
foreach (@listing) { |
unless ($_=~/^\./) { |
unless ($_=~/^\./) { |