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

Diff for /loncom/publisher/lonrights.pm between versions 1.23 and 1.24

version 1.23, 2007/06/22 00:11:22 version 1.24, 2007/07/13 18:35:28
Line 110  sub handler { Line 110  sub handler {
       $rulehash{'domain'}=$env{'user.domain'};         $rulehash{'domain'}=$env{'user.domain'}; 
   }    }
   my $realm='';    my $realm='';
     my $separator = ($rulehash{'type'} eq 'course') ? '_' : '/';
   if ($number) {    if ($number) {
       $realm=$rulehash{'domain'};        $realm=$rulehash{'domain'};
       if ($rulehash{'course'}) {        if ($rulehash{'course'}) {
   $realm.='_'.$rulehash{'course'};    $realm.=$separator.$rulehash{'course'};
       }        }
       if ($rulehash{'section'}) {        if ($rulehash{'section'}) {
   $realm.='_'.$rulehash{'section'};    $realm.=$separator.$rulehash{'section'};
       }        }
   }    }
   $newrules[$number]=$rulehash{'effect'}.':'.    $newrules[$number]=$rulehash{'effect'}.':'.
Line 126  sub handler { Line 127  sub handler {
       foreach my $key (keys(%env)) {        foreach my $key (keys(%env)) {
   next if ($key!~/^form\.action\_(\d+)$/);    next if ($key!~/^form\.action\_(\d+)$/);
   my $number=$1;    my $number=$1;
   if ($env{$key} eq 'delete') { $newrules[$number]=''; }    if ($env{$key} eq 'delete') { splice(@newrules,$number,1); }
   if (($env{$key} eq 'moveup') && ($number>1)) {    if (($env{$key} eq 'moveup') && ($number>1)) {
       my $buffer=$newrules[$number];        @newrules[$number-1,$number] = @newrules[$number,$number-1];
       $newrules[$number]=$newrules[$number-1];  
       $newrules[$number-1]=$buffer;  
   }    }
   if (($env{$key} eq 'movedown') && ($number<$#newrules)) {    if (($env{$key} eq 'movedown') && ($number<$#newrules)) {
       my $buffer=$newrules[$number];        @newrules[$number+1,$number] = @newrules[$number,$number+1];
       $newrules[$number]=$newrules[$number+1];  
       $newrules[$number+1]=$buffer;  
   }    }
   if ($env{$key} eq 'insertabove') {    if ($env{$key} eq 'insertabove') {
       for (my $i=$#newrules;$i>=$number;$i--) {        splice(@newrules,$number,0,'deny');
   $newrules[$i+1]=$newrules[$i];  
       }  
       $newrules[$number]='deny';  
   }    }
   if ($env{$key} eq 'insertbelow') {    if ($env{$key} eq 'insertbelow') {
       for (my $i=$#newrules;$i>$number;$i--) {        splice(@newrules,$number+1,0,'deny');
   $newrules[$i+1]=$newrules[$i];  
       }  
       $newrules[$number+1]='deny';  
   }    }
       }        }
               
Line 185  sub handler { Line 176  sub handler {
   my $colzero=&mt($constructmode?'Edit action':'Rule');    my $colzero=&mt($constructmode?'Edit action':'Rule');
   my %lt=&Apache::lonlocal::texthash('ef' => 'Effect',    my %lt=&Apache::lonlocal::texthash('ef' => 'Effect',
      'do' => 'Domain',       'do' => 'Domain',
      'co' => 'Course',       'co' => 'Course / User',
      'se' => 'Section',       'se' => 'Section',
      'ro' => 'Role');       'ro' => 'Role');
 # ---------------------------------------------------------- Start table output  # ---------------------------------------------------------- Start table output
Line 268  sub handler { Line 259  sub handler {
   
 # ---- realm  # ---- realm
           my $realm=$token->[2]->{'realm'};            my $realm=$token->[2]->{'realm'};
           my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm);            my ($rdom,$rcourse,$rsec);
   $rdom = &LONCAPA::clean_domain($rdom);  
   if ($type eq 'course') {    if ($type eq 'course') {
         ($rdom,$rcourse,$rsec) = split(m{[/_]},$realm,3);
       $rcourse = &LONCAPA::clean_courseid($rcourse);        $rcourse = &LONCAPA::clean_courseid($rcourse);
   } else {    } else {
         ($rdom,$rcourse,$rsec) = split(m{/},$realm,3);
       $rcourse = &LONCAPA::clean_username($rcourse);        $rcourse = &LONCAPA::clean_username($rcourse);
   }    }
   
   
           $r->print('</td><td>');            $r->print('</td><td>');
 # realm domain  # realm domain
           if ($constructmode) {            if ($constructmode) {
Removed from v.1.23  
changed lines
  Added in v.1.24

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