--- loncom/publisher/loncfile.pm 2011/10/23 23:46:07 1.110 +++ loncom/publisher/loncfile.pm 2011/10/24 22:39:21 1.111 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.110 2011/10/23 23:46:07 www Exp $ +# $Id: loncfile.pm,v 1.111 2011/10/24 22:39:21 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -189,8 +189,7 @@ sub display { sub obsolete_unpub { my ($user,$domain,$construct)=@_; my $published=$construct; - $published=~ - s/^\/home\/$user\/public\_html\//\/home\/httpd\/html\/res\/$domain\/$user\//; + $published=~s/^\/home\/httpd\/html\/priv\//\/home\/httpd\/html\/res\//; if (-e $published) { if (&Apache::lonnet::metadata($published,'obsolete')) { return 1; @@ -404,16 +403,10 @@ sub relativeDest { while ($newfilename=~m:/\.\./:) { $newfilename=~ s:/[^/]+/\.\./:/:g; #remove dir/.. } - if ($newfilename =~ m{^/home/($match_username)/(?:public\_html|priv)/}) { - my $otheruname = $1; - unless ($otheruname eq $uname) { - my ($authorname,$authordom)= - &Apache::loncacc::constructaccess($newfilename,$env{'request.role.domain'}); - unless (($authorname eq $otheruname) && ($authordom ne '')) { - my $otherdir = &display($newfilename); - $error = &mt('Access denied to [_1]',$otherdir); - } - } + my ($authorname,$authordom)=&Apache::loncacc::constructaccess($newfilename); + unless (($authorname) && ($authordom)) { + my $otherdir = &display($newfilename); + $error = &mt('Access denied to [_1]',$otherdir); } return ($newfilename,$error); } @@ -1445,8 +1438,7 @@ sub handler { my $uname; my $udom; - ($uname,$udom)= - &Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain')); + ($uname,$udom)=&Apache::loncacc::constructaccess($fn); &Debug($r, "loncfile::handler constructaccess uname = $uname domain = $udom"); unless (($uname) && ($udom)) {