[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm
www
lon-capa-cvs@mail.lon-capa.org
Mon, 02 Feb 2004 22:27:08 -0000
www Mon Feb 2 17:27:08 2004 EDT
Modified files:
/loncom/interface lonmsg.pm
Log:
Bug #2604: add course name to feedback
Bug #2676: add section to feedback
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.84 loncom/interface/lonmsg.pm:1.85
--- loncom/interface/lonmsg.pm:1.84 Fri Jan 30 21:42:44 2004
+++ loncom/interface/lonmsg.pm Mon Feb 2 17:27:08 2004
@@ -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 @@
'<browsermathml>'.$ENV{'browser.mathml'}.'</browsermathml>'.
'<browserraw>'.$ENV{'HTTP_USER_AGENT'}.'</browserraw>'.
'<courseid>'.$ENV{'request.course.id'}.'</courseid>'.
+ '<coursesec>'.$ENV{'request.course.sec'}.'</coursesec>'.
'<role>'.$ENV{'request.role'}.'</role>'.
'<resource>'.$ENV{'request.filename'}.'</resource>'.
'<msgid>'.$msgid.'</msgid>'.
@@ -1058,14 +1059,18 @@
&Apache::loncommon::bodytag('EMail and Messages').
&Apache::loncommon::help_open_faq(12).
&Apache::loncommon::help_open_bug('Communication Tools'));
- $r->print('<b>'.&mt('Subject').':</b> '.$content{'subject'}.
- '<br><b>'.&mt('From').':</b> '.
+ my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
+
+ $r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}.
+ '<br /><b>'.&mt('From').':</b> '.
&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
$content{'sendername'},$content{'senderdomain'}).' ('.
$content{'sendername'}.' at '.
$content{'senderdomain'}.') '.
- '<br><b>'.&mt('Time').':</b> '.$content{'time'}.'<p>'.
+ ($content{'courseid'}?'<br /><b>'.&mt('Course').':</b> '.$courseinfo{'description'}.
+($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):'').
+ '<br /><b>'.&mt('Time').':</b> '.$content{'time'}.'<p>'.
'<table border=2><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'.
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs.
'"><b>'.&mt('Reply').'</b></a></td>'.