--- loncom/interface/lonmsgdisplay.pm 2008/11/04 06:22:53 1.95 +++ loncom/interface/lonmsgdisplay.pm 2008/12/05 19:38:32 1.100 @@ -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.100 2008/12/05 19:38:32 schafran Exp $ # # Copyright Michigan State University Board of Trustees # @@ -243,9 +243,9 @@ function folder_choice(targetform,caller      '. - '

-
'.&mt('New Folder').'
'. + '
'.&mt('Name').'
'. '
@@ -353,7 +353,7 @@ sub makefolder { } } else { $outcome = - &mt('Error - could not obtain lock on email folders record.'); + &mt('Error - could not obtain lock on e-mail folders record.'); } return ($outcome,$warning); } @@ -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; @@ -1286,7 +1287,7 @@ sub compout { $dispcrit= ''.$crithelp.'  '.&mt('Require return receipt?').'  
'. '
'. +&mt('Send copy to permanent e-mail address (if known)').'
'. '
'; } @@ -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
|;