version 1.39, 2004/03/26 17:11:37
|
version 1.40, 2004/03/26 20:26:30
|
Line 658 sub handler {
|
Line 658 sub handler {
|
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
if ($currentauth =~ /^(unix|internal):/) { |
if ($currentauth =~ /^(unix|internal):/) { |
push (@Options,({ action => 'changepass', |
push (@Options,({ action => 'changepass', |
linktext => 'Change password', |
linktext => 'Change Password', |
href => '/adm/preferences', |
href => '/adm/preferences', |
help => 'Change_Password', |
help => 'Change_Password', |
subroutine => \&passwordchanger, |
subroutine => \&passwordchanger, |