loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.85, 2004/08/12 05:44:36	version 1.86, 2004/08/12 07:45:03
Line 2548 sub fileState {	Line 2548 sub fileState {
my $constructionSpaceDir = shift;	my $constructionSpaceDir = shift;
my $file = shift;	my $file = shift;

	my ($uname,$udom)=($ENV{'user.name'},$ENV{'user.domain'});
	if ($ENV{'request.role'}=~/^ca\./) {
	(undef,$udom,$uname)=split(/\//,$ENV{'request.role'});
	}
my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};	my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
my $subdirpart = $constructionSpaceDir;	my $subdirpart = $constructionSpaceDir;
$subdirpart =~ s/^\/home\/$ENV{'user.name'}\/public_html//;	$subdirpart =~ s/^\/home\/$uname\/public_html//;
my $resdir = $docroot . '/res/' . $ENV{'user.domain'} . '/' . $ENV{'user.name'} .	my $resdir = $docroot . '/res/' . $udom . '/' . $uname .
$subdirpart;	$subdirpart;

my @constructionSpaceFileStat = stat($constructionSpaceDir . '/' . $file);	my @constructionSpaceFileStat = stat($constructionSpaceDir . '/' . $file);