loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>