--- loncom/publisher/lonrights.pm	2003/03/27 20:56:30	1.8
+++ loncom/publisher/lonrights.pm	2005/04/07 06:56:27	1.17
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to show and edit custom distribution rights
 #
-# $Id: lonrights.pm,v 1.8 2003/03/27 20:56:30 www Exp $
+# $Id: lonrights.pm,v 1.17 2005/04/07 06:56:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,15 +32,27 @@ package Apache::lonrights;
 
 use strict;
 use Apache::Constants qw(:common :http);
-use Apache::lonnet();
+use Apache::lonnet;
 use Apache::loncommon();
 use HTML::LCParser;
 use Apache::File;
+use Apache::lonlocal;
 
 sub handler {
 
   my $r=shift;
-  $r->content_type('text/html');
+  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;
 
   $r->print(
@@ -57,16 +69,16 @@ sub handler {
 
 # ============================================================ Modify and store
   if ($constructmode) {
-      if ($ENV{'form.store'}) {
+      if ($env{'form.store'}) {
 	  my @newrules=();
           undef @newrules;
 # read rules from form
-          foreach (keys %ENV) {
+          foreach (keys %env) {
 	      if ($_=~/^form\.effect\_(\d+)$/) {
 		  my $number=$1;
                   my %rulehash=();
                   foreach ('effect','domain','course','section','role') {
-		      $rulehash{$_}=$ENV{'form.'.$_.'_'.$number};
+		      $rulehash{$_}=$env{'form.'.$_.'_'.$number};
                   }
                   if ($rulehash{'role'} eq 'au') {
 		      $rulehash{'course'}='';
@@ -83,7 +95,7 @@ sub handler {
                   $rulehash{'course'}=~s/\W//g;
                   $rulehash{'section'}=~s/\W//g;
                   unless ($rulehash{'domain'}) { 
-                     $rulehash{'domain'}=$ENV{'user.domain'}; 
+                     $rulehash{'domain'}=$env{'user.domain'}; 
                   }
                   my $realm='';
                   if ($number) {
@@ -100,27 +112,27 @@ sub handler {
               }
           }
 # edit actions?
-          foreach (keys %ENV) {
+          foreach (keys %env) {
 	      if ($_=~/^form\.action\_(\d+)$/) {
                   my $number=$1;
-		  if ($ENV{$_} eq 'delete') { $newrules[$number]=''; }
-                  if (($ENV{$_} eq 'moveup') && ($number>2)) {
+		  if ($env{$_} eq 'delete') { $newrules[$number]=''; }
+                  if (($env{$_} eq 'moveup') && ($number>1)) {
 		      my $buffer=$newrules[$number];
                       $newrules[$number]=$newrules[$number-1];
                       $newrules[$number-1]=$buffer;
                   }
-                  if (($ENV{$_} eq 'movedown') && ($number<$#newrules)) {
+                  if (($env{$_} eq 'movedown') && ($number<$#newrules)) {
 		      my $buffer=$newrules[$number];
                       $newrules[$number]=$newrules[$number+1];
                       $newrules[$number+1]=$buffer;
                   }
-                  if ($ENV{$_} eq 'insertabove') {
+                  if ($env{$_} eq 'insertabove') {
 		      for (my $i=$#newrules;$i>=$number;$i--) {
 			  $newrules[$i+1]=$newrules[$i];
                       }
                       $newrules[$number]='deny';
                   }
-                  if ($ENV{$_} eq 'insertbelow') {
+                  if ($env{$_} eq 'insertbelow') {
  		      for (my $i=$#newrules;$i>$number;$i--) {
 			  $newrules[$i+1]=$newrules[$i];
                       }
@@ -161,12 +173,17 @@ sub handler {
   my $parser=HTML::LCParser->new(\$contents);
   my $token;
   my $rulecounter=0;
-  my $colzero=($constructmode?'Edit action':'Rule');
+  my $colzero=&mt($constructmode?'Edit action':'Rule');
+  my %lt=&Apache::lonlocal::texthash('ef' => 'Effect',
+				     'do' => 'Domain',
+				     'co' => 'Course',
+				     'se' => 'Section/Group',
+				     'ro' => 'Role');
 # ---------------------------------------------------------- Start table output
   $r->print(<<ENDSTARTTABLE);
 <table border="2">
-    <tr><th>$colzero</th><th>Effect</th><th>Domain</th><th>Course</th>
-<th>Section</th><th>Role</th></tr>
+    <tr><th>$colzero</th><th>$lt{'ef'}</th><th>$lt{'do'}</th><th>$lt{'co'}</th>
+<th>$lt{'se'}</th><th>$lt{'ro'}</th></tr>
 ENDSTARTTABLE
 # --------------------------------------------------------------------- Default
 # Fast forward to first rule
@@ -193,7 +210,8 @@ ENDSTARTTABLE
   }
   $r->print('</td><td colspan="4">Default');
   if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) {
-      $r->print(' - <font color="red">Error! No default set.</font>');
+      $r->print(' - <font color="red">'.&mt('Error! No default set.').
+		'</font>');
   }
   $r->print('</td></tr>');
 # Additional roles
@@ -231,7 +249,7 @@ ENDSTARTTABLE
           my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm);
 # realm domain
           if ($constructmode) {
-              unless ($rdom) { $rdom=$ENV{'user.domain'}; }
+              unless ($rdom) { $rdom=$env{'user.domain'}; }
               $r->print(&Apache::loncommon::select_dom_form($rdom,
                                                       'domain_'.$rulecounter));
           } else {
@@ -246,7 +264,7 @@ ENDSTARTTABLE
               $r->print($rcourse);
           }
 
-          $r->print('</td><td rowspan="2">');
+          $r->print('</td><td>');
 # realm section
           if ($constructmode) {
              $r->print('<input input type="text" size="5" name="section_'.
@@ -270,14 +288,16 @@ ENDSTARTTABLE
               $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));
           }
 # course selection link
-          $r->print('</td></tr><tr><td colspan="2" align="right">');
+          $r->print('</td></tr><tr><td colspan="3" align="right">');
           if ($rcourse) {
 	      my %descript=
                  &Apache::lonnet::coursedescription($rdom.'_'.$rcourse);
               $r->print($descript{'description'}.'&nbsp;&nbsp;&nbsp;');
           }
-          $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('</td></tr>');
      }                                       
@@ -285,7 +305,7 @@ ENDSTARTTABLE
   $r->print('</table>');
 # ------------------------------------------------------------ End table output
   if ($constructmode) { 
-     $r->print('<input type="submit" name="store" value="Store" /></form>'); 
+     $r->print('<input type="submit" name="store" value="'.&mt('Store').'" /></form>'); 
   }
   $r->print('</body></html>');
   return OK;