loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.116, 2008/03/12 02:45:07	version 1.117, 2008/03/24 04:56:22
Line 1325 ENDERROR	Line 1325 ENDERROR
#	#
if ($caller eq 'reset_by_email') {	if ($caller eq 'reset_by_email') {
my %data = &Apache::lonnet::tmpget($mailtoken);	my %data = &Apache::lonnet::tmpget($mailtoken);
	if (keys(%data) == 0) {
	&passwordchanger($r,
	'<span class="LC_error">'.
	&mt('Could not verify current authentication.').' '.
	&mt('Please try again.').'</span>',$caller,$mailtoken);
	return 1;
	}
if ($currentpass ne $data{'temppasswd'}) {	if ($currentpass ne $data{'temppasswd'}) {
&passwordchanger($r,	&passwordchanger($r,
'<span class="LC_error">'.	'<span class="LC_error">'.