--- loncom/interface/lonmsgdisplay.pm 2008/11/04 06:22:53 1.95
+++ loncom/interface/lonmsgdisplay.pm 2008/12/03 21:09:44 1.99
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.95 2008/11/04 06:22:53 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.99 2008/12/03 21:09:44 schafran Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -559,7 +559,8 @@ sub disgroup {
my $result;
# Needs to be in a course
if (!($env{'request.course.fn'})) {
- $result = &mt('Error: you must have a course role selected to be able to send a broadcast message to a group in the course.');
+ $result = &mt('Error: you must have a course role selected to be able to send a broadcast
+e-mail to a group in the course.');
return $result;
}
if ($cdom eq '' || $cnum eq '') {
@@ -717,13 +718,13 @@ sub groupmail_header {
{href=>"/adm/email?compose=group&group=".
"$env{'form.group'}&$refarg",
text=>"Send a Message in a Group",
- title=>"Compose Group Email Message"},);
+ title=>"Compose Group Message"},);
if ($action eq 'sending') {
&Apache::lonhtmlcommon::add_breadcrumb
({text=>"Messages being sent.",
- title=>"Messages sent"},);
+ title=>"E-mails sent"},);
}
- my $groupheader = &Apache::loncommon::start_page('Group Email');
+ my $groupheader = &Apache::loncommon::start_page('Group Message');
$groupheader .= &Apache::lonhtmlcommon::breadcrumbs
('Group - '.$env{'form.group'}.' Email');
return $groupheader;
@@ -737,7 +738,7 @@ sub groupmail_sent {
}
my $output .= '
'.
- &mt('Send another group email').''.' '.
+ &mt('Send another group message').''.' '.
''. &mt('Return to group page').'';
return $output;
@@ -1675,6 +1676,7 @@ ENDADD
sub submit_button_row {
my ($folder,$dismode,$sendtext,$lt,$is_crsform,$group) = @_;
my $pre=&mt("Show Preview and Check Spelling");
+ my $value=&mt('Send');
my $prevbutton = '';
my $output = qq|
@@ -1687,7 +1689,7 @@ sub submit_button_row {
}
$output .= qq|
- + | $prevbutton |