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; |