version 1.246, 2012/05/21 19:01:12
|
version 1.247, 2012/10/29 17:38:56
|
Line 874 sub report_bombs {
|
Line 874 sub report_bombs {
|
$uri = &Apache::lonnet::declutter($uri); |
$uri = &Apache::lonnet::declutter($uri); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
if (!&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
if (!&Apache::lonnet::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
$r->print('<p class="LC_error">'.&mt('Not authorized').'</p>'); |
$r->print('<p class="LC_error">'.&mt('Not authorized').'</p>'); |
return; |
return; |
} |
} |