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

Diff for /loncom/publisher/lonrights.pm between versions 1.29 and 1.30

version 1.29, 2009/12/02 18:33:35 version 1.30, 2010/06/06 02:40:44
Line 210  sub handler { Line 210  sub handler {
   $r->print(&Apache::loncommon::start_data_table_row().'<td align="right">');    $r->print(&Apache::loncommon::start_data_table_row().'<td align="right">');
   if ($constructmode) {    if ($constructmode) {
      $r->print(&Apache::loncommon::select_form('','action_0',       $r->print(&Apache::loncommon::select_form('','action_0',
                                   ('' => '',                                    {'' => '',
                                    'insertbelow' => &mt('Insert rule below'))));                                     'insertbelow' => &mt('Insert rule below')}));
                                                                                                   
   } else {    } else {
       $r->print('&nbsp;');        $r->print('&nbsp;');
   }    }
   $r->print('</td><td>');    $r->print('</td><td>');
   if ($constructmode) {    if ($constructmode) {
       $r->print(&Apache::loncommon::select_form        my %lt = &Apache::lonlocal::texthash
                                  ($token->[2]->{'effect'},'effect_0',  
                                   &Apache::lonlocal::texthash  
                                    ('allow' => 'allow',                                     ('allow' => 'allow',
                                     'deny'  => 'deny')));                                      'deny'  => 'deny');
         $r->print(&Apache::loncommon::select_form
                                    ($token->[2]->{'effect'},'effect_0',\%lt));
   } else {    } else {
       $r->print($token->[2]->{'effect'});        $r->print($token->[2]->{'effect'});
   }    }
Line 241  sub handler { Line 241  sub handler {
 # insert, delete, etc  # insert, delete, etc
   $r->print('<span class="LC_nobreak">'.$rulecounter.'. ');    $r->print('<span class="LC_nobreak">'.$rulecounter.'. ');
           if ($constructmode) {            if ($constructmode) {
                my %lt = &Apache::lonlocal::texthash
                             ('' => '',
                              'delete' => 'Delete this rule',
                              'insertabove' => 'Insert rule above',
                              'insertbelow' => 'Insert rule below',
                              'moveup'      => 'Move rule up',
                              'movedown'    => 'Move rule down'
                              );
   
              $r->print(&Apache::loncommon::select_form(               $r->print(&Apache::loncommon::select_form(
                     '','action_'.$rulecounter,                      '','action_'.$rulecounter,\%lt));
                     &Apache::lonlocal::texthash  
                     ('' => '',   
                      'delete' => 'Delete this rule',  
                      'insertabove' => 'Insert rule above',  
                      'insertbelow' => 'Insert rule below',  
                      'moveup'      => 'Move rule up',  
                      'movedown'    => 'Move rule down')));  
   }    }
           $r->print('</span></td>'.            $r->print('</span></td>'.
     '<td rowspan="2">');      '<td rowspan="2">');
 # effect  # effect
           if ($constructmode) {            if ($constructmode) {
                my %lt = &Apache::lonlocal::texthash
                                ('allow' => 'allow',
                                 'deny'  => 'deny');
              $r->print(&Apache::loncommon::select_form               $r->print(&Apache::loncommon::select_form
                                  ($token->[2]->{'effect'},                                   ($token->[2]->{'effect'},
                                   'effect_'.$rulecounter,                                    'effect_'.$rulecounter,\%lt));
                                   &Apache::lonlocal::texthash  
                                    ('allow' => 'allow',  
                                     'deny'  => 'deny')));  
           } else {            } else {
              $r->print($token->[2]->{'effect'});               $r->print($token->[2]->{'effect'});
           }            }
Line 269  sub handler { Line 271  sub handler {
   $r->print('</td><td rowspan="2">');    $r->print('</td><td rowspan="2">');
   my $type = ($token->[2]{'type'} || 'course');    my $type = ($token->[2]{'type'} || 'course');
           if ($constructmode) {            if ($constructmode) {
                 my %lt = &Apache::lonlocal::texthash
                              ('course' => 'Course',
                               'user'   => 'User');
               $r->print(&Apache::loncommon::select_form($type,                $r->print(&Apache::loncommon::select_form($type,
  'type_'.$rulecounter,   'type_'.$rulecounter,\%lt));
                             &Apache::lonlocal::texthash  
  ('course' => 'Course',  
  'user'   => 'User')));  
           } else {            } else {
               $r->print($type);                $r->print($type);
           }            }
Line 328  sub handler { Line 330  sub handler {
   my $role=$token->[2]->{'role'};    my $role=$token->[2]->{'role'};
   unless ($role) { $role=''; }    unless ($role) { $role=''; }
   $r->print(&Apache::loncommon::select_form(    $r->print(&Apache::loncommon::select_form(
     $role,'role_'.$rulecounter,%hash));      $role,'role_'.$rulecounter,\%hash));
       } else {        } else {
   $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));    $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));
       }        }
Removed from v.1.29  
changed lines
  Added in v.1.30

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