loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.152, 2014/01/24 04:38:14	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 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;