--- loncom/interface/lonmsg.pm 2002/06/26 20:41:55 1.34
+++ loncom/interface/lonmsg.pm 2002/07/22 14:23:29 1.35
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.34 2002/06/26 20:41:55 www Exp $
+# $Id: lonmsg.pm,v 1.35 2002/07/22 14:23:29 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -49,6 +49,7 @@ use Apache::lonnet();
use vars qw($msgcount);
use HTML::TokeParser;
use Apache::Constants qw(:common);
+use Apache::loncommon;
# ===================================================================== Package
@@ -343,10 +344,12 @@ sub comprep {
my $subject='Re: '.$content{'subject'};
my $dispcrit='';
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+ my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
$dispcrit=
- ' Send as critical message
'.
- ' Send as critical message'.
- ' and return receipt
';
+ ' Send as critical message ' . $crithelp .
+ '
'.
+ ' Send as critical message ' .
+ ' and return receipt' . $crithelp . '
'; } $r->print(<<"ENDREPLY");