loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 {