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

Diff for /loncom/publisher/lonrights.pm between versions 1.6 and 1.7

version 1.6, 2003/03/20 21:47:57 version 1.7, 2003/03/21 14:13:30
Line 172  ENDSTARTTABLE Line 172  ENDSTARTTABLE
   $token=$parser->get_token;    $token=$parser->get_token;
   while ($token->[1] ne 'accessrule') { $token=$parser->get_token; }    while ($token->[1] ne 'accessrule') { $token=$parser->get_token; }
 # print default  # print default
   $r->print('<tr><td>');    $r->print('<tr><td align="right">');
   if ($constructmode) {    if ($constructmode) {
      $r->print(&Apache::loncommon::select_form('','action_0',       $r->print(&Apache::loncommon::select_form('','action_0',
                                       ('' => '',                                    ('' => '',
        'insertbelow' => 'Insert rule below')));     'insertbelow' => 'Insert rule below    ')));
                                                                                                   
   } else {    } else {
       $r->print('&nbsp;');        $r->print('&nbsp;');
Line 199  ENDSTARTTABLE Line 199  ENDSTARTTABLE
   while ($token=$parser->get_token) {    while ($token=$parser->get_token) {
       if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) {        if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) {
           $rulecounter++;            $rulecounter++;
   $r->print('<tr><td>');    $r->print('<tr><td align="right">');
 # insert, delete, etc  # insert, delete, etc
   $r->print($rulecounter.'.&nbsp;');    $r->print($rulecounter.'.&nbsp;');
           if ($constructmode) {            if ($constructmode) {
Line 208  ENDSTARTTABLE Line 208  ENDSTARTTABLE
                     ('' => '',                       ('' => '', 
                      'delete' => 'Delete this rule',                       'delete' => 'Delete this rule',
                      'insertabove' => 'Insert rule above',                       'insertabove' => 'Insert rule above',
                      'insertbelow' => 'Insert rule below',                       'insertbelow' => 'Insert rule below    ',
                      'moveup'      => 'Move rule up',                       'moveup'      => 'Move rule up',
                      'movedown'    => 'Move rule down')));                       'movedown'    => 'Move rule down')));
   }    }
Line 228  ENDSTARTTABLE Line 228  ENDSTARTTABLE
           my $realm=$token->[2]->{'realm'};            my $realm=$token->[2]->{'realm'};
           $realm=~s/^\W//;            $realm=~s/^\W//;
           my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm);            my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm);
 # realm role  # realm domain
           if ($constructmode) {            if ($constructmode) {
                 unless ($rdom) { $rdom=$ENV{'user.domain'}; }
               $r->print(&Apache::loncommon::select_dom_form($rdom,                $r->print(&Apache::loncommon::select_dom_form($rdom,
                                                       'domain_'.$rulecounter));                                                        'domain_'.$rulecounter));
           } else {            } else {
Removed from v.1.6  
changed lines
  Added in v.1.7

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