loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.241, 2011/10/22 22:16:07	version 1.242, 2011/10/24 22:39:18
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('/~'.$author.'/',$domain)) {	if (&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) {
if ($env{'form.clearbombs'}) {	if ($env{'form.clearbombs'}) {
&Apache::lonmsg::clear_author_res_msg($uri);	&Apache::lonmsg::clear_author_res_msg($uri);
}	}