loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.184, 2011/10/25 22:27:11	version 1.185, 2011/10/31 01:20:05
Line 2975 BUTTONS	Line 2975 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/httpd/html/priv/[^/]+/[^/]+/(.*)$\|) {	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
	if ($subdir =~ m{^\Q$londocroot/priv/\E[^/]+/[^/]+/(.*)$}) {
my $innerpath=$1;	my $innerpath=$1;
my ($user,$domain)=	my ($user,$domain)=
&Apache::loncacc::constructaccess($subdir);	&Apache::loncacc::constructaccess($subdir);
Line 3086 sub fileState {	Line 3087 sub fileState {
}	}
my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};	my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
my $subdirpart = $constructionSpaceDir;	my $subdirpart = $constructionSpaceDir;
$subdirpart =~ s/^\/home\/httpd\/html\/priv\/\Q$udom\E\/\Q$uname\E//;	$subdirpart =~ s{^\Q$docroot/priv/$udom/$uname\E}{};
my $resdir = $docroot . '/res/' . $udom . '/' . $uname .	my $resdir = $docroot . '/res/' . $udom . '/' . $uname .
$subdirpart;	$subdirpart;