--- loncom/publisher/lonrights.pm 2003/10/13 22:12:55 1.11 +++ loncom/publisher/lonrights.pm 2004/05/20 13:42:35 1.15 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to show and edit custom distribution rights # -# $Id: lonrights.pm,v 1.11 2003/10/13 22:12:55 albertel Exp $ +# $Id: lonrights.pm,v 1.15 2004/05/20 13:42:35 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,6 +41,17 @@ use Apache::lonlocal; sub handler { my $r=shift; + my $target = $ENV{'form.grade_target'}; + if ($target eq 'meta') { + &Apache::loncommon::content_type($r,'text/html'); + $r->send_http_header; + $ENV{'request.uri'}=$r->uri; + my $file = &Apache::lonnet::filelocation("",$r->uri); + my $content=&Apache::lonnet::getfile($file); + my $result=&Apache::lonxml::xmlparse(undef,'meta',$content); + $r->print($result); + return OK; + } &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; @@ -283,8 +294,10 @@ ENDSTARTTABLE &Apache::lonnet::coursedescription($rdom.'_'.$rcourse); $r->print($descript{'description'}.'   '); } - $r->print(&Apache::loncommon::selectcourse_link('rules', - 'course_'.$rulecounter,'domain_'.$rulecounter)); + if ($constructmode) { + $r->print(&Apache::loncommon::selectcourse_link('rules', + 'course_'.$rulecounter,'domain_'.$rulecounter)); + } # close row $r->print(''); }