loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168, 2009/08/12 20:43:18	version 1.170, 2009/09/08 22:17:02
Line 1356 sub client_form {	Line 1356 sub client_form {
'currentpass' => 'Current Password',	'currentpass' => 'Current Password',
'newpass' => 'New Password',	'newpass' => 'New Password',
'confirmpass' => 'Confirm Password',	'confirmpass' => 'Confirm Password',
'changepass' => 'Save');	'changepass' => 'Save',
	);

my $output = '<form name="client">'	my $output = '<form name="client">'
.&Apache::lonhtmlcommon::start_pick_box();	.&Apache::lonhtmlcommon::start_pick_box();
Line 1565 ENDERROR	Line 1566 ENDERROR
# Inform the user the password has (not?) been changed	# Inform the user the password has (not?) been changed
my $message;	my $message;
if ($result =~ /^ok$/) {	if ($result =~ /^ok$/) {
$message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'<i>'));	$message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'</i>'));
if ($caller eq 'reset_by_email') {	if ($caller eq 'reset_by_email') {
$r->print($message.'<br />');	$r->print($message.'<br />');
} else {	} else {