--- loncom/interface/lonmsgdisplay.pm 2009/02/04 20:14:45 1.111
+++ loncom/interface/lonmsgdisplay.pm 2009/05/11 16:51:27 1.124
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.111 2009/02/04 20:14:45 weissno Exp $
+# $Id: lonmsgdisplay.pm,v 1.124 2009/05/11 16:51:27 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -136,6 +136,9 @@ sub folderlist {
);
+ # set se lastvisit for the new mail check in the toplevel menu
+ &Apache::lonnet::appenv({'user.mailcheck.lastvisit'=>time});
+
my %actions = &Apache::lonlocal::texthash(
view => 'View Folder',
rename => 'Rename Folder',
@@ -759,7 +762,7 @@ sub discrit {
.'
'
.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.')
.'
'
- .'');
+ $r->print('');
if ($numblocked > 0) {
$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
\%setters));
@@ -1240,7 +1245,7 @@ sub compout {
} elsif ($multiforward) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/email?folder=".&escape($folder),
- text=>"Display all Messages"});
+ text=>"Display All Messages"});
&printheader($r,'/adm/email?compose=multiforward',
'Forwarding Multiple Messages');
if ($multiforward > 1) {
@@ -1576,7 +1581,7 @@ $wysiwyglink);
$r->print(<<"ENDCOMP");
$attachrow
-$latexHelp
+$latexHelp
$wysiwyglink
$sendmode
@@ -1885,21 +1890,23 @@ sub facetoface {
'subm' => 'Retrieve discussion and message records',
'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',
'post' => 'Post this Record');
- $r->print(<<"ENDTREC");
-$lt{'head'}
-
-ENDTREC
+
+ $r->print(''.$lt{'head'}.'
'
+ .'