--- loncom/interface/lonmsg.pm 2004/01/31 02:42:44 1.84
+++ loncom/interface/lonmsg.pm 2004/02/02 22:27:08 1.85
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.84 2004/01/31 02:42:44 www Exp $
+# $Id: lonmsg.pm,v 1.85 2004/02/02 22:27:08 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -139,6 +139,7 @@ sub packagemsg {
'
'.&mt('From').': '.
+ my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
+
+ $r->print('
'.&mt('Subject').': '.$content{'subject'}.
+ '
'.&mt('From').': '.
&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
$content{'sendername'},$content{'senderdomain'}).' ('.
$content{'sendername'}.' at '.
$content{'senderdomain'}.') '.
- '
'.&mt('Time').': '.$content{'time'}.'
'.
+ ($content{'courseid'}?'
'.&mt('Course').': '.$courseinfo{'description'}.
+($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):'').
+ '
'.&mt('Time').': '.$content{'time'}.'
'. '
'.&mt('Functions').': | '. ''.&mt('Reply').' | '.