[LON-CAPA-cvs] cvs: loncom /publisher lonrights.pm

[www]

www		Thu May 20 09:42:35 2004 EDT

  Modified files:              
    /loncom/publisher	lonrights.pm 
  Log:
  Going back to 1.13 - need to implement source access with the standard
  .meta and default.meta files.
  
  
Index: loncom/publisher/lonrights.pm
diff -u loncom/publisher/lonrights.pm:1.14 loncom/publisher/lonrights.pm:1.15
--- loncom/publisher/lonrights.pm:1.14	Tue May 18 09:44:56 2004
+++ loncom/publisher/lonrights.pm	Thu May 20 09:42:35 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to show and edit custom distribution rights
 #
-# $Id: lonrights.pm,v 1.14 2004/05/18 13:44:56 taceyjo1 Exp $
+# $Id: lonrights.pm,v 1.15 2004/05/20 13:42:35 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -178,14 +178,12 @@
 				     'do' => 'Domain',
 				     'co' => 'Course',
 				     'se' => 'Section/Group',
-				     'ro' => 'Role',
-				     'ua' => 'Use Access',
-				     'sa' => 'Source Access');
+				     'ro' => 'Role');
 # ---------------------------------------------------------- Start table output
   $r->print(<<ENDSTARTTABLE);
 <table border="2">
     <tr><th>$colzero</th><th>$lt{'ef'}</th><th>$lt{'do'}</th><th>$lt{'co'}</th>
-<th>$lt{'se'}</th><th>$lt{'ro'}</th><th>$lt{'ua'}</th><th>$lt{'sa'}</th></tr>
+<th>$lt{'se'}</th><th>$lt{'ro'}</th></tr>
 ENDSTARTTABLE
 # --------------------------------------------------------------------- Default
 # Fast forward to first rule
@@ -210,7 +208,7 @@
   } else {
       $r->print($token->[2]->{'effect'});
   }
-  $r->print('</td><td colspan="6">Default');
+  $r->print('</td><td colspan="4">Default');
   if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) {
       $r->print(' - <font color="red">'.&mt('Error! No default set.').
 		'</font>');
@@ -289,12 +287,6 @@
           } else {
               $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));
           }
-# use access
-        #  if ($constructmode) {
-	     # 
-        #  } else {
-        #      $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));
-        #  }
 # course selection link
           $r->print('</td></tr><tr><td colspan="3" align="right">');
           if ($rcourse) {