version 1.95, 2008/11/04 06:22:53
|
version 1.97, 2008/11/23 15:48:27
|
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 E-mail"},); |
if ($action eq 'sending') { |
if ($action eq 'sending') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({text=>"Messages being sent.", |
({text=>"E-mails being sent.", |
title=>"Messages sent"},); |
title=>"E-mails sent"},); |
} |
} |
my $groupheader = &Apache::loncommon::start_page('Group Email'); |
my $groupheader = &Apache::loncommon::start_page('Group Email'); |
$groupheader .= &Apache::lonhtmlcommon::breadcrumbs |
$groupheader .= &Apache::lonhtmlcommon::breadcrumbs |
Line 1687 sub submit_button_row {
|
Line 1688 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="Send" 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> |
|; |
|; |