--- loncom/interface/lonpreferences.pm 2009/05/20 15:05:19 1.125.4.1
+++ loncom/interface/lonpreferences.pm 2009/05/21 16:00:49 1.125.4.2
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.125.4.1 2009/05/20 15:05:19 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.125.4.2 2009/05/21 16:00:49 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -687,6 +687,12 @@ sub verify_and_change_domcoord {
if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }
&Apache::lonnet::put('environment',\%domcoord);
&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]',''.&mt('Block access to construction space').'',''.$status.''));
$message=&Apache::loncommon::confirmwrapper($message);
$r->print(<'.$user.''));
if ($caller eq 'reset_by_email') {
@@ -1742,7 +1749,7 @@ sub verify_and_change_coursepage {
$refpage.'">'.$lt{'dasp'}.'';
}
}
- $message = &Apache::lonhtmlcommon::confirm_success($message)
+ $message = &Apache::lonhtmlcommon::confirm_success($message);
$r->print(<