--- loncom/publisher/lonrights.pm 2004/01/20 21:10:03 1.12 +++ loncom/publisher/lonrights.pm 2005/02/18 23:15:54 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to show and edit custom distribution rights # -# $Id: lonrights.pm,v 1.12 2004/01/20 21:10:03 albertel Exp $ +# $Id: lonrights.pm,v 1.16 2005/02/18 23:15:54 albertel 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; @@ -105,7 +116,7 @@ sub handler { if ($_=~/^form\.action\_(\d+)$/) { my $number=$1; if ($ENV{$_} eq 'delete') { $newrules[$number]=''; } - if (($ENV{$_} eq 'moveup') && ($number>2)) { + if (($ENV{$_} eq 'moveup') && ($number>1)) { my $buffer=$newrules[$number]; $newrules[$number]=$newrules[$number-1]; $newrules[$number-1]=$buffer;