[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.6

version 1.5, 2003/03/20 20:58:40 version 1.6, 2003/03/20 21:47:57
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>');
     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',
Removed from v.1.5  
changed lines
  Added in v.1.6

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