--- loncom/publisher/lonrights.pm	2003/03/21 14:13:30	1.7
+++ loncom/publisher/lonrights.pm	2003/03/28 01:53:55	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to show and edit custom distribution rights
 #
-# $Id: lonrights.pm,v 1.7 2003/03/21 14:13:30 www Exp $
+# $Id: lonrights.pm,v 1.9 2003/03/28 01:53:55 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,7 +44,8 @@ sub handler {
   $r->send_http_header;
 
   $r->print(
-     '<html><head><title>LON-CAPA Custom Distribution Rights</title></head>');
+     '<html><head><title>LON-CAPA Custom Distribution Rights</title>'.
+   &Apache::loncommon::coursebrowser_javascript().'</head>');
 
   $r->print(&Apache::loncommon::bodytag('Custom Distribution Rights'));
   $r->rflush();
@@ -152,7 +153,7 @@ sub handler {
           $contents=join('',<$fh>);
           $fh->close();
       }
-      $r->print('<form method="post">');
+      $r->print('<form name="rules" method="post">');
   }
   unless ($contents=~/\<accessrule/s) {
       $contents='<accessrule effect="deny" />';
@@ -199,7 +200,7 @@ ENDSTARTTABLE
   while ($token=$parser->get_token) {
       if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) {
           $rulecounter++;
-	  $r->print('<tr><td align="right">');
+	  $r->print('<tr><td align="right" rowspan="2">');
 # insert, delete, etc
 	  $r->print($rulecounter.'.&nbsp;');
           if ($constructmode) {
@@ -212,7 +213,7 @@ ENDSTARTTABLE
                      'moveup'      => 'Move rule up',
                      'movedown'    => 'Move rule down')));
 	  }
-          $r->print('</td><td>');
+          $r->print('</td><td rowspan="2">');
 # effect
           if ($constructmode) {
              $r->print(&Apache::loncommon::select_form
@@ -254,7 +255,7 @@ ENDSTARTTABLE
               $r->print($rsec);
           }
 
-          $r->print('</td><td>');
+          $r->print('</td><td rowspan="2">');
 # role
           if ($constructmode) {
 	      my %hash=('' => '');
@@ -268,6 +269,15 @@ ENDSTARTTABLE
           } else {
               $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));
           }
+# course selection link
+          $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));
 # close row
           $r->print('</td></tr>');
      }                                       
