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.243, 2011/11/07 20:05: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('/~'.$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);
}	}
Line 1053 sub print_dynamic_metadata {	Line 1053 sub print_dynamic_metadata {
}	}
#	#
# Assessment statistics	# Assessment statistics
if ($uri=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($uri=~/$LONCAPA::assess_re/) {
if (exists($dynmeta{'stdno'}) \|\|	if (exists($dynmeta{'stdno'}) \|\|
exists($dynmeta{'avetries'}) \|\|	exists($dynmeta{'avetries'}) \|\|
exists($dynmeta{'difficulty'}) \|\|	exists($dynmeta{'difficulty'}) \|\|