--- loncom/auth/checkauthen.pm 2005/11/29 21:02:50 1.1 +++ loncom/auth/checkauthen.pm 2006/08/30 21:35:08 1.6 @@ -1,7 +1,7 @@ # The LearningOnline Network # checks for a cokkie to authenticate a user # -# $Id: checkauthen.pm,v 1.1 2005/11/29 21:02:50 albertel Exp $ +# $Id: checkauthen.pm,v 1.6 2006/08/30 21:35:08 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,9 +36,15 @@ use Apache::lonnet; sub handler { my ($r) = @_; + if ($r->auth_type() eq 'Basic') { + return DECLINED; + } my $fail = FORBIDDEN; if ($r->dir_config('lonOtherAuthen') eq 'yes') { - &Apache::lonnet::logthis("other authen"); + if (defined($r->dir_config('lonOtherAuthenType'))) { + $r->auth_type($r->dir_config('lonOtherAuthenType')); + } + #&Apache::lonnet::logthis("other authen"); $fail = DECLINED; } @@ -62,7 +68,6 @@ sub handler { return OK; } } - return $fail; }