loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.125.4.1 and 1.125.4.2

version 1.125.4.1, 2009/05/20 15:05:19	version 1.125.4.2, 2009/05/21 16:00:49
Line 687 sub verify_and_change_domcoord {	Line 687 sub verify_and_change_domcoord {
if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }	if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }
&Apache::lonnet::put('environment',\%domcoord);	&Apache::lonnet::put('environment',\%domcoord);
&Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}});	&Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}});
	my $status='';
	if ($domcoord{'domcoord.author'} eq 'blocked') {
	$status=&mt('on');
	} else {
	$status=&mt('off');
	}
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Block access to construction space').'</i>','<tt>'.$status.'</tt>'));	my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Block access to construction space').'</i>','<tt>'.$status.'</tt>'));
$message=&Apache::loncommon::confirmwrapper($message);	$message=&Apache::loncommon::confirmwrapper($message);
$r->print(<<ENDVCSCREEN);	$r->print(<<ENDVCSCREEN);
Line 1509 ENDERROR	Line 1515 ENDERROR
my $result = &Apache::lonnet::changepass	my $result = &Apache::lonnet::changepass
($user,$domain,$currentpass,$newpass1,$homeserver,$caller);	($user,$domain,$currentpass,$newpass1,$homeserver,$caller);
# Inform the user the password has (not?) been changed	# Inform the user the password has (not?) been changed
	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') {
Line 1742 sub verify_and_change_coursepage {	Line 1749 sub verify_and_change_coursepage {
$refpage.'">'.$lt{'dasp'}.'</a></font>';	$refpage.'">'.$lt{'dasp'}.'</a></font>';
}	}
}	}
$message = &Apache::lonhtmlcommon::confirm_success($message)	$message = &Apache::lonhtmlcommon::confirm_success($message);
$r->print(<<ENDVCSCREEN);	$r->print(<<ENDVCSCREEN);
$message	$message
ENDVCSCREEN	ENDVCSCREEN

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.125.4.1
changed lines
	Added in v.1.125.4.2