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

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

version 1.5, 2003/03/20 20:58:40 version 1.7, 2003/03/21 14:13:30
Line 99  sub handler { Line 99  sub handler {
               }                }
           }            }
 # edit actions?  # edit actions?
             foreach (keys %ENV) {
         if ($_=~/^form\.action\_(\d+)$/) {
                     my $number=$1;
     if ($ENV{$_} eq 'delete') { $newrules[$number]=''; }
                     if (($ENV{$_} eq 'moveup') && ($number>2)) {
         my $buffer=$newrules[$number];
                         $newrules[$number]=$newrules[$number-1];
                         $newrules[$number-1]=$buffer;
                     }
                     if (($ENV{$_} eq 'movedown') && ($number<$#newrules)) {
         my $buffer=$newrules[$number];
                         $newrules[$number]=$newrules[$number+1];
                         $newrules[$number+1]=$buffer;
                     }
                     if ($ENV{$_} eq 'insertabove') {
         for (my $i=$#newrules;$i>=$number;$i--) {
     $newrules[$i+1]=$newrules[$i];
                         }
                         $newrules[$number]='deny';
                     }
                     if ($ENV{$_} eq 'insertbelow') {
          for (my $i=$#newrules;$i>$number;$i--) {
     $newrules[$i+1]=$newrules[$i];
                         }
                         $newrules[$number+1]='deny';
                    }
         }
             }
   
 # store file  # store file
           my $fh=Apache::File->new('>'.$fn);            my $fh=Apache::File->new('>'.$fn);
Line 144  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>&nbsp;</td><td>');    $r->print('<tr><td align="right">');
     if ($constructmode) {
        $r->print(&Apache::loncommon::select_form('','action_0',
                                     ('' => '',
      'insertbelow' => 'Insert rule below    ')));
                                                   
     } else {
         $r->print('&nbsp;');
     }
     $r->print('</td><td>');
   if ($constructmode) {    if ($constructmode) {
       $r->print(&Apache::loncommon::select_form        $r->print(&Apache::loncommon::select_form
                                  ($token->[2]->{'effect'},'effect_0',                                   ($token->[2]->{'effect'},'effect_0',
Line 162  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 171  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 191  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.5  
changed lines
  Added in v.1.7

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