version 1.95, 2008/11/04 06:22:53
|
version 1.99, 2008/12/03 21:09:44
|
Line 559 sub disgroup {
|
Line 559 sub disgroup {
|
my $result; |
my $result; |
# Needs to be in a course |
# Needs to be in a course |
if (!($env{'request.course.fn'})) { |
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; |
return $result; |
} |
} |
if ($cdom eq '' || $cnum eq '') { |
if ($cdom eq '' || $cnum eq '') { |
Line 717 sub groupmail_header {
|
Line 718 sub groupmail_header {
|
{href=>"/adm/email?compose=group&group=". |
{href=>"/adm/email?compose=group&group=". |
"$env{'form.group'}&$refarg", |
"$env{'form.group'}&$refarg", |
text=>"Send a Message in a Group", |
text=>"Send a Message in a Group", |
title=>"Compose Group Email Message"},); |
title=>"Compose Group Message"},); |
if ($action eq 'sending') { |
if ($action eq 'sending') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({text=>"Messages being sent.", |
({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 |
$groupheader .= &Apache::lonhtmlcommon::breadcrumbs |
('Group - '.$env{'form.group'}.' Email'); |
('Group - '.$env{'form.group'}.' Email'); |
return $groupheader; |
return $groupheader; |
Line 737 sub groupmail_sent {
|
Line 738 sub groupmail_sent {
|
} |
} |
my $output .= '<br /><br /><a href="/adm/email?compose=group&group='. |
my $output .= '<br /><br /><a href="/adm/email?compose=group&group='. |
$group.'&'.$refarg.'">'. |
$group.'&'.$refarg.'">'. |
&mt('Send another group email').'</a>'.' '. |
&mt('Send another group message').'</a>'.' '. |
'<a href="/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg?'. |
'<a href="/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg?'. |
$refarg.'">'. &mt('Return to group page').'</a>'; |
$refarg.'">'. &mt('Return to group page').'</a>'; |
return $output; |
return $output; |
Line 1675 ENDADD
|
Line 1676 ENDADD
|
sub submit_button_row { |
sub submit_button_row { |
my ($folder,$dismode,$sendtext,$lt,$is_crsform,$group) = @_; |
my ($folder,$dismode,$sendtext,$lt,$is_crsform,$group) = @_; |
my $pre=&mt("Show Preview and Check Spelling"); |
my $pre=&mt("Show Preview and Check Spelling"); |
|
my $value=&mt('Send'); |
my $prevbutton = '<input type="button" name="preview" value="'.$pre.'" onclick="if (typeof(document.compemail.onsubmit)=='."'function'".') {document.compemail.onsubmit();};document.preview.comment.value=document.compemail.message.value;document.preview.subject.value=document.compemail.subject.value;document.preview.submit();" />'; |
my $prevbutton = '<input type="button" name="preview" value="'.$pre.'" onclick="if (typeof(document.compemail.onsubmit)=='."'function'".') {document.compemail.onsubmit();};document.preview.comment.value=document.compemail.message.value;document.preview.subject.value=document.compemail.subject.value;document.preview.submit();" />'; |
my $output = qq| |
my $output = qq| |
<input type="hidden" name="folder" value="$folder" /> |
<input type="hidden" name="folder" value="$folder" /> |
Line 1687 sub submit_button_row {
|
Line 1689 sub submit_button_row {
|
} |
} |
$output .= qq| |
$output .= qq| |
<table><tr><td align="left"> |
<table><tr><td align="left"> |
<input type="submit" name="send" value="$sendtext" /> |
<input type="submit" name="send" value="$value" title="$sendtext" /> |
<input type="submit" name="cancel" value="$lt->{'ca'}" /> |
<input type="submit" name="cancel" value="$lt->{'ca'}" /> |
</td><td width="60"> </td><td align="right">$prevbutton</td></tr></table> |
</td><td width="60"> </td><td align="right">$prevbutton</td></tr></table> |
|; |
|; |