|
version 1.13, 2020/03/18 19:42:53
|
version 1.17, 2024/04/15 23:57:21
|
|
Line 30 package Apache::lonlogin;
|
Line 30 package Apache::lonlogin;
|
| |
|
| use strict; |
use strict; |
| use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
| use Apache::File (); |
use Apache::File(); |
| use Apache::lonnet; |
use Apache::lonnet; |
| use Apache::loncommon(); |
use Apache::loncommon(); |
| use Apache::lonauth(); |
use Apache::lonauth(); |
|
Line 83 sub handler {
|
Line 83 sub handler {
|
| &Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
| my $dest = '/adm/roles'; |
my $dest = '/adm/roles'; |
| if ($env{'form.role'}) { |
if ($env{'form.role'}) { |
| $dest .= '?selectrole=1&'.$env{'form.role'}.'=1'; |
$dest .= '?selectrole=1&'.$env{'form.role'}.'=1'; |
| } |
} |
| if ($env{'form.symb'}) { |
if ($env{'form.symb'}) { |
| $dest .= ($dest =~ /\?/) ? '&' : '?'; |
$dest .= ($dest =~ /\?/) ? '&' : '?'; |
|
Line 115 sub handler {
|
Line 115 sub handler {
|
| |
|
| my $textbrowsers=$r->dir_config('lonTextBrowsers'); |
my $textbrowsers=$r->dir_config('lonTextBrowsers'); |
| my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; |
my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; |
| |
|
| foreach (split(/\:/,$textbrowsers)) { |
foreach (split(/\:/,$textbrowsers)) { |
| if ($httpbrowser=~/$_/i) { |
if ($httpbrowser=~/$_/i) { |
| $env{'form.interface'}='textual'; |
$env{'form.interface'}='textual'; |
|
Line 772 ENDBLOCK
|
Line 772 ENDBLOCK
|
| |
|
| sub forgotpwdisplay { |
sub forgotpwdisplay { |
| my (%lt) = @_; |
my (%lt) = @_; |
| my $prompt_for_resetpw = 1; |
my $prompt_for_resetpw = 1; |
| if ($prompt_for_resetpw) { |
if ($prompt_for_resetpw) { |
| return '<br /> <a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />'; |
return '<br /> <a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />'; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / modules / gci