[BACK]Return to lonrights.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonrights.pm between versions 1.14 and 1.15

version 1.14, 2004/05/18 13:44:56 version 1.15, 2004/05/20 13:42:35
Line 178  sub handler { Line 178  sub handler {
      'do' => 'Domain',       'do' => 'Domain',
      'co' => 'Course',       'co' => 'Course',
      'se' => 'Section/Group',       'se' => 'Section/Group',
      'ro' => 'Role',       'ro' => 'Role');
      'ua' => 'Use Access',  
      'sa' => 'Source Access');  
 # ---------------------------------------------------------- Start table output  # ---------------------------------------------------------- Start table output
   $r->print(<<ENDSTARTTABLE);    $r->print(<<ENDSTARTTABLE);
 <table border="2">  <table border="2">
     <tr><th>$colzero</th><th>$lt{'ef'}</th><th>$lt{'do'}</th><th>$lt{'co'}</th>      <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  ENDSTARTTABLE
 # --------------------------------------------------------------------- Default  # --------------------------------------------------------------------- Default
 # Fast forward to first rule  # Fast forward to first rule
Line 210  ENDSTARTTABLE Line 208  ENDSTARTTABLE
   } else {    } else {
       $r->print($token->[2]->{'effect'});        $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'})) {    if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) {
       $r->print(' - <font color="red">'.&mt('Error! No default set.').        $r->print(' - <font color="red">'.&mt('Error! No default set.').
  '</font>');   '</font>');
Line 289  ENDSTARTTABLE Line 287  ENDSTARTTABLE
           } else {            } else {
               $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));                $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));
           }            }
 # use access  
         #  if ($constructmode) {  
      #   
         #  } else {  
         #      $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));  
         #  }  
 # course selection link  # course selection link
           $r->print('</td></tr><tr><td colspan="3" align="right">');            $r->print('</td></tr><tr><td colspan="3" align="right">');
           if ($rcourse) {            if ($rcourse) {
Removed from v.1.14  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>