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

Diff for /loncom/auth/lonacc.pm between versions 1.151 and 1.154

version 1.151, 2014/01/04 23:21:22 version 1.154, 2014/03/10 02:07:01
Line 160  sub get_posted_cgi { Line 160  sub get_posted_cgi {
                         if (length($value) == 1) {                          if (length($value) == 1) {
                             $value=~s/[\r\n]$//;                              $value=~s/[\r\n]$//;
                         }                          }
                       } elsif ($fname =~ /\.(xls|doc|ppt)x$/i) {
                           $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 365  sub sso_login { Line 367  sub sso_login {
                 }                  }
             }              }
             unless ($info{'symb'}) {              unless ($info{'symb'}) {
                 unless ($r->uri eq '/adm/roles') {                  unless (($r->uri eq '/adm/roles') || ($r->uri eq '/adm/sso')) {
                     $info{'origurl'} = $r->uri;                       $info{'origurl'} = $r->uri; 
                 }                  }
             }              }
Line 402  sub sso_login { Line 404  sub sso_login {
             }              }
         }          }
         if (grep(/^sso$/,@cancreate)) {          if (grep(/^sso$/,@cancreate)) {
             $r->internal_redirect('/adm/createaccount');              $r->set_handlers('PerlHandler'=>
                        [\&Apache::createaccount::handler]);
               $r->handler('perl-script');
         } else {          } else {
     $r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect'));      $r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect'));
               $r->set_handlers('PerlHandler'=> undef);
         }          }
  $r->set_handlers('PerlHandler'=> undef);  
  return OK;   return OK;
     }      }
     return undef;      return undef;
Line 530  sub handler { Line 534  sub handler {
             if ($otherserver ne '') {              if ($otherserver ne '') {
                 $env{'form.otherserver'} = $otherserver;                  $env{'form.otherserver'} = $otherserver;
             }              }
               unless (($env{'form.origurl'}) || ($r->uri eq '/adm/roles') ||
                       ($r->uri eq '/adm/switchserver') || ($r->uri eq '/adm/sso')) {
                   $env{'form.origurl'} = $r->uri;
               }
         }          }
   
 # ---------------------------------------------------------------- Check access  # ---------------------------------------------------------------- Check access
Removed from v.1.151  
changed lines
  Added in v.1.154

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