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

version 1.13, 2004/01/20 23:03:18 version 1.14, 2004/05/18 13:44:56
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></tr>  <th>$lt{'se'}</th><th>$lt{'ro'}</th><th>$lt{'ua'}</th><th>$lt{'sa'}</th></tr>
 ENDSTARTTABLE  ENDSTARTTABLE
 # --------------------------------------------------------------------- Default  # --------------------------------------------------------------------- Default
 # Fast forward to first rule  # Fast forward to first rule
Line 208  ENDSTARTTABLE Line 210  ENDSTARTTABLE
   } else {    } else {
       $r->print($token->[2]->{'effect'});        $r->print($token->[2]->{'effect'});
   }    }
   $r->print('</td><td colspan="4">Default');    $r->print('</td><td colspan="6">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 287  ENDSTARTTABLE Line 289  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.13  
changed lines
  Added in v.1.14


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