--- loncom/interface/lonmsgdisplay.pm 2009/02/25 16:39:54 1.115
+++ loncom/interface/lonmsgdisplay.pm 2009/05/08 12:06:32 1.123
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.115 2009/02/25 16:39:54 hauer Exp $
+# $Id: lonmsgdisplay.pm,v 1.123 2009/05/08 12:06:32 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',
@@ -1187,7 +1190,7 @@ ENDDISHEADER
'" onclick="javascript:validate_checkedaction()"/>'."\n".
'');
my $postedstartdis=$startdis+1;
- $r->print('');
+ $r->print('');
if ($numblocked > 0) {
$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
\%setters));
@@ -1578,7 +1581,7 @@ $wysiwyglink);
$r->print(<<"ENDCOMP");
$attachrow
-$latexHelp
+$latexHelp
$wysiwyglink
$sendmode
@@ -1887,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");
-