version 1.109, 2005/07/08 17:32:06
|
version 1.110, 2005/07/12 06:52:48
|
Line 2594 BUTTONS
|
Line 2594 BUTTONS
|
# If the subdirectory is in local CSTR space |
# If the subdirectory is in local CSTR space |
my $metadir; |
my $metadir; |
if ($subdir =~ m|/home/([^/]+)/public_html/(.*)|) { |
if ($subdir =~ m|/home/([^/]+)/public_html/(.*)|) { |
my $user = $1; |
my ($user,$domain)= |
my $domain = $Apache::lonnet::perlvar{'lonDefDomain'}; |
&Apache::loncacc::constructaccess($subdir, |
|
$Apache::lonnet::perlvar{'lonDefDomain'}); |
$metadir='/res/'.$domain.'/'.$user.'/'.$2; |
$metadir='/res/'.$domain.'/'.$user.'/'.$2; |
@fileList = &Apache::lonnet::dirlist($subdir, $domain, $user, ''); |
@fileList = &Apache::lonnet::dirlist($subdir, $domain, $user, ''); |
} elsif ($subdir =~ m|^~([^/]+)/(.*)$|) { |
} elsif ($subdir =~ m|^~([^/]+)/(.*)$|) { |
$subdir='/home/'.$1.'/public_html/'.$2; |
$subdir='/home/'.$1.'/public_html/'.$2; |
my $user = $1; |
my ($user,$domain)= |
my $domain = $Apache::lonnet::perlvar{'lonDefDomain'}; |
&Apache::loncacc::constructaccess($subdir, |
|
$Apache::lonnet::perlvar{'lonDefDomain'}); |
$metadir='/res/'.$domain.'/'.$user.'/'.$2; |
$metadir='/res/'.$domain.'/'.$user.'/'.$2; |
@fileList = &Apache::lonnet::dirlist($subdir, $domain, $user, ''); |
@fileList = &Apache::lonnet::dirlist($subdir, $domain, $user, ''); |
} else { |
} else { |