loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.240, 2010/06/06 02:40:30	version 1.242, 2011/10/24 22:39:18
Line 828 sub handler {	Line 828 sub handler {
{'domain' => $resdomain,}));	{'domain' => $resdomain,}));
$r->print(&pageheader());	$r->print(&pageheader());
&present_editable_metadata($r,$uri,'groups');	&present_editable_metadata($r,$uri,'groups');
} elsif ($uri=~m\|^/~\|) {	} elsif ($uri=~m\|^/priv\|) {
# Construction space	# Construction space
&Apache::lonhtmlcommon::add_breadcrumb({	&Apache::lonhtmlcommon::add_breadcrumb({
'text' => 'Edit Metadata',	'text' => 'Edit Metadata',
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);
}	}