--- loncom/interface/lonmeta.pm 2009/12/01 18:34:02 1.238 +++ loncom/interface/lonmeta.pm 2011/10/24 22:39:18 1.242 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.238 2009/12/01 18:34:02 bisitz Exp $ +# $Id: lonmeta.pm,v 1.242 2011/10/24 22:39:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -638,7 +638,7 @@ sub prettyinput { if ($values) { if ($only_one) { - $output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options)); + $output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,\%meta_options)); } else { $output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options)); } @@ -828,7 +828,7 @@ sub handler { {'domain' => $resdomain,})); $r->print(&pageheader()); &present_editable_metadata($r,$uri,'groups'); - } elsif ($uri=~m|^/~|) { + } elsif ($uri=~m|^/priv|) { # Construction space &Apache::lonhtmlcommon::add_breadcrumb({ 'text' => 'Edit Metadata', @@ -846,10 +846,14 @@ sub handler { 'text' => 'Metadata', 'href' => '', }); - $r->print(&Apache::loncommon::start_page('Metadata', - undef, - {'domain' => $resdomain,})); - $r->print(&pageheader()); + $r->print( + &Apache::loncommon::start_page( + 'Metadata', + undef, + {'domain' => $resdomain, + 'only_body' => 1,}) + .'

'.&mt('Metadata').'

' + ); &present_uneditable_metadata($r,$uri); } $r->print(&Apache::loncommon::end_page()); @@ -870,7 +874,7 @@ sub report_bombs { $uri = &Apache::lonnet::declutter($uri); $r->print('

'.&Apache::lonnet::clutter($uri).'

'); 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'}) { &Apache::lonmsg::clear_author_res_msg($uri); }