--- loncom/interface/lonmsg.pm 2004/05/17 19:00:45 1.101
+++ loncom/interface/lonmsg.pm 2004/06/02 20:40:07 1.102
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.101 2004/05/17 19:00:45 raeburn Exp $
+# $Id: lonmsg.pm,v 1.102 2004/06/02 20:40:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -963,8 +963,10 @@ sub disfacetoface {
$content{'message'}=~s/\n/\
/g;
if ($content{'subject'}=~/^Record/) {
$result.='
".&mt("No notes, face-to-face discussion records, or critical messages in this course.")."
"); + $r->print("".&mt("No notes, face-to-face discussion records, critical messages, or broadcast messages in this course.")."
"); } else { - $r->print('\textbf{'.&mt("No notes, face-to-face discussion records, or critical messages in this course.").'}\\\\'); + $r->print('\textbf{'.&mt("No notes, face-to-face discussion records, critical messages or broadcast messages in this course.").'}\\\\'); } } else { $r->print($result); @@ -1000,7 +1002,7 @@ sub facetoface { } &printheader($r, '/adm/email?recordftf=query', - "User Notes, Face-to-Face, Critical Messages"); + "User Notes, Face-to-Face, Critical Messages, Broadcast Messages"); # from query string if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; } @@ -1015,7 +1017,7 @@ sub facetoface { ('stdselect','recuname','recdomain'); my %lt=&Apache::lonlocal::texthash('user' => 'Username', 'dom' => 'Domain', - 'head' => 'User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course', + 'head' => 'User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in Course', 'subm' => 'Retrieve discussion and message records', 'newr' => 'New Record (record is visible to course faculty and staff)', 'post' => 'Post this Record'); @@ -1667,6 +1669,13 @@ sub handler { &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), $msgtxt, $content{'citation'}); + if (($ENV{'request.course.id'}) && ($ENV{'form.sendmode'} eq 'group')) { + &user_normal_msg_raw( + $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, + 'Broadcast ['.$recuname.':'.$recdomain.']', + $msgtxt); + } } $r->print($thismsg.'