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

Diff for /loncom/auth/lonacc.pm between versions 1.137 and 1.140

version 1.137, 2011/08/09 01:35:31 version 1.140, 2012/12/04 16:00:42
Line 156  sub get_posted_cgi { Line 156  sub get_posted_cgi {
  for ($i=0;$i<=$#lines;$i++) {   for ($i=0;$i<=$#lines;$i++) {
     if ($lines[$i]=~/^--\Q$contentsep\E/) {      if ($lines[$i]=~/^--\Q$contentsep\E/) {
  if ($name) {   if ($name) {
     $value=~s/[\r\n]+$//;                      chomp($value);
                       if (($r->uri eq '/adm/portfolio') && 
                           ($name eq 'uploaddoc')) {
                           if (length($value) == 1) {
                               $value=~s/[\r\n]$//;
                           }
                       }
                     if (ref($fields) eq 'ARRAY') {                      if (ref($fields) eq 'ARRAY') {
                         next if (!grep(/^\Q$name\E$/,@{$fields}));                          next if (!grep(/^\Q$name\E$/,@{$fields}));
                     }                      }
Line 438  sub handler { Line 444  sub handler {
   
 # ------------------------------------------------------ Check if load balancer   # ------------------------------------------------------ Check if load balancer 
   
         ($is_balancer,$otherserver) =          my $checkexempt;
             &Apache::lonnet::check_loadbalancing($env{'user.name'},          if ($env{'user.loadbalexempt'} eq $r->dir_config('lonHostID')) {
                                                  $env{'user.domain'});              if ($env{'user.loadbalcheck.time'} + 600 > time) {
                   $checkexempt = 1;    
               }
           }
           unless ($checkexempt) {
               ($is_balancer,$otherserver) =
                   &Apache::lonnet::check_loadbalancing($env{'user.name'},
                                                        $env{'user.domain'});
           }
         if ($is_balancer) {          if ($is_balancer) {
             $r->set_handlers('PerlResponseHandler'=>              $r->set_handlers('PerlResponseHandler'=>
                              [\&Apache::switchserver::handler]);                               [\&Apache::switchserver::handler]);
Line 580  sub handler { Line 594  sub handler {
     }      }
             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};;              my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};;
             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};;              my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};;
             if ($requrl =~ m{^/+uploaded/\Q$cdom\E/\Q$cnum\E/docs/.+\.html?$}) {              if ($requrl =~ m{^/+uploaded/\Q$cdom\E/\Q$cnum\E/(docs|supplemental)/.+\.html?$}) {
                 if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {                  if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                     if ($query) {                      if ($query) {
                         &Apache::loncommon::get_unprocessed_cgi($query,['forceedit']);                          &Apache::loncommon::get_unprocessed_cgi($query,['forceedit']);
Removed from v.1.137  
changed lines
  Added in v.1.140

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