version 1.52, 2005/01/20 21:32:55
|
version 1.53, 2005/02/17 08:29:43
|
Line 567 sub passwordchanger {
|
Line 567 sub passwordchanger {
|
$lkey_npass2= hex($lkey_npass2); |
$lkey_npass2= hex($lkey_npass2); |
# Output javascript to deal with passwords |
# Output javascript to deal with passwords |
# Output DES javascript |
# Output DES javascript |
$r->print("<html><head>"); |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html."<head>"); |
{ |
{ |
my $include = $r->dir_config('lonIncludes'); |
my $include = $r->dir_config('lonIncludes'); |
my $jsh=Apache::File->new($include."/londes.js"); |
my $jsh=Apache::File->new($include."/londes.js"); |
Line 648 sub verify_and_change_password {
|
Line 649 sub verify_and_change_password {
|
# Check for authentication types that allow changing of the password. |
# Check for authentication types that allow changing of the password. |
return if ($currentauth !~ /^(unix|internal):/); |
return if ($currentauth !~ /^(unix|internal):/); |
# |
# |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
$html |
<head> |
<head> |
<title>LON-CAPA Preferences: Change password for $user</title> |
<title>LON-CAPA Preferences: Change password for $user</title> |
</head> |
</head> |
Line 1053 sub handler {
|
Line 1055 sub handler {
|
subroutine => \&toggle_debug, |
subroutine => \&toggle_debug, |
})); |
})); |
} |
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
$html |
<head> |
<head> |
<title>LON-CAPA Preferences</title> |
<title>LON-CAPA Preferences</title> |
</head> |
</head> |