version 1.34, 2002/06/26 20:41:55
|
version 1.35, 2002/07/22 14:23:29
|
Line 49 use Apache::lonnet();
|
Line 49 use Apache::lonnet();
|
use vars qw($msgcount); |
use vars qw($msgcount); |
use HTML::TokeParser; |
use HTML::TokeParser; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
use Apache::loncommon; |
|
|
# ===================================================================== Package |
# ===================================================================== Package |
|
|
Line 343 sub comprep {
|
Line 344 sub comprep {
|
my $subject='Re: '.$content{'subject'}; |
my $subject='Re: '.$content{'subject'}; |
my $dispcrit=''; |
my $dispcrit=''; |
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
|
my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message"); |
$dispcrit= |
$dispcrit= |
'<input type=checkbox name=critmsg> Send as critical message<br>'. |
'<input type=checkbox name=critmsg> Send as critical message ' . $crithelp . |
'<input type=checkbox name=sendbck> Send as critical message'. |
'<br>'. |
' and return receipt<p>'; |
'<input type=checkbox name=sendbck> Send as critical message ' . |
|
' and return receipt' . $crithelp . '<p>'; |
} |
} |
$r->print(<<"ENDREPLY"); |
$r->print(<<"ENDREPLY"); |
<form action="/adm/email" method=post> |
<form action="/adm/email" method=post> |
Line 432 sub compout {
|
Line 435 sub compout {
|
my $dismsg=''; |
my $dismsg=''; |
my $func='Send New'; |
my $func='Send New'; |
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
|
my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message"); |
$dispcrit= |
$dispcrit= |
'<input type=checkbox name=critmsg> Send as critical message<br>'. |
'<input type=checkbox name=critmsg> Send as critical message ' . $crithelp . |
'<input type=checkbox name=sendbck> Send as critical message'. |
'<br>'. |
' and return receipt<p>'; |
'<input type=checkbox name=sendbck> Send as critical message ' . |
|
' and return receipt' . $crithelp . '<p>'; |
} |
} |
if ($forwarding) { |
if ($forwarding) { |
$dispcrit.='<input type=hidden name=forwid value="'. |
$dispcrit.='<input type=hidden name=forwid value="'. |