version 1.84, 2004/01/31 02:42:44
|
version 1.86, 2004/03/01 01:06:10
|
Line 139 sub packagemsg {
|
Line 139 sub packagemsg {
|
'<browsermathml>'.$ENV{'browser.mathml'}.'</browsermathml>'. |
'<browsermathml>'.$ENV{'browser.mathml'}.'</browsermathml>'. |
'<browserraw>'.$ENV{'HTTP_USER_AGENT'}.'</browserraw>'. |
'<browserraw>'.$ENV{'HTTP_USER_AGENT'}.'</browserraw>'. |
'<courseid>'.$ENV{'request.course.id'}.'</courseid>'. |
'<courseid>'.$ENV{'request.course.id'}.'</courseid>'. |
|
'<coursesec>'.$ENV{'request.course.sec'}.'</coursesec>'. |
'<role>'.$ENV{'request.role'}.'</role>'. |
'<role>'.$ENV{'request.role'}.'</role>'. |
'<resource>'.$ENV{'request.filename'}.'</resource>'. |
'<resource>'.$ENV{'request.filename'}.'</resource>'. |
'<msgid>'.$msgid.'</msgid>'. |
'<msgid>'.$msgid.'</msgid>'. |
Line 867 ENDCOMP
|
Line 868 ENDCOMP
|
} else { # $broadcast is 'upload' |
} else { # $broadcast is 'upload' |
$r->print(<<ENDUPLOAD); |
$r->print(<<ENDUPLOAD); |
<input type=hidden name=sendmode value=upload> |
<input type=hidden name=sendmode value=upload> |
|
<input type="hidden" name="send" value="on" /> |
<h3>Generate messages from a file</h3> |
<h3>Generate messages from a file</h3> |
<p> |
<p> |
Subject: <input type=text size=50 name=subject> |
Subject: <input type=text size=50 name=subject> |
Line 1058 sub handler {
|
Line 1060 sub handler {
|
&Apache::loncommon::bodytag('EMail and Messages'). |
&Apache::loncommon::bodytag('EMail and Messages'). |
&Apache::loncommon::help_open_faq(12). |
&Apache::loncommon::help_open_faq(12). |
&Apache::loncommon::help_open_bug('Communication Tools')); |
&Apache::loncommon::help_open_bug('Communication Tools')); |
$r->print('<b>'.&mt('Subject').':</b> '.$content{'subject'}. |
my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'}); |
'<br><b>'.&mt('From').':</b> '. |
|
|
$r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}. |
|
'<br /><b>'.&mt('From').':</b> '. |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}), |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}), |
$content{'sendername'},$content{'senderdomain'}).' ('. |
$content{'sendername'},$content{'senderdomain'}).' ('. |
$content{'sendername'}.' at '. |
$content{'sendername'}.' at '. |
$content{'senderdomain'}.') '. |
$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>'. |
'<table border=2><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'. |
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs. |
'"><b>'.&mt('Reply').'</b></a></td>'. |
'"><b>'.&mt('Reply').'</b></a></td>'. |