[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface lonpreferences.pm
raeburn
raeburn@source.lon-capa.org
Thu, 10 Sep 2009 16:24:47 -0000
raeburn Thu Sep 10 16:24:47 2009 EDT
Modified files: (Branch: version_2_9_X)
/loncom/interface lonpreferences.pm
Log:
- Backport 1.171.
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.125.4.3 loncom/interface/lonpreferences.pm:1.125.4.4
--- loncom/interface/lonpreferences.pm:1.125.4.3 Thu Aug 13 17:55:44 2009
+++ loncom/interface/lonpreferences.pm Thu Sep 10 16:24:47 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.125.4.3 2009/08/13 17:55:44 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.125.4.4 2009/09/10 16:24:47 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1554,7 +1554,7 @@
}
}
if (defined($userenv{'discmarkread'})) {
- unless ($userenv{'discdisplay'} eq '') {
+ unless ($userenv{'discmarkread'} eq '') {
$discmark = $userenv{'discmarkread'};
}
}
@@ -1644,11 +1644,11 @@
if (defined($env{'form.discdisp'}) ) {
my $newdisp = $env{'form.newdisp'};
if ($newdisp eq 'unread') {
- $message .=&mt('In discussions: only new posts will be displayed.').'<br />';
+ $message .= &Apache::lonhtmlcommon::confirm_success(&mt('In discussions: only new posts will be displayed.')).'<br />';
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp});
&Apache::lonnet::appenv({'environment.discdisplay' => $newdisp});
} else {
- $message .= &mt('In discussions: all posts will be displayed.').'<br />';
+ $message .= &Apache::lonhtmlcommon::confirm_success(&mt('In discussions: all posts will be displayed.')).'<br />';
&Apache::lonnet::del('environment',['discdisplay']);
&Apache::lonnet::delenv('environment.discdisplay');
}