version 1.35, 2002/07/22 14:23:29
|
version 1.36, 2002/07/29 22:17:05
|
Line 50 use vars qw($msgcount);
|
Line 50 use vars qw($msgcount);
|
use HTML::TokeParser; |
use HTML::TokeParser; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lontexconvert; |
|
|
# ===================================================================== Package |
# ===================================================================== Package |
|
|
Line 316 sub discrit {
|
Line 317 sub discrit {
|
$result.='<hr>From: <b>'.$content{'sendername'}.'@'. |
$result.='<hr>From: <b>'.$content{'sendername'}.'@'. |
$content{'senderdomain'}.'</b> ('.$content{'time'}. |
$content{'senderdomain'}.'</b> ('.$content{'time'}. |
')<br>Subject: '.$content{'subject'}. |
')<br>Subject: '.$content{'subject'}. |
'<br><blockquote>'.$content{'message'}.'</blockquote>'. |
'<br><blockquote>'. |
|
&Apache::lontexconvert::msgtexconverted($content{'message'}). |
|
'</blockquote>'. |
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="reprec_'.$_.'" '. |
'<input type=submit name="reprec_'.$_.'" '. |
'value="Confirm Receipt and Reply">'; |
'value="Confirm Receipt and Reply">'; |
Line 555 sub handler {
|
Line 558 sub handler {
|
'"><b>Mark Unread</b></a></td>'. |
'"><b>Mark Unread</b></a></td>'. |
'<td><a href="/adm/email"><b>Display all Messages</b></a></td>'. |
'<td><a href="/adm/email"><b>Display all Messages</b></a></td>'. |
'</tr></table><p><pre>'. |
'</tr></table><p><pre>'. |
$content{'message'}.'</pre><hr>'.$content{'citation'}); |
&Apache::lontexconvert::msgtexconverted($content{'message'}). |
|
'</pre><hr>'.$content{'citation'}); |
} elsif ($ENV{'form.replyto'}) { |
} elsif ($ENV{'form.replyto'}) { |
&comprep($r,$ENV{'form.replyto'}); |
&comprep($r,$ENV{'form.replyto'}); |
} elsif ($ENV{'form.sendreply'}) { |
} elsif ($ENV{'form.sendreply'}) { |