Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.89 and 1.124.4.10

version 1.89, 2008/06/24 11:06:03	version 1.124.4.10, 2010/04/14 06:36:26
Line 136 sub folderlist {	Line 136 sub folderlist {

);	);

	# set se lastvisit for the new mail check in the toplevel menu
	&Apache::lonnet::appenv({'user.mailcheck.lastvisit'=>time});

my %actions = &Apache::lonlocal::texthash(	my %actions = &Apache::lonlocal::texthash(
view => 'View Folder',	view => 'View Folder',
rename => 'Rename Folder',	rename => 'Rename Folder',
Line 143 sub folderlist {	Line 146 sub folderlist {
);	);
$actions{'select_form_order'} = ['view','rename','delete'];	$actions{'select_form_order'} = ['view','rename','delete'];

my %statushash = &get_msgstatus_types();	my %statushash = &Apache::lonlocal::texthash(&get_msgstatus_types());

$statushash{'select_form_order'} = ['','new','read','replied','forwarded'];	$statushash{'select_form_order'} = ['','new','read','replied','forwarded'];

Line 170 sub folderlist {	Line 173 sub folderlist {

$formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash'];	$formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash'];
my $output = qq\|<script type="text/javascript">	my $output = qq\|<script type="text/javascript">
	// <![CDATA[
function folder_choice(targetform,caller) {	function folder_choice(targetform,caller) {
var permfolders_keys = new Array('$permlistkeys');	var permfolders_keys = new Array('$permlistkeys');
var permfolders_vals = new Array('$permlistvals');	var permfolders_vals = new Array('$permlistvals');
Line 211 function folder_choice(targetform,caller	Line 215 function folder_choice(targetform,caller
}	}
}	}
}	}
	// ]]>
</script>\|;	</script>\|;
my %show = ('select_form_order' => [10,20,50,100,200],	my %show = ('select_form_order' => [10,20,50,100,200],
map {$_=>$_} (10,20,50,100,200));	map {$_=>$_} (10,20,50,100,200));


$output .= '	$output .= '
<form method="post" action="/adm/email" name="folderlist">	<form method="post" action="/adm/email" name="folderlist">
<table border="0" cellspacing="2" cellpadding="2">	<table border="0" cellspacing="2" cellpadding="2">
Line 236 function folder_choice(targetform,caller	Line 240 function folder_choice(targetform,caller
<td align="center"><b>'.$lt{'actn'}.'</b><br />'.	<td align="center"><b>'.$lt{'actn'}.'</b><br />'.
&Apache::loncommon::select_form('view','folderaction',%actions).'	&Apache::loncommon::select_form('view','folderaction',%actions).'
</td><td><br />'.	</td><td><br />'.
'<input type="button" value="'.$lt{'go'}.'" onClick="javascript:folder_choice(this.form,'."'change'".');" />	'<input type="button" value="'.$lt{'go'}.'" onclick="javascript:folder_choice(this.form,'."'change'".');" />
</td>	</td>
</tr>	</tr>
</table>	</table>
</td><td> </td><td> </td><td> </td><td> </td>	</td><td> </td><td> </td><td> </td><td> </td>
<td align="right">	<td align="right">
<table><tr><td><br />	<table><tr><td><br />
<input type="button" value="'.&mt('Make New Folder').	<input type="button" value="'.&mt('New Folder').
'" onClick="javascript:folder_choice(this.form,'."'new'".');" /></td>'.	'" onclick="javascript:folder_choice(this.form,'."'new'".');" /></td>'.
'<td align="center"><b>'.&mt('New Folder').'</b><br />'.	'<td align="center"><b>'.&mt('Name').'</b><br />'.
'<input type="text" size="15" name="newfolder" value="" />	'<input type="text" size="15" name="newfolder" value="" />
</td></tr></table>	</td></tr></table>
</td>	</td>
Line 268 sub get_permanent_folders {	Line 272 sub get_permanent_folders {
}	}

sub get_msgstatus_types {	sub get_msgstatus_types {
my %statushash = &Apache::lonlocal::texthash(	# Don't translate here!
'' => 'Any',	my %statushash = (
new => 'Unread',	'' => 'Any',
read => 'Read',	'new' => 'Unread',
replied => 'Replied to',	'read' => 'Read',
forwarded => 'Forwarded',	'replied' => 'Replied to',
	'forwarded' => 'Forwarded',
);	);
return %statushash;	return %statushash;
}	}
Line 286 sub scrollbuttons {	Line 291 sub scrollbuttons {
my %statushash = &get_msgstatus_types();	my %statushash = &get_msgstatus_types();
my $status;	my $status;
if ($msgstatus eq '') {	if ($msgstatus eq '') {
$status = &mt('All');	$status = 'All'; # Don't translate here!
} else {	} else {
$status = $statushash{$msgstatus};	$status = $statushash{$msgstatus};
}	}
return	return
'<b>'.&mt('Page').'</b>: '.	'<b>'.&mt('Page').'</b>: '.
'<input type="submit" name="firstview" value="'.&mt('First').'" />'.	'<input type="submit" name="firstview" value="\|<" />'.
'<input type="submit" name="prevview" value="'.&mt('Previous').'" />'.	'<input type="submit" name="prevview" value="<" />'.
'<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis.	'<input type="text" size="5" name="startdis" value="'.$start.'" onchange="this.form.submit()" /> of '.$maxdis.
'<input type="submit" name="nextview" value="'.&mt('Next').'" />'.	'<input type="submit" name="nextview" value=">" />'.
'<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'.	'<input type="submit" name="lastview" value=">\|" /><br />'.
&mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>';	&mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>';
}	}
# =============================================================== Status Change	# =============================================================== Status Change
Line 353 sub makefolder {	Line 358 sub makefolder {
}	}
} else {	} else {
$outcome =	$outcome =
&mt('Error - could not obtain lock on email folders record.');	&mt('Error - could not obtain lock on message folders record.');
}	}
return ($outcome,$warning);	return ($outcome,$warning);
}	}
Line 502 sub movemsg {	Line 507 sub movemsg {
# ======================================================= Display a course list	# ======================================================= Display a course list

sub discourse {	sub discourse {
my $result;	my ($statushash) = @_;
	my ($result,$active,$previous,$future);
	my $crstype = &Apache::loncommon::course_type();
my ($course_personnel,	my ($course_personnel,
$current_members,	$current_members,
$expired_members,	$expired_members,
Line 511 sub discourse {	Line 518 sub discourse {
unshift @$current_members, (@$course_personnel);	unshift @$current_members, (@$course_personnel);
my %defaultUsers;	my %defaultUsers;

$result .= '<input type="hidden" name="sendmode" value="group" />'."\n";

my $tmptext;	my $tmptext;
if ($tmptext = &Apache::lonselstudent::render_student_list($current_members,	if ($tmptext = &Apache::lonselstudent::render_student_list($current_members,
"compemail",	"activeusers",
"current",	"current",
\%defaultUsers,	\%defaultUsers,
1,"selectedusers",1)	1,"selectedusers",1,'email')
) {	) {
$result .= '<h2>'.&mt('Course members with current access').'</h2>';	my $bcc_curr_hdr;
$result .= $tmptext;	if ($crstype eq 'Community') {
	$bcc_curr_hdr = &mt('Bcc: community participants with current access');
	} else {
	$bcc_curr_hdr = &mt('Bcc: course members with current access');
	}
	$result .= '<fieldset id="LC_activeusers"><legend>'
	.'<b>'.$bcc_curr_hdr.'</b>'
	.'</legend>'
	.'<form name="activeusers">';
	$result .= $tmptext.'</form></fieldset><br />';
	if (ref($statushash) eq 'HASH') {
	$statushash->{'active'} = 1;
	}
}	}
if ($tmptext = &Apache::lonselstudent::render_student_list($expired_members,	if ($tmptext = &Apache::lonselstudent::render_student_list($expired_members,
"compemail",	"previoususers",
"expired",	"expired",
\%defaultUsers,	\%defaultUsers,
1, "selectedusers",0)	1, "selectedusers",0,'email')
) {	) {
$result .= '<h2>'.&mt('Course members with expired access').'</h2>';	my $bcc_prev_hdr;
$result .= $tmptext;	if ($crstype eq 'Community') {
	$bcc_prev_hdr = &mt('Bcc: community participants with expired access');
	} else {
	$bcc_prev_hdr = &mt('Bcc: course members with expired access');
	}
	$result .= '<fieldset id="LC_previoususers"><legend>'
	.'<b>'.$bcc_prev_hdr.'</b>'
	.'</legend>'
	.'<form name="previoususers">';
	$result .= $tmptext.'</form></fieldset><br />';
	if (ref($statushash) eq 'HASH') {
	$statushash->{'previous'} = 1;
	}
}	}
if ($tmptext = &Apache::lonselstudent::render_student_list($future_members,	if ($tmptext = &Apache::lonselstudent::render_student_list($future_members,
"compemail",	"futureusers",
"future",	"future",
\%defaultUsers,	\%defaultUsers,
1, "selectedusers", 0)	1, "selectedusers",0,'email')
) {	) {
$result .= '<h2>'.&mt('Course members with future access').'</h2>';	my $bcc_future_hdr;
$result .= $tmptext;	if ($crstype eq 'Community') {
	$bcc_future_hdr = &mt('Bcc: community participants with future access');
	} else {
	$bcc_future_hdr = &mt('Bcc: course members with future access');
	}
	$result .= '<fieldset id="LC_futureusers"><legend>'
	.'<b>'.$bcc_future_hdr.'</b>'
	.'</legend>'
	.'<form name="futureusers">';
	$result .= $tmptext.'</form></fieldset>';
	if (ref($statushash) eq 'HASH') {
	$statushash->{'future'} = 1;
	}
}	}
return $result;	return $result;
}	}

sub disgroup {	sub disgroup {
my ($cdom,$cnum,$group,$viewgrps,$editgrps) = @_;	my ($r,$cdom,$cnum,$group,$access_status) = @_;
my $result;	my $hasfloat;
# 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.');	$r->print('<span class="LC_error">'.&mt('Error: you must have a course role selected to be able to send a broadcast message to a group in the course.').'</span>');
return $result;	return;
}	}
if ($cdom eq '' \|\| $cnum eq '') {	if ($cdom eq '' \|\| $cnum eq '') {
$result = &mt('Error: could not determine domain or number of course');	$r->print('<span class="LC_error">'.&mt('Error: could not determine domain or number of course').'</span>');
return $result;	return;
}	}
my ($memberinfo,$numitems) =	my ($memberinfo,$numitems) =
&Apache::longroup::group_memberlist($cdom,$cnum,$group,{},[]);	&Apache::longroup::group_memberlist($cdom,$cnum,$group,{},[]);
my @statustypes = ('active');	my @statustypes = ('active');
	my $viewgrps = &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
	my $editgrps = &Apache::lonnet::allowed('mdg',$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
if ($viewgrps \|\| $editgrps) {	if ($viewgrps \|\| $editgrps) {
push(@statustypes,('future','previous'));	push(@statustypes,('future','previous'));
}	}
if (keys(%{$memberinfo}) == 0) {	if (keys(%{$memberinfo}) == 0) {
$result = &mt('As this group has no members, there are no '.	$r->print('<span class="LC_warning">'.
'recipients to select.');	&mt('As this group has no members, there are no recipients to select').
return $result;	'</span>');
	return;
} else {	} else {
$result = &mt('Select message recipients from the group members listed below.').'<br />';	$hasfloat = 1;
	unless($env{'environment.wysiwygeditor'} eq 'on') {
	$r->print('<div class="LC_left_float">');
	}
my %Sortby = (	my %Sortby = (
active => {},	active => {},
previous => {},	previous => {},
Line 577 sub disgroup {	Line 626 sub disgroup {
'name' => 'Name',	'name' => 'Name',
'usnm' => 'Username',	'usnm' => 'Username',
'doma' => 'Domain',	'doma' => 'Domain',
'active' => 'Active Members',	'active' => 'Broadcast to Active Members',
'previous' => 'Former Members',	'previous' => 'Broadcast (Bcc) to Former Members',
'future' => 'Future Members',	'future' => 'Broadcast (Bcc) to Future Members',
);	);
foreach my $user (sort(keys(%{$memberinfo}))) {	foreach my $user (sort(keys(%{$memberinfo}))) {
my $status = $$memberinfo{$user}{status};	my $status = $$memberinfo{$user}{status};
Line 593 sub disgroup {	Line 642 sub disgroup {
push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);	push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);
}	}
}	}
$result .= &group_check_uncheck();	$r->print(&group_check_uncheck());
$result .= '<table border="0" cellspacing="8" cellpadding="2">'.
'<tr>';
foreach my $status (@statustypes) {	foreach my $status (@statustypes) {
if (ref($numitems) eq 'HASH') {	if (ref($numitems) eq 'HASH') {
if ((defined($$numitems{$status})) && ($$numitems{$status})) {	if ((defined($$numitems{$status})) && ($$numitems{$status})) {
$result.='<td valign="top">'.	my $formname = $status.'users';
'<fieldset><legend><b>'.$lt{$status}.	if (ref($access_status) eq 'HASH') {
'</b></legend><nobr>'.	$access_status->{$status} = $$numitems{$status};
'<input type="button" value="'.&mt('Check All').'" '.	}
'onclick="javascript:toggleAll('."'".$status."','check'".')" />'.	$r->print('<fieldset><legend><b>'.$lt{$status}.
'  '.	'</b></legend><form name="'.$formname.'">'.
'<input type="button" value="'.&mt('Uncheck All').'" '.	'<span class="LC_nobreak">'.
'onclick="javascript:toggleAll('."'".$status."','uncheck'".')" />'.	'<input type="button" value="'.&mt('Check All').'" '.
'</nobr></fieldset><br />'.	'onclick="javascript:toggleAll('."this.form,'check'".')" />'.
&Apache::loncommon::start_data_table().	'  '.
&Apache::loncommon::start_data_table_header_row();	'<input type="button" value="'.&mt('Uncheck All').'" '.
$result .= "<th>$lt{'name'}</a></th>".	'onclick="javascript:toggleAll('."this.form,'uncheck'".')" />'.
"<th>$lt{'usnm'}</a></th>".	'</span>');
"<th>$lt{'doma'}</a></th>".	if ($status eq 'active') {
&Apache::loncommon::end_data_table_header_row();	$r->print((' 'x3).'<select name="groupmail">'.
	'<option value="bcc" selected="selected">'.&mt('Bcc').'</option>'.
	'<option value="cc">'.&mt('Cc').'</option>'.
	'</select>');
	}
	$r->print('<br />'.&Apache::loncommon::start_data_table().
	&Apache::loncommon::start_data_table_header_row().
	"<th>$lt{'name'}</th>".
	"<th>$lt{'usnm'}</th>".
	"<th>$lt{'doma'}</th>".
	&Apache::loncommon::end_data_table_header_row());
foreach my $key (sort(keys(%{$Sortby{$status}}))) {	foreach my $key (sort(keys(%{$Sortby{$status}}))) {
foreach my $user (@{$Sortby{$status}{$key}}) {	foreach my $user (@{$Sortby{$status}{$key}}) {
$result .=	$r->print(&Apache::loncommon::start_data_table_row().
&Apache::loncommon::start_data_table_row().	'<td><span class="LC_nobreak"><input type="checkbox" '.
'<td><input type="checkbox" '.
'name="selectedusers_forminput" value="'.	'name="selectedusers_forminput" value="'.
$user.':'.$status.'" />'.	$user.':'.$status.'" />'.
$$memberinfo{$user}{'fullname'}.'</td>'.	$$memberinfo{$user}{'fullname'}.'</span></td>'.
'<td>'.$$memberinfo{$user}{'uname'}.'</td>'.	'<td>'.$$memberinfo{$user}{'uname'}.'</td>'.
'<td>'.$$memberinfo{$user}{'udom'}.'</td>'.	'<td>'.$$memberinfo{$user}{'udom'}.'</td>'.
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row());
}	}
}	}
$result .= &Apache::loncommon::end_data_table();	$r->print(&Apache::loncommon::end_data_table().'</form>'.
	'</fieldset><br />');
}	}
}	}
$result .= '</td><td>  </td>';
}	}
$result .= '</tr></table>';	unless($env{'environment.wysiwygeditor'} eq 'on') {
	$r->print('</div>');
	}
}	}
return $result;	return $hasfloat;
}	}

sub group_check_uncheck {	sub group_check_uncheck {
my $output = qq\|	my $output = qq\|
<script type="text/javascript">	<script type="text/javascript">
function toggleAll(caller,action) {	/ <![CDATA[
var pattern = new RegExp(":"+caller+"\$");	function toggleAll(form,action) {
if (typeof(document.compemail.selectedusers_forminput.length)=="undefined") {	if (typeof(form.selectedusers_forminput.length)=="undefined") {
if (document.compemail.selectedusers_forminput.value.match(pattern)) {	if (action == 'check') {
if (action == 'check') {	form.selectedusers_forminput.checked = true;
document.groupmail.selectedusers_forminput.checked = true;	} else {
} else {	form.selectedusers_forminput.checked = false;
document.groupmail.selectedusers_forminput.checked = false;
}
}	}
} else {	} else {
for (var i=0; i<document.compemail.selectedusers_forminput.length; i++) {	for (var i=0; i<form.selectedusers_forminput.length; i++) {
if (document.compemail.selectedusers_forminput[i].value.match(pattern)) {	if (action == 'check') {
if (action == 'check') {	form.selectedusers_forminput[i].checked = true;
document.compemail.selectedusers_forminput[i].checked = true;	} else {
} else {	form.selectedusers_forminput[i].checked = false;
document.compemail.selectedusers_forminput[i].checked = false;
}
}	}
}	}
}	}
}	}
	// ]]>
</script>	</script>
\|;	\|;
}	}
Line 691 sub groupmail_header {	Line 746 sub groupmail_header {
}	}
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
if ($refarg) {	if ($refarg) {
	my $brtitle;
	if (&Apache::loncommon::course_type() eq 'Community') {
	$brtitle = 'View community groups';
	} else {
	$brtitle = 'View course groups';
	}
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/coursegroups",	({href=>"/adm/coursegroups",
text=>"Groups",	text=>"Groups",
title=>"View course groups"});	title=>$brtitle});
}	}
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",	({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",
Line 703 sub groupmail_header {	Line 764 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 723 sub groupmail_sent {	Line 784 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 737 sub discrit {	Line 798 sub discrit {
.'<div class="LC_warning">'	.'<div class="LC_warning">'
.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.')	.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.')
.'</div><br />'	.'</div><br />'
.'<form action="/adm/email" method="POST">'	.'<form action="/adm/email" method="post">'
.'<input type="hidden" name="confirm" value="true" />';	.'<input type="hidden" name="confirm" value="true" />';
my %what=&Apache::lonnet::dump('critical');	my %what=&Apache::lonnet::dump('critical');
my $result = '';	my $result = '';
Line 789 sub discrit {	Line 850 sub discrit {
}	}
# Check to see if there were any messages.	# Check to see if there were any messages.
if ($result eq '') {	if ($result eq '') {
$result = "<h2>".&mt('You have no critical messages.')."</h2>".	$result =
'<a href="/adm/roles">'.&mt('Select a course').'</a><br />'.	'<p class="LC_info">'.
	&mt('You have no critical messages.').
	'</p>'.
	'<a href="/adm/roles">'.&mt('Select a course').'</a><br />'.
'<a href="/adm/email">'.&mt('Communicate').'</a>';	'<a href="/adm/email">'.&mt('Communicate').'</a>';
} else {	} else {
$r->print($header);	$r->print($header);
Line 816 sub sortedmessages {	Line 880 sub sortedmessages {
}	}

foreach my $msgid (@messages) {	foreach my $msgid (@messages) {
	next if ($msgid eq '');
my $esc_msgid=&escape($msgid);	my $esc_msgid=&escape($msgid);
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,$processid,$symb,$error) =	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,$processid,$symb,$error) =
&Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,	&Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,
Line 955 sub disfolder {	Line 1020 sub disfolder {
my $jscript = &Apache::loncommon::check_uncheck_jscript();	my $jscript = &Apache::loncommon::check_uncheck_jscript();
$r->print(<<ENDDISHEADER);	$r->print(<<ENDDISHEADER);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
$jscript	$jscript

function validate_checkedaction() {	function validate_checkedaction() {
Line 983 sub disfolder {	Line 1049 sub disfolder {
}	}
document.disall.submit();	document.disall.submit();
}	}
	// ]]>
</script>	</script>
ENDDISHEADER	ENDDISHEADER

my $fsqs='&folder='.$folder;	my $fsqs='&folder='.$folder;
my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);	my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
my $totalnumber=$#temp+1;	my $totalnumber=$#temp+1;

if ($totalnumber < 1) {	if ($totalnumber < 1) {
	$r->print('<p class="LC_info">');
if ($msgstatus eq '') {	if ($msgstatus eq '') {
$r->print('<h2>'.&mt('Empty Folder').'</h2>');	$r->print(&mt('There are no messages in this folder.'));
} elsif ($msgstatus eq 'replied') {	} elsif ($msgstatus eq 'replied') {
$r->print('<h2>'.&mt('You have not replied to any messages in this folder.').'</h2>');	$r->print(&mt('You have not replied to any messages in this folder.'));
} else {	} else {
$r->print('<h2>'.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'</h2>');	$r->print(&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.'));
}	}
	$r->print('</p>');
if ($numblocked > 0) {	if ($numblocked > 0) {
$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,	$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
\%setters));	\%setters));
}	}
return;	return;
}	}
my $interdis = $env{'form.interdis'};	my $interdis = $env{'form.interdis'};
my $number=int($totalnumber/$interdis);	my $number=int($totalnumber/$interdis);
Line 1019 ENDDISHEADER	Line 1088 ENDDISHEADER
$r->print('<form method="post" name="disall" action="/adm/email">'.	$r->print('<form method="post" name="disall" action="/adm/email">'.
'<table class="LC_mail_list"><tr><th colspan="1"> </th><th>');	'<table class="LC_mail_list"><tr><th colspan="1"> </th><th>');
if ($env{'form.sortedby'} eq "revdate") {	if ($env{'form.sortedby'} eq "revdate") {
$r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');	$r->print('<a href = "/adm/email?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');
} else {	} else {
$r->print('<a href = "?sortedby=revdate'.$fsqs.'">'.&mt('Date').'</a></th>');	$r->print('<a href = "/adm/email?sortedby=revdate'.$fsqs.'">'.&mt('Date').'</a></th>');
}	}
$r->print('<th>');	$r->print('<th>');
if ($env{'form.sortedby'} eq "revuser") {	if ($env{'form.sortedby'} eq "revuser") {
$r->print('<a href = "?sortedby=user'.$fsqs.'">'.&mt('Username').'</a>');	$r->print('<a href = "/adm/email?sortedby=user'.$fsqs.'">'.&mt('Username').'</a>');
} else {	} else {
$r->print('<a href = "?sortedby=revuser'.$fsqs.'">'.&mt('Username').'</a>');	$r->print('<a href = "/adm/email?sortedby=revuser'.$fsqs.'">'.&mt('Username').'</a>');
}	}
$r->print('</th><th>');	$r->print('</th><th>');
if ($env{'form.sortedby'} eq "revdomain") {	if ($env{'form.sortedby'} eq "revdomain") {
$r->print('<a href = "?sortedby=domain'.$fsqs.'">'.&mt('Domain').'</a>');	$r->print('<a href = "/adm/email?sortedby=domain'.$fsqs.'">'.&mt('Domain').'</a>');
} else {	} else {
$r->print('<a href = "?sortedby=revdomain'.$fsqs.'">'.&mt('Domain').'</a>');	$r->print('<a href = "/adm/email?sortedby=revdomain'.$fsqs.'">'.&mt('Domain').'</a>');
}	}
$r->print('</th><th>');	$r->print('</th><th>');
if ($env{'form.sortedby'} eq "revsubject") {	if ($env{'form.sortedby'} eq "revsubject") {
$r->print('<a href = "?sortedby=subject'.$fsqs.'">'.&mt('Subject').'</a>');	$r->print('<a href = "/adm/email?sortedby=subject'.$fsqs.'">'.&mt('Subject').'</a>');
} else {	} else {
$r->print('<a href = "?sortedby=revsubject'.$fsqs.'">'.&mt('Subject').'</a>');	$r->print('<a href = "/adm/email?sortedby=revsubject'.$fsqs.'">'.&mt('Subject').'</a>');
}	}
$r->print('</th><th>');	$r->print('</th><th>');
if ($env{'form.sortedby'} eq "revcourse") {	if ($env{'form.sortedby'} eq "revcourse") {
$r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>');	$r->print('<a href = "/adm/email?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>');
} else {	} else {
$r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>');	$r->print('<a href = "/adm/email?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>');
}	}
$r->print('</th><th>');	$r->print('</th><th>');
if ($env{'form.sortedby'} eq "revstatus") {	if ($env{'form.sortedby'} eq "revstatus") {
$r->print('<a href = "?sortedby=status'.$fsqs.'">'.&mt('Status').'</a></th>');	$r->print('<a href = "/adm/email?sortedby=status'.$fsqs.'">'.&mt('Status').'</a></th>');
} else {	} else {
$r->print('<a href = "?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</a></th>');	$r->print('<a href = "/adm/email?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</a></th>');
}	}
$r->print("</tr>\n");	$r->print("</tr>\n");

my $suffix = &Apache::lonmsg::foldersuffix($folder);	my $suffix = &Apache::lonmsg::foldersuffix($folder);
	my $count = $firstdis;
for (my $n=$firstdis;$n<=$lastdis;$n++) {	for (my $n=$firstdis;$n<=$lastdis;$n++) {
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,
$description,$recv_name,$recv_domain)=	$description,$recv_name,$recv_domain)=
@{$temp[$n]};	@{$temp[$n]};
if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {	if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {
	$count ++;
if ($status eq 'new') {	if ($status eq 'new') {
$r->print('<tr class="LC_mail_new">');	$r->print('<tr class="LC_mail_new">');
} elsif ($status eq 'read') {	} elsif ($status eq 'read') {
Line 1092 ENDDISHEADER	Line 1163 ENDDISHEADER
}	}
}	}
my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);	my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);
my $count = $n +1;	$r->print('<td align="right"><span class="LC_nobreak">'.(($status eq 'new')?'<b>':'').
$r->print('<td align="right"><nobr>'.(($status eq 'new')?'<b>':'').
$count.'.'.(($status eq 'new')?'</b>':'').' '.	$count.'.'.(($status eq 'new')?'</b>':'').' '.
'<input type="checkbox" name="delmark"'.	'<input type="checkbox" name="delmark"'.
' value="'.$origID.'" /></nobr></td>');	' value="'.$origID.'" /></span></td>');
foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {	foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {
$r->print('<td>'.(($status eq 'new')?'<b>':'').	$r->print('<td>'.(($status eq 'new')?'<b>':'').
'<a href="/adm/email?display='.$origID.$sqs.'">'.	'<a href="/adm/email?display='.$origID.$sqs.'">'.
$item.(($status eq 'new')?'</b>':'').'</td>');	$item.(($status eq 'new')?'</b>':'').'</a></td>');
}	}
my $showstatus;	my $showstatus;
my %statushash = &get_msgstatus_types();	my %statushash = &get_msgstatus_types();
Line 1163 ENDDISHEADER	Line 1233 ENDDISHEADER
'" onclick="javascript:validate_checkedaction()"/></td>'."\n".	'" onclick="javascript:validate_checkedaction()"/></td>'."\n".
'</tr></table>');	'</tr></table>');
my $postedstartdis=$startdis+1;	my $postedstartdis=$startdis+1;
$r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" ><input type="hidden" name="markedaction" value="" /></form>');	$r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" /><input type="hidden" name="markedaction" value="" /></form>');
if ($numblocked > 0) {	if ($numblocked > 0) {
$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,	$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
\%setters));	\%setters));
Line 1222 sub compout {	Line 1292 sub compout {
&printheader($r,'/adm/email?compose=multiforward',	&printheader($r,'/adm/email?compose=multiforward',
'Forwarding Multiple Messages');	'Forwarding Multiple Messages');
if ($multiforward > 1) {	if ($multiforward > 1) {
$r->print(&mt('Each of the <b>[quant,_1,message]</b> you checked'	$r->print(&mt('Each of the[_1] [quant,_2,message] [_3]you checked'
.' will be forwarded to the recipient(s) you select below.',$multiforward)	.' will be forwarded to the recipient(s) you select below.','<b>',$multiforward,'</b>')
.'<br />');	.'<br />');
} else {	} else {
$r->print(&mt('The message you checked will be forwarded to the recipient(s) you select below.').'<br />');	$r->print(&mt('The message you checked will be forwarded to the recipient(s) you select below.').'<br />');
Line 1239 sub compout {	Line 1309 sub compout {
my $dismsg='';	my $dismsg='';
my $disbase='';	my $disbase='';
my $attachrow;	my $attachrow;
my $func=&mt('Send New');	my $func1='Send'; # do not translate here!
	my %func2=( # do not translate here!
	'ma' => 'Message',
	'msg' => 'Messages',
	);
my %lt=&Apache::lonlocal::texthash('us' => 'Username',	my %lt=&Apache::lonlocal::texthash('us' => 'Username',
'do' => 'Domain',	'do' => 'Domain',
'ad' => 'Additional Recipients',	'ad' => 'Additional Recipients',
Line 1247 sub compout {	Line 1321 sub compout {
'ar' => 'Allow replies',	'ar' => 'Allow replies',
'sb' => 'Subject',	'sb' => 'Subject',
'ca' => 'Cancel',	'ca' => 'Cancel',
'ma' => 'Mail',
'msg' => 'Messages',
'gen' => 'Generate messages from a file',	'gen' => 'Generate messages from a file',
'gmt' => 'General message text',	'gmt' => 'General message text',
'tff' => 'The file format for the uploaded portion of the message is',	'tff' => 'The file format for the uploaded portion of the message is',
'uas' => 'Upload and Send',	'uas' => 'Upload and Send',
'atta' => 'Attachment',	'atta' => 'Attachment',
	'to' => 'To:',
);	);
my %attachmax = (	my %attachmax = (
text => '(128 KB max size)',	text => &mt('(128 KB max size)'),
num => 131072,	num => 131072,
);	);
if (!$forwarding && !$multiforward) {	if (!$forwarding && !$multiforward) {
$attachrow = '<br />'.$lt{'atta'}.' '.$attachmax{'text'}.': <input type="file" name="attachment" />';	$attachrow = '<tr><td colspan="3"><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'}.': <input type="file" name="attachment" /></td></tr>';
}	}
if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})	if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})
\|\| &Apache::lonnet::allowed('srm',$env{'request.course.id'}.	\|\| &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {	'/'.$env{'request.course.sec'})) {
	my $crstype = &Apache::loncommon::course_type();
my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");	my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
	my $rsstxt;
	if (&Apache::loncommon::course_type() eq 'Community') {
	$rsstxt = &mt('Include in community RSS newsfeed');
	} else {
	$rsstxt = &mt('Include in course RSS newsfeed');
	}
$dispcrit=	$dispcrit=
'<p><label><input type="checkbox" name="critmsg" /> '.&mt('Send as critical message').'</label> ' . $crithelp .	'<span class="LC_nobreak"><label><input type="checkbox" name="critmsg" /> '.&mt('Send as critical message').'.</label>'.$crithelp.'  '.&mt('Require return receipt?').'<label><input type="radio" name="sendbck" value="1" />'.&mt('Yes').'</label>  <label><input type="radio" name="sendbck" value="" checked="checked" />'.&mt('No').'</label></span><br />'.
'</p><p>'.	'<label><input type="checkbox" name="permanent" /> '.
'<label><input type="checkbox" name="sendbck" /> '.&mt('Send as critical message').' ' .	&mt('Send copy to permanent e-mail address (if known)').'</label><br />'.
&mt('and return receipt') . '</label>' . $crithelp .	'<label><input type="checkbox" name="rsspost" /> '.
'</p><p><label><input type="checkbox" name="permanent" /> '.	$rsstxt.'</label><br />';
&mt('Send copy to permanent email address (if known)').'</label></p>'.
'<p><label><input type="checkbox" name="rsspost" /> '.
&mt('Include in course RSS newsfeed').'</label></p>';
}	}
if ($broadcast ne 'group') {	if ($broadcast ne 'group') {
if (&Apache::lonnet::allowed('dff',$env{'request.course.id'}) \|\|	if (&Apache::lonnet::allowed('dff',$env{'request.course.id'}) \|\|
&Apache::lonnet::allowed('dff',$env{'request.course.id'}.	&Apache::lonnet::allowed('dff',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {	'/'.$env{'request.course.sec'})) {
	my $rectxt;
$dispcrit.='<p><label>'.	if (&Apache::loncommon::course_type() eq 'Community') {
	$rectxt = &mt("Include in community's 'User records' for recipient(s)");
	} else {
	$rectxt = &mt("Include in course's 'User records' for recipient(s)");
	}
	$dispcrit.='<label>'.
'<input type="checkbox" name="courserecord" value="1" /> '.	'<input type="checkbox" name="courserecord" value="1" /> '.
&mt("Include in course's 'User records' for recipient(s)").	$rectxt.
'</label></p>';	'</label><br />';
}	}
}	}

my %message;	my %message;
my %content;	my %content;
	my ($hasfloat,$broadcast_js,$sendmode,$can_grp_broadcast);
my $defdom=$env{'user.domain'};	my $defdom=$env{'user.domain'};
	if ($broadcast eq 'group') {
	my %access_status = (
	active => 0,
	previous => 0,
	future => 0,
	);

	if ($group eq '') {
	my $studentsel = &discourse(\%access_status);
	if ($studentsel) {
	if ($env{'environment.wysiwygeditor'} eq 'on') {
	$r->print($studentsel);
	} else {
	$r->print('<div class="LC_left_float">'.$studentsel.'</div>');
	}
	$hasfloat = 1;
	}
	} else {
	$can_grp_broadcast = &check_group_priv($group);
	if ($can_grp_broadcast) {
	$hasfloat = &disgroup($r,$cdom,$cnum,$group,\%access_status);
	}
	}
	if ($hasfloat) {
	$sendmode = '<input type="hidden" name="sendmode" value="group" />'."\n";
	$broadcast_js = qq\|
	<script type="text/javascript">
	// <![CDATA[
	function courseRecipients() {
	\|;
	foreach my $type (keys(%access_status)) {
	if ($access_status{$type}) {
	my $formname = $type.'users';
	if ($type eq 'active' && $group ne '') {
	$broadcast_js .= qq\|
	document.compemail.groupmail.value = document.$formname.groupmail[document.$formname.groupmail.selectedIndex].value;
	\|;
	}
	$broadcast_js .= qq\|
	if (typeof(document.$formname.selectedusers_forminput.length)=="undefined") {
	document.compemail.courserecips.value += '_&&&_'+document.$formname.selectedusers_forminput.value;
	} else {
	for (var i=0; i<document.$formname.selectedusers_forminput.length; i++) {
	if (document.$formname.selectedusers_forminput[i].checked) {
	document.compemail.courserecips.value += '_&&&_'+document.$formname.selectedusers_forminput[i].value;
	}
	}
	}
	\|;
	}
	}
	$broadcast_js .= qq\|
	return;
	}
	// ]]>
	</script>

	\|;
	}
	}
if ($forwarding) {	if ($forwarding) {
%message=&Apache::lonnet::get('nohist_email'.$suffix,[$forwarding]);	%message=&Apache::lonnet::get('nohist_email'.$suffix,[$forwarding]);
%content=&Apache::lonmsg::unpackagemsg($message{$forwarding},$folder);	%content=&Apache::lonmsg::unpackagemsg($message{$forwarding},$folder);
$dispcrit.='<input type="hidden" name="forwid" value="'.	$dispcrit.='<input type="hidden" name="forwid" value="'.
$forwarding.'" />';	$forwarding.'" />';
$func=&mt('Forward');	$func1='Forward'; # do not translate here!

$dissub=&mt('Forwarding').': '.$content{'subject'};	$dissub=&mt('Forwarding').': '.$content{'subject'};
$dismsg=&mt('Forwarded message from').' '.	$dismsg=&mt('Forwarded message from').' '.
Line 1310 sub compout {	Line 1453 sub compout {
%content=&Apache::lonmsg::unpackagemsg($message{$replying},$folder);	%content=&Apache::lonmsg::unpackagemsg($message{$replying},$folder);
$dispcrit.='<input type="hidden" name="replyid" value="'.	$dispcrit.='<input type="hidden" name="replyid" value="'.
$replying.'" />';	$replying.'" />';
$func=&mt('Send Reply to');	$func1='Send Reply to'; # do not translate here!

$dissub=&mt('Reply').': '.$content{'subject'};	$dissub=&mt('Reply').': '.$content{'subject'};
$dismsg='> '.$content{'message'};	$dismsg='> '.$content{'message'};
Line 1329 sub compout {	Line 1472 sub compout {
my $jscript = &Apache::loncommon::check_uncheck_jscript();	my $jscript = &Apache::loncommon::check_uncheck_jscript();
$r->print(<<"ENDREPSCRIPT");	$r->print(<<"ENDREPSCRIPT");
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
$jscript	$jscript
	// ]]>
</script>	</script>
ENDREPSCRIPT	ENDREPSCRIPT
}	}
my $citation=&displayresource(%content);	my $citation=&displayresource(%content);
my ($can_grp_broadcast,$viewgrps,$editgrps);	my $onsubmit;
if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; }	if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; }
if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }	if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }
if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }	if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }
	if ($hasfloat) {
	if ($env{'environment.wysiwygeditor'} eq 'on') {
	$r->print($broadcast_js);
	} else {
	$r->print($broadcast_js.'<div class="LC_left_float">');
	}
	$onsubmit = ' onsubmit="javascript:courseRecipients();" ';
	}
$r->print(	$r->print(
'<form action="/adm/email" name="compemail" method="post"'.	'<form action="/adm/email" name="compemail" method="post"'.
' enctype="multipart/form-data">'."\n".	' enctype="multipart/form-data"'.$onsubmit.'>'."\n".
'<input type="hidden" name="sendmail" value="on" />'."\n");	'<input type="hidden" name="sendmail" value="on" />'."\n".
if ($broadcast eq 'group' && $env{'form.group'} ne '') {	'<table>');
$can_grp_broadcast =	if (($broadcast eq 'group') && ($group ne '') && (!$can_grp_broadcast)) {
&Apache::lonnet::allowed('sgb',$env{'request.course.id'}.'/'.
$group);
$viewgrps =
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
$editgrps =
&Apache::lonnet::allowed('mdg',$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
if ($viewgrps \|\| $editgrps \|\| $can_grp_broadcast) {
$r->print(&disgroup($cdom,$cnum,$group,$viewgrps,$editgrps));
}
}
$r->print('<table>');
if (($broadcast eq 'group') && ($group ne '') &&
(!$can_grp_broadcast && !$viewgrps && !$editgrps)) {
$r->print(&recipient_input_row($cdom,%lt));	$r->print(&recipient_input_row($cdom,%lt));
}	}
if (($broadcast ne 'group') && ($broadcast ne 'upload')) {	if (($broadcast ne 'group') && ($broadcast ne 'upload')) {
if ($replying) {	if ($replying) {
if ($content{'noreplies'}) {	if ($content{'noreplies'}) {
$r->print('<tr><td>'.&mt('This message was designated by the sender not to allow replies.').'</td></tr></table></form>');	$r->print('<tr><td>'.&mt('This message was designated by the sender not to allow replies.').'</td></tr></table></form>');
return;	return;
}	}
$r->print('<tr><td colspan="2">'.&mt('Replying to').' ');	$r->print('<tr><td colspan="3"><b>'.&mt('Replying to').'</b> ');
if ($content{'replytoaddr'}) {	if ($content{'replytoaddr'}) {
my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});	my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
if ($replytoname ne '' && $replytodom ne '') {	if ($replytoname ne '' && $replytodom ne '') {
Line 1394 ENDREPSCRIPT	Line 1532 ENDREPSCRIPT
$content{'senderdomain'}.'" /></td></tr>');	$content{'senderdomain'}.'" /></td></tr>');
}	}
if ($content{'recipid'}) {	if ($content{'recipid'}) {
my @ccs = &retrieve_cc_recips('replying',%content);	my %recips;
if (@ccs > 0) {	&retrieve_recips('replying',\%content,\%recips);
my $replyall = qq\|	if (ref($recips{'to'}) eq 'ARRAY') {
	if (@{$recips{'to'}} > 0) {
	my $replyall;
	if (@{$recips{'to'}} > 1) {
	$replyall = qq\|
	<span class="LC_nobreak">
	<input type="button" value="check all"
	onclick="javascript:checkAll(document.compemail.replying_to)" />

	<input type="button" value="uncheck all"
	onclick="javascript:uncheckAll(document.compemail.replying_to)" />
	</span>
	\|;
	}
	my $tolist = join(' ',@{$recips{'to'}});
	$r->print('<tr><td colspan="3"><table><tr><td>'.&mt('[_1]Send reply[_2] to other recipients','<b>','</b>').':<br />'.$replyall.'</td><td>'.$tolist.'</td></tr></table></td></tr>');
	}
	}
	if (ref($recips{'cc'}) eq 'ARRAY') {
	if (@{$recips{'cc'}} > 0) {
	my $replyall;
	if (@{$recips{'cc'}} > 1) {
	$replyall = qq\|
<span class="LC_nobreak">	<span class="LC_nobreak">
<input type="button" value="check all"	<input type="button" value="check all"
onclick="javascript:checkAll(document.compemail.replying_cc)" />	onclick="javascript:checkAll(document.compemail.replying_cc)" />
Line 1405 ENDREPSCRIPT	Line 1565 ENDREPSCRIPT
onclick="javascript:uncheckAll(document.compemail.replying_cc)" />	onclick="javascript:uncheckAll(document.compemail.replying_cc)" />
</span>	</span>
\|;	\|;
my $cclist = join(' ',@ccs);	}
$r->print('<tr><td>'.&mt('Reply to other recipients').':<br />'.$replyall.'</td><td>'.$cclist.'</td></tr>');	my $cclist = join(' ',@{$recips{'cc'}});
	$r->print('<tr><td colspan="3"><table><tr><td>'.&mt('[_1]Cc[_2] to other copied recipients','<b>','</b>').':<br />'.$replyall.'</td><td>'.$cclist.'</td></tr></table></td></tr>');
	}
	}
	if ($content{'group'} ne '') {
	if (&check_group_priv($content{'group'})) {
	if (ref($recips{'group_cc_broadcast'}) eq 'ARRAY') {
	if (@{$recips{'group_cc_broadcast'}} > 0) {
	my $replyall;
	if (@{$recips{'group_cc_broadcast'}} > 1) {
	$replyall = qq\|
	<span class="LC_nobreak">
	<input type="button" value="check all"
	onclick="javascript:checkAll(document.compemail.replying_groupcc)" />

	<input type="button" value="uncheck all"
	onclick="javascript:uncheckAll(document.compemail.replying_groupcc)" />
	</span>
	\|;
	}
	my $groupcclist = join(' ',@{$recips{'group_cc_broadcast'}});
	$r->print('<tr><td colspan="3"><table><tr><td>'.&mt('[_1]Cc[_2] to other copied group members','<b>','</b>').':<br />'.$replyall.'</td><td>'.$groupcclist.'<input type="hidden" name="group" value="'.$content{'group'}.'" /><input type="hidden" name="sendmode" value="group" /><input type="hidden" name="groupmail" value="cc" /></td></tr></table></td></tr>');
	}
	}
	}
}	}
}	}
} else {	} else {
$r->print(&recipient_input_row($defdom,%lt));	$r->print(&recipient_input_row($defdom,%lt));
}	}
}	}
my $latexHelp = Apache::loncommon::helpLatexCheatsheet();	my $latexHelp = &Apache::loncommon::helpLatexCheatsheet(undef,undef,1);
	my $wysiwyglink=&Apache::lonhtmlcommon::htmlareaselectactive('message').'<br />';
my $subj_size;	my $subj_size;
if ($multiforward) {	if ($multiforward) {
$r->print(&additional_rec_row(\%lt));	$r->print(&additional_rec_row(\%lt));
Line 1421 ENDREPSCRIPT	Line 1606 ENDREPSCRIPT
&mt('Unless you choose otherwise:').'<ul><li>'.	&mt('Unless you choose otherwise:').'<ul><li>'.
&mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'.	&mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'.
&mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>');	&mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>');
$func=&mt('Forward');	$func1='Forward'; # do not translate here!
$dissub = &mt('Forwarding').': ';	$dissub = &mt('Forwarding').': ';
$subj_size = '10';	$subj_size = '10';
my $extra = '<'.&mt('original subject').'>   '.	my $extra = '<'.&mt('original subject').'>   '.
Line 1431 ENDREPSCRIPT	Line 1616 ENDREPSCRIPT
$r->print(&msg_subject_row($dissub,\%lt,$subj_size,$extra));	$r->print(&msg_subject_row($dissub,\%lt,$subj_size,$extra));
$r->print('<tr><td>'.&mt('Message begins with:').'</td><td><input type="text" name="msgheader" value="'.$dismsg.'" /> '.$sender.'   <input type="radio" name="showorigsender" value="1" checked="checked" />'.&mt('Yes').' <input type="radio" name="showorigsender" value="0" />'.&mt('No').'<input type="hidden" name="multiforward" value="'.$multiforward.'" /></td></tr>	$r->print('<tr><td>'.&mt('Message begins with:').'</td><td><input type="text" name="msgheader" value="'.$dismsg.'" /> '.$sender.'   <input type="radio" name="showorigsender" value="1" checked="checked" />'.&mt('Yes').' <input type="radio" name="showorigsender" value="0" />'.&mt('No').'<input type="hidden" name="multiforward" value="'.$multiforward.'" /></td></tr>
</table>	</table>
<br />'.	<br /><table>
$latexHelp.	<tr><td align="left">'."\n".
&mt("Any new text to display before the text of the original messages:").'<br />	$latexHelp."<br />\n".
<textarea name="message" id="message" cols="80" rows="5" wrap="hard">	&mt("Any new text to display before the text of the original messages:").'<br />'."\n".
</textarea></p><br />');	'<textarea name="message" id="message" cols="80" rows="5" wrap="hard"></textarea>'.
	$wysiwyglink);
my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');	my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
foreach my $msg (@to_forward) {	foreach my $msg (@to_forward) {
$r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');	$r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');
}	}
$r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'msg'},	$r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'msg'}),
\%lt));	\%lt));
} elsif ($broadcast ne 'upload') {	} elsif ($broadcast ne 'upload') {
$subj_size = '50';	$subj_size = '50';
Line 1452 $latexHelp.	Line 1638 $latexHelp.
}	}
$r->print(&msg_subject_row($dissub,\%lt,$subj_size));	$r->print(&msg_subject_row($dissub,\%lt,$subj_size));
$r->print(<<"ENDCOMP");	$r->print(<<"ENDCOMP");
</table>
$latexHelp
<textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg
</textarea>
$attachrow	$attachrow
</p>	</table><br />
<br />	$latexHelp<br />
	<textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg
	</textarea>$wysiwyglink
	$sendmode
$dispcrit	$dispcrit
$disbase	$disbase
ENDCOMP	ENDCOMP
$r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'ma'},	$r->print(&submit_button_row($folder,$dismode,&mt($func1.' '.$func2{'ma'}),
\%lt));	\%lt,$hasfloat,$group));
$r->print($citation);	$r->print($citation);
if (exists($env{'form.ref'})) {	if (exists($env{'form.ref'})) {
$r->print('<input type="hidden" name="ref" value="'.	$r->print('<input type="hidden" name="ref" value="'.
Line 1483 Subject: <input type="text" size="50" na	Line 1668 Subject: <input type="text" size="50" na
</p>	</p>
<p>$lt{'gmt'}:<br />	<p>$lt{'gmt'}:<br />
<textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg	<textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg
</textarea></p>	</textarea>$wysiwyglink</p>
<p>	<p>
$lt{'tff'}:	$lt{'tff'}:
ENDBLOCK	ENDBLOCK
Line 1504 $dispcrit	Line 1689 $dispcrit
<input type="submit" value="$lt{'uas'}" /></p>	<input type="submit" value="$lt{'uas'}" /></p>
ENDUPLOAD	ENDUPLOAD
}	}
if ($broadcast eq 'group') {
if ($group eq '') {
my $studentsel = &discourse();
$r->print($studentsel);
}
}
if ($env{'form.displayedcrit'}) {	if ($env{'form.displayedcrit'}) {
$r->print('<input type="hidden" name="displayedcrit" value="true" />');	$r->print('<input type="hidden" name="displayedcrit" value="true" />');
}	}
$r->print('</form>'.	$r->print('</form>');
&Apache::lonfeedback::generate_preview_button('compemail','message').	if ($hasfloat) {
&Apache::lonhtmlcommon::htmlareaselectactive('message'));	unless($env{'environment.wysiwygeditor'} eq 'on') {
	$r->print('</div><div class="LC_clear_float_footer"></div>');
	}
	}
	$r->print(&generate_preview_form);
	}

	sub check_group_priv {
	my ($group) = @_;
	my $cid = $env{'request.course.id'};
	my $sec = $env{'request.course.sec'};
	return if !$cid;
	my $can_broadcast = &Apache::lonnet::allowed('sgb',$cid.'/'.$group);
	my $viewgrps = &Apache::lonnet::allowed('vcg',$cid.($sec?'/'.$sec:''));
	my $editgrps = &Apache::lonnet::allowed('mdg',$cid.($sec?'/'.$sec:''));
	if ($viewgrps \|\| $editgrps \|\| $can_broadcast) {
	return 1;
	}
	return;
}	}

# ---------------------------------------------------- Display all face to face

sub recipient_input_row {	sub recipient_input_row {
my ($dom,%lt) = @_;	my ($dom,%lt) = @_;
my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain');	my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain');
Line 1527 sub recipient_input_row {	Line 1722 sub recipient_input_row {
&Apache::loncommon::selectstudent_link('compemail','recuname',	&Apache::loncommon::selectstudent_link('compemail','recuname',
'recdomain');	'recdomain');
my $output = <<"ENDREC";	my $output = <<"ENDREC";
<tr><td colspan="2"><span class="LC_nobreak">$lt{'us'}: <input type="text" size="12" name="recuname" value="$env{'form.recname'}" /> $lt{'do'}: $domform  $selectlink</span></td></tr>	<tr><td colspan="3"><span class="LC_nobreak"><b>$lt{'to'}</b> $lt{'us'}: <input type="text" size="12" name="recuname" value="$env{'form.recname'}" /> $lt{'do'}: $domform  $selectlink</span></td></tr>
ENDREC	ENDREC
return $output;	return $output;
}	}
Line 1537 sub reply_to_row {	Line 1732 sub reply_to_row {
my $radioyes = &mt('Yes');	my $radioyes = &mt('Yes');
my $radiono = &mt('No');	my $radiono = &mt('No');
my $output = <<"ENDREP";	my $output = <<"ENDREP";
<tr><td colspan="2"><span class="LC_nobreak">$lt->{'ar'}:<label><input type="radio" name="can_reply" value="Y" checked="checked" />$radioyes</label>  <label><input type="radio" name="can_reply" value="N" />$radiono</label></span>    <span class="LC_nobreak">$lt->{'rt'}: <input type="text" size="25" name="reply_to_addr" value="$env{'user.name'}:$env{'user.domain'}" /></span></td></tr>	<tr><td colspan="3"><span class="LC_nobreak"><b>$lt->{'ar'}</b>:<label><input type="radio" name="can_reply" value="Y" checked="checked" />$radioyes</label>  <label><input type="radio" name="can_reply" value="N" />$radiono</label></span>    <span class="LC_nobreak">$lt->{'rt'}: <input type="text" size="25" name="reply_to_addr" value="$env{'user.name'}:$env{'user.domain'}" /></span></td></tr>
ENDREP	ENDREP
return $output;	return $output;
}	}
Line 1548 sub additional_rec_row {	Line 1743 sub additional_rec_row {
my $bcc = &mt('Bcc:');	my $bcc = &mt('Bcc:');
my $exmpl = &mt('username:domain,username:domain,...');	my $exmpl = &mt('username:domain,username:domain,...');
my $output = <<"ENDADD";	my $output = <<"ENDADD";
<tr><td>$lt->{'ad'} :<br /><tt>($exmpl)	<tr><td colspan="3"><fieldset id="LC_additionalrecips"><legend><b>$lt->{'ad'}</b> <tt>($exmpl)</tt>:</legend><table>
</tt></td><td> <span class="LC_nobreak">$cc	<tr><td> </td><td>$lt->{'to'}</td><td><input type="text" size="50" name="additionalrec_to" /></td></tr>
<input type="text" size="50" name="additionalrec_cc" /></span><br />	<tr><td> </td><td>$cc</td><td><input type="text" size="50" name="additionalrec_cc" /></td></tr>
<span class="LC_nobreak">$bcc <input type="text" size="50" name="additionalrec_bcc" /></span></td></tr>	<tr><td> </td><td>$bcc</td><td><input type="text" size="50" name="additionalrec_bcc" /></td></tr></table></fieldset></td></tr>
ENDADD	ENDADD
return $output;	return $output;
}	}

sub submit_button_row {	sub submit_button_row {
my ($folder,$dismode,$sendtext,$lt) = @_;	my ($folder,$dismode,$sendtext,$lt,$is_crsform,$group) = @_;
my $output = qq\|	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 $output = qq\|
<input type="hidden" name="folder" value="$folder" />	<input type="hidden" name="folder" value="$folder" />
<input type="hidden" name="dismode" value="$dismode" />	<input type="hidden" name="dismode" value="$dismode" />\|;
<input type="submit" name="send" value="$sendtext" />	if ($is_crsform) {
<input type="submit" name="cancel" value="$lt->{'ca'}" /><hr />	$output .= '<input type="hidden" name="courserecips" value="" />'."\n";
	if ($group ne '') {
	$output .= '<input type="hidden" name="groupmail" value="" />'."\n";
	}
	}
	$output .= qq\|
	<table><tr><td align="left">
	<input type="submit" name="send" value="$value" title="$sendtext" />
	<input type="submit" name="cancel" value="$lt->{'ca'}" />
	</td><td width="60"> </td><td align="right">$prevbutton</td></tr></table>
\|;	\|;
return $output;	return $output;
}	}

sub msg_subject_row {	sub msg_subject_row {
my ($dissub,$lt,$subj_size,$extra) = @_;	my ($dissub,$lt,$subj_size,$extra) = @_;
my $output = '<tr><td colspan="2">'.$lt->{'sb'}.': <input type="text" size="'.	my $output = '<tr><td colspan="3"><b>'.$lt->{'sb'}.'</b>: <input type="text" size="'.
$subj_size.'" name="subject" value="'.$dissub.'" />'.$extra.	$subj_size.'" name="subject" value="'.$dissub.'" />'.$extra.
'</td></tr>';	'</td></tr>';
return $output;	return $output;
}	}

	sub generate_preview_form {
	my $prevbutton = (<<ENDPREVIEW);
	<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview">
	<input type="hidden" name="subject" />
	<input type="hidden" name="comment" />
	</form>
	ENDPREVIEW
	}

	# ---------------------------------------------------- Display all face to face

sub retrieve_instructor_comments {	sub retrieve_instructor_comments {
my ($user,$domain)=@_;	my ($user,$domain)=@_;
my $target=$env{'form.grade_target'};	my $target=$env{'form.grade_target'};
Line 1620 sub disfacetoface {	Line 1838 sub disfacetoface {
foreach my $key (sort(keys(%records))) {	foreach my $key (sort(keys(%records))) {
my %content=&Apache::lonmsg::unpackagemsg($records{$key});	my %content=&Apache::lonmsg::unpackagemsg($records{$key});
next if ($content{'senderdomain'} eq '');	next if ($content{'senderdomain'} eq '');
&Apache::lonfeedback::newline_to_br(\$content{'message'});	if (!&Apache::lonfeedback::contains_block_html($content{'message'})) {
	&Apache::lonfeedback::newline_to_br(\$content{'message'});
	}
if ($content{'subject'}=~/^Record/) {	if ($content{'subject'}=~/^Record/) {
$result.='<h3>'.&mt('Record').'</h3>';	$result.='<h3>'.&mt('Record').'</h3>';
} elsif ($content{'subject'}=~/^Broadcast/) {	} elsif ($content{'subject'}=~/^Broadcast/) {
Line 1674 $content{'sendername'}.':'.	Line 1894 $content{'sendername'}.':'.
}	}
# Check to see if there were any messages.	# Check to see if there were any messages.
if ($result eq '') {	if ($result eq '') {
my $lctype = lc(&Apache::loncommon::course_type());	my $lctype = &mt(lc(&Apache::loncommon::course_type()));
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>");	$r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>");
} else {	} else {
Line 1708 sub facetoface {	Line 1928 sub facetoface {
return;	return;
}	}
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
my $leaders = ($crstype eq 'Group') ? 'coordinators and leaders'	my $leaders = ($crstype eq 'Community') ? 'coordinators and leaders'
: 'faculty and staff';	: 'faculty and staff';
&printheader($r,	&printheader($r,
'/adm/email?recordftf=query',	'/adm/email?recordftf=query',
Line 1731 sub facetoface {	Line 1951 sub facetoface {
'subm' => 'Retrieve discussion and message records',	'subm' => 'Retrieve discussion and message records',
'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',	'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',
'post' => 'Post this Record');	'post' => 'Post this Record');
$r->print(<<"ENDTREC");
<h3>$lt{'head'}</h3>	$r->print('<h2>'.$lt{'head'}.'</h2>'
<form method="post" action="/adm/email" name="stdselect">	.'<form method="post" action="/adm/email" name="stdselect">'
<input type="hidden" name="recordftf" value="retrieve" />	.'<input type="hidden" name="recordftf" value="retrieve" />'
<table>	.&Apache::lonhtmlcommon::start_pick_box()
<tr><td>$lt{'user'}:</td><td><input type="text" size="12" name="recuname" value="$env{'form.recuname'}" /></td>	.&Apache::lonhtmlcommon::row_title($lt{'user'})
<td rowspan="2">	.'<input type="text" size="12" name="recuname" value="'.$env{'form.recuname'}.'" />'
$stdbrws	.' '.$stdbrws
<input type="submit" value="$lt{'subm'}" /></td>	.&Apache::lonhtmlcommon::row_closure()
</tr>	.&Apache::lonhtmlcommon::row_title($lt{'dom'})
<tr><td>$lt{'dom'}:</td>	.$domform
<td>$domform</td></tr>	.&Apache::lonhtmlcommon::row_closure(1)
</table>	.&Apache::lonhtmlcommon::end_pick_box()
</form>	.'<br />'
ENDTREC	.'<input type="submit" value="'.$lt{'subm'}.'" />'
	.'</form>'
	);

if (($stage ne 'query') &&	if (($stage ne 'query') &&
($env{'form.recdomain'}) && ($env{'form.recuname'})) {	($env{'form.recdomain'}) && ($env{'form.recuname'})) {
chomp($env{'form.newrecord'});	chomp($env{'form.newrecord'});
Line 1754 ENDTREC	Line 1977 ENDTREC
$env{'form.recuname'},	$env{'form.recuname'},
$env{'form.recdomain'});	$env{'form.recdomain'});
}	}
$r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'},	my $aboutmelink=&Apache::loncommon::aboutmewrapper(
$env{'form.recdomain'}).'</h3>');	&Apache::loncommon::plainname($env{'form.recuname'}
	,$env{'form.recdomain'})
	,$env{'form.recuname'},$env{'form.recdomain'});
	$r->print('<hr />'
	.'<h2>'
	.&mt('Discussion and message records for [_1] ([_2])'
	,$aboutmelink
	,$env{'form.recuname'}.':'.$env{'form.recdomain'})
	.'<h2>'
	);
&disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'});	&disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'});
$r->print(<<ENDRHEAD);	$r->print(<<ENDRHEAD);
<form method="post" action="/adm/email">	<form method="post" action="/adm/email">
Line 1784 sub examblock {	Line 2016 sub examblock {
$r->print('Not allowed');	$r->print('Not allowed');
return;	return;
}	}
my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members'	my $usertype;
: 'students';	my $crstype = &Apache::loncommon::course_type();
	if ($crstype eq 'Community') {
	$usertype = 'members';
	} else {
	$usertype = 'students';
	}
	my $lctype = lc($crstype);
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'comb' => 'Communication Blocking',	'comb' => 'Communication Blocking',
'cbds' => 'Communication blocking during scheduled exams',	'cbds' => 'Communication blocking during scheduled exams',
'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",	'desc' => "You can use communication blocking to prevent $usertype enrolled in this $lctype from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course or community, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",
'mecb' => 'Modify existing communication blocking periods',	'mecb' => 'Modify existing communication blocking periods',
'ncbc' => 'No communication blocks currently saved',	'ncbc' => 'No communication blocks currently saved',
'stor' => 'Save',	'stor' => 'Save',
Line 1966 sub display_blocker_status {	Line 2204 sub display_blocker_status {
<th>$ltext->{'setb'}</th>	<th>$ltext->{'setb'}</th>
<th>$ltext->{'even'}</th>	<th>$ltext->{'even'}</th>
<th>$ltext->{'blck'}</th>	<th>$ltext->{'blck'}</th>
<th>$ltext->{'actn'}?</th>	<th>$ltext->{'actn'}</th>
</tr>	</tr>
END	END
foreach my $record (sort(keys(%{$records}))) {	foreach my $record (sort(keys(%{$records}))) {
Line 1986 END	Line 2224 END
$setuname,$setudom);	$setuname,$setudom);
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");	$r->print(<<"END");
<td>$ltext->{'star'}: $startform<br/>$ltext->{'endd'}:  $endform</td>	<td>$ltext->{'star'}: $startform<br />$ltext->{'endd'}:  $endform</td>
<td>$settername</td>	<td>$settername</td>
<td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>	<td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>
<td>	<td>
Line 1994 END	Line 2232 END
foreach my $block (@{$typeorder}) {	foreach my $block (@{$typeorder}) {
my $blockstatus = '';	my $blockstatus = '';
if ($blocks->{$block} eq 'on') {	if ($blocks->{$block} eq 'on') {
$blockstatus = 'checked="true"';	$blockstatus = 'checked="checked"';
}	}
$r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" '.$blockstatus.' value="1" />'.$types->{$block}.'</label><br />');	$r->print('<span class="LC_nobreak"><label><input type="checkbox" name="'.$block.'_'.$parmcount.'" '.$blockstatus.' value="1" />'.$types->{$block}.'</label></span><br />');
}	}
$r->print(<<"END");	$r->print(<<"END");
</td>	</td>
<td><label>$lt{'modi'}? <input type="checkbox" name="modify_$parmcount" /></label><br /><label>$lt{'canc'}?  <input type="checkbox" name="cancel_$parmcount" /></label>	<td><span class="LC_nobreak"><label>
	<input type="checkbox" name="modify_$parmcount" />$lt{'modi'}
	</label></span><br /><span class="LC_nobreak">
	<label>
	<input type="checkbox" name="cancel_$parmcount" />$lt{'canc'}
	</label></span>
END	END
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
$parmcount++;	$parmcount++;
Line 2037 END	Line 2280 END
<th>$ltext->{'dura'}</th>	<th>$ltext->{'dura'}</th>
<th>$ltext->{'even'} $lt{'exam'}</th>	<th>$ltext->{'even'} $lt{'exam'}</th>
<th>$ltext->{'blck'}</th>	<th>$ltext->{'blck'}</th>
<th>$ltext->{'actn'}?</th>	<th>$ltext->{'actn'}</th>
</tr>	</tr>
END	END
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
Line 2047 END	Line 2290 END
<td>	<td>
END	END
foreach my $block (@{$typeorder}) {	foreach my $block (@{$typeorder}) {
$r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" value="1" />'.$types->{$block}.'</label><br />');	$r->print('<span class="LC_nobreak"><label><input type="checkbox" name="'.$block.'_'.$parmcount.'" value="1" />'.$types->{$block}.'</label></span><br />');
}	}
$r->print(<<"END");	$r->print(<<"END");
</td>	</td>
<td><label>$lt{'addb'}? <input type="checkbox" name="add_$parmcount" value="1" /></label></td>	<td><span class="LC_nobreak"><label>
	<input type="checkbox" name="add_$parmcount" value="1" />$lt{'addb'}
	</label></span></td>
END	END
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
Line 2061 END	Line 2306 END
sub blocktype_text {	sub blocktype_text {
my %types = &Apache::lonlocal::texthash(	my %types = &Apache::lonlocal::texthash(
'com' => 'Messaging',	'com' => 'Messaging',
'chat' => 'Chat',	'chat' => 'Chat Room',
'boards' => 'Discussion',	'boards' => 'Discussion',
'port' => 'Portfolio',	'port' => 'Portfolio',
'groups' => 'Groups',	'groups' => 'Groups',
Line 2087 sub displaymessage {	Line 2332 sub displaymessage {
if ( $blocked{$msgid} eq 'ON' ) {	if ( $blocked{$msgid} eq 'ON' ) {
&printheader($r,'/adm/email',&mt('Display a Message'));	&printheader($r,'/adm/email',&mt('Display a Message'));
$r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.'));	$r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.'));
&build_block_table($r,$startblock,$endblock,\%setters);	$r->print(&Apache::loncommon::build_block_table($startblock,$endblock,\%setters));
return;	return;
}	}
if ($msgstatus eq '') {	if ($msgstatus eq '') {
Line 2096 sub displaymessage {	Line 2341 sub displaymessage {
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);	my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});	my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});
my $counter=0;	my $counter=0;
$r->print('<pre>');
my $escmsgid=&escape($msgid);	my $escmsgid=&escape($msgid);
foreach (@messages) {	foreach (@messages) {
if ($_->[5] eq $escmsgid){	if ($_->[5] eq $escmsgid){
Line 2104 sub displaymessage {	Line 2348 sub displaymessage {
}	}
$counter++;	$counter++;
}	}
$r->print('</pre>');

my $see_anonymous;	my $see_anonymous;
my $from_student = 0;	my $from_student = 0;
Line 2125 sub displaymessage {	Line 2368 sub displaymessage {
# start output	# start output
&printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});	&printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});
my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});	my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
# Functions
$r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>');	# Functions and Actions
	my $li_start='<span class="LC_nobreak">• ';
	my $li_end='</span> ';

	# Prepare available functions
	my @functionlist;
if (!$content{'noreplies'}) {	if (!$content{'noreplies'}) {
$r->print('<td><a href="/adm/email?replyto='.&escape($msgid).$sqs.	push(@functionlist,'<a href="/adm/email?replyto='.&escape($msgid).$sqs.'">'
'"><b>'.&mt('Reply').'</b></a></td>');	.&mt('Reply')
}	.'</a>');
$r->print('<td><a href="/adm/email?forward='.&escape($msgid).$sqs.	}
'"><b>'.&mt('Forward').'</b></a></td>'.	push(@functionlist,'<a href="/adm/email?forward='.&escape($msgid).$sqs.'">'
'<td><a href="/adm/email?markunread='.&escape($msgid).$sqs.	.&mt('Forward')
'"><b>'.&mt('Mark Unread').'</b></a></td>'.	.'</a>');
'<td><a href="/adm/email?markdel='.&escape($msgid).$sqs.	push(@functionlist,'<a href="/adm/email?markunread='.&escape($msgid).$sqs.'">'
'"><b>'.&mt('Delete').'</b></a></td>'.	.&mt('Mark Unread')
'<td><a href="/adm/email?'.$sqs.	.'</a>');
'"><b>'.&mt('Back to Folder Display').'</b></a></td>');	push(@functionlist,'<a href="/adm/email?markdel='.&escape($msgid).$sqs.'">'
	.&mt('Delete')
	.'</a>');
	push(@functionlist,'<a href="/adm/email?'.$sqs.'">'
	.&mt('Back to Folder Display')
	.'</a>');
if ($counter > 0){	if ($counter > 0){
$r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.	push(@functionlist,'<a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs.'">'
'"><b>'.&mt('Previous').'</b></a></td>');	.&mt('Previous')
	.'</a>');
}	}
if ($counter < $number_of_messages - 1){	if ($counter < $number_of_messages - 1){
$r->print('<td><a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.	push(@functionlist,'<a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs.'">'
'"><b>'.&mt('Next').'</b></a></td>');	.&mt('Next')
}	.'</a>');
$r->print('</tr></table>');	}
	# Print functions
	my $legendtext='<span class="LC_mail_functions">'
	.&mt('Functions')
	.'</span>';
	my $showfunctionlist = $li_start.join($li_end.$li_start,@functionlist).$li_end;
	$r->print('<div class="LC_left_float">'
	.'<fieldset>'
	.'<legend>'
	.$legendtext
	.'</legend>'
	.$showfunctionlist
	.'</fieldset>'
	.'</div>'
	);

	# Prepare available actions
my $symb;	my $symb;
if (defined($content{'symb'})) {	if (defined($content{'symb'})) {
$symb = $content{'symb'};	$symb = $content{'symb'};
Line 2155 sub displaymessage {	Line 2425 sub displaymessage {
$symb=&Apache::lonnet::symbread($content{'baseurl'});	$symb=&Apache::lonnet::symbread($content{'baseurl'});
}	}
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
my $adv_actions;	my @actionlist;
$r->print('<table border="2" width="100%"><tr bgcolor="#FFAAAA"><td>'.&mt('Currently available actions (will open extra window)').':</td>');
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
$r->print('<td><b>'.&Apache::loncommon::track_student_link(&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check').'</b></td>');	push(@actionlist,&Apache::loncommon::track_student_link(
}	&mt('View recent activity')
	,$content{'sendername'}
	,$content{'senderdomain'}
	,'check'));
	}
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {
$r->print('<td><b>'.&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');	push(@actionlist,&Apache::loncommon::pprmlink(
	&mt('Set/Change parameters')
	,$content{'sendername'}
	,$content{'senderdomain'}
	,$symb
	,'check'));
}	}
if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {	if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {
$r->print('<td><b>'.&Apache::loncommon::pgrdlink(&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');	push(@actionlist,&Apache::loncommon::pgrdlink(
}	&mt('Set/Change grades')
$r->print('</tr></table>');	,$content{'sendername'}
	,$content{'senderdomain'}
	,$symb
	,'check'));
	}

	# Print actions
	if (@actionlist) {
	my $showactionlist = $li_start.join($li_end.$li_start,@actionlist).$li_end;
	$legendtext=&mt('[_1]Currently available actions[_2] (will open extra window):'
	,'<span class="LC_mail_functions">','</span>');
	$r->print('<div class="LC_left_float">'
	.'<fieldset>'
	.'<legend>'
	.$legendtext
	.'</legend>'
	.$showactionlist
	.'</fieldset>'
	.'</div>'
	);
	}
	}

	my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients);
	if ($content{'recipid'}) {
	$tonum = &retrieve_recips('display',\%content,\%recipients);
	if (ref($recipients{'cc'}) eq 'ARRAY') {
	$cclist = join(', ',@{$recipients{'cc'}});
	}
	if (ref($recipients{'to'}) eq 'ARRAY') {
	$tolist = join(', ',@{$recipients{'to'}});
	}
	if (ref($recipients{'bcc'}) eq 'ARRAY') {
	$bcclist = join(', ',@{$recipients{'bcc'}});
	}
	}

	my $broadcast_link;
	if (($content{'courseid'}) && ($content{'recipid'} &&
	(ref($recipients{'course_broadcast'}) eq 'ARRAY') \|\|
	(ref($recipients{'group_cc_broadcast'}) eq 'ARRAY') \|\|
	(ref($recipients{'group_bcc_broadcast'}) eq 'ARRAY'))) {
	$broadcast_link = &recipients_link($r,\%content,\%recipients);
}	}
my ($tolist,$cclist);
my (@recipients,@ccs);	if (((!$tolist) && (!$broadcast_link)) && ref($content{'recuser'}) eq 'ARRAY') {
if (ref($content{'recuser'}) eq 'ARRAY') {	my @recipients;
for (my $i=0; $i<@{$content{'recuser'}}; $i++) {	for (my $i=0; $i<@{$content{'recuser'}}; $i++) {
$recipients[$i] = &Apache::loncommon::aboutmewrapper(	$recipients[$i] = &Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'recuser'}[$i],	&Apache::loncommon::plainname($content{'recuser'}[$i],
$content{'recdomain'}[$i]),	$content{'recdomain'}[$i]),
$content{'recuser'}[$i],$content{'recdomain'}[$i]).	$content{'recuser'}[$i],$content{'recdomain'}[$i]).
' ('.$content{'recuser'}[$i].' '.&mt('at').' '.$content{'recdomain'}[$i].') ';	' ('.$content{'recuser'}[$i].':'.$content{'recdomain'}[$i].') ';
}	}
}	$tolist = join(', ',@recipients);
$tolist = join(', ',@recipients);
if ($content{'recipid'}) {
@ccs = &retrieve_cc_recips('display',%content);
$cclist = join(', ',@ccs);
}	}
my ($restitle,$baseurl,$refers_to);	my ($restitle,$baseurl,$refers_to);
if (defined($content{'resource_title'})) {	if (defined($content{'resource_title'})) {
Line 2195 sub displaymessage {	Line 2512 sub displaymessage {
if (defined($content{'baseurl'})) {	if (defined($content{'baseurl'})) {
$baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});	$baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});
}	}
	$r->print('<div class="LC_clear_float_footer">');
if ($from_student && $see_anonymous ) {	if ($from_student && $see_anonymous ) {
$r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}));	$r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}).'</br>');
}	}

$r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'});	# Display LON-CAPA Message (Start)
	# Subject
	$r->print('</div>'
	.&Apache::lonhtmlcommon::start_pick_box()
	.&Apache::lonhtmlcommon::row_title(&mt('Subject'))
	.$content{'subject'}
	.&Apache::lonhtmlcommon::row_closure()
	);
if ($folder eq 'sent') {	if ($folder eq 'sent') {
$r->print('<br /><b>'.&mt('To').':</b> '.$tolist);	# To
	if ($tolist) {
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('To'))
	.$tolist
	.&Apache::lonhtmlcommon::row_closure()
	);
	}
	if ($cclist) {
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Cc'))
	.$cclist
	.&Apache::lonhtmlcommon::row_closure()
	);
	}
	if ($bcclist) {
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Bcc'))
	.$bcclist
	.&Apache::lonhtmlcommon::row_closure()
	);
	}
	if (($content{'courseid'}) && ($content{'recipid'})) {
	my %broadcast_types =
	&Apache::lonlocal::texthash (
	course_broadcast => 'Broadcast to',
	group_cc_broadcast => 'Cc to group',
	group_bcc_broadcast => 'Bcc to group',
	);
	foreach my $type (sort(keys(%broadcast_types))) {
	if (ref($recipients{$type}) eq 'ARRAY') {
	my $num = @{$recipients{$type}};
	my $broadcastlist = join(', ',@{$recipients{$type}});
	if ($broadcastlist && $broadcast_link) {
	if ($type eq 'group_cc_broadcast') {
	$groupcclist = $broadcastlist;
	}
	$r->print(&Apache::lonhtmlcommon::row_title(
	$broadcast_types{$type})
	.&mt('[quant,_1,recipient]',$num)
	.' <a href="javascript:showBroadcastList();">['
	.&mt('Show').']</a>'
	.&Apache::lonhtmlcommon::row_closure());
	}
	}
	}
	}
if ($content{'replytoaddr'}) {	if ($content{'replytoaddr'}) {
my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});	my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
if ($replytoname ne '' && $replytodom ne '') {	if ($replytoname ne '' && $replytodom ne '') {
$r->print('<br /><b>'.&mt('Reply To').':</b> '.	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Reply To'))
$replytoname.' '.&mt('at').' '.$replytodom);	.$replytoname.':'.$replytodom
	.&Apache::lonhtmlcommon::row_closure()
	);
}	}
}	}
} else {	} else {
$r->print('<br /><b>'.&mt('From').':</b> '.	# From, Reply
&Apache::loncommon::aboutmewrapper(	$r->print(&Apache::lonhtmlcommon::row_title(&mt('From'))
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),	.&Apache::loncommon::aboutmewrapper(
$content{'sendername'},$content{'senderdomain'}));	&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
	$content{'sendername'},$content{'senderdomain'})
	);
if ($content{'noreplies'}) {	if ($content{'noreplies'}) {
$r->print(' ('.&mt('No replies to sender').')');	$r->print(' ('.&mt('No replies to sender').')'
	.&Apache::lonhtmlcommon::row_closure()
	);
} else {	} else {
if ($content{'replytoaddr'}) {	if ($content{'replytoaddr'}) {
my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});	my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
if ($replytoname ne '' && $replytodom ne '') {	if ($replytoname ne '' && $replytodom ne '') {
$r->print('<br /><b>'.&mt('Reply To').':</b> '.	$r->print(&Apache::lonhtmlcommon::row_closure()
$replytoname.' '.&mt('at').' '.$replytodom);	.&Apache::lonhtmlcommon::row_title(&mt('Reply To'))
	.$replytoname.':'.$replytodom
	.&Apache::lonhtmlcommon::row_closure()
	);
	} else {
	$r->print(&Apache::lonhtmlcommon::row_closure());
}	}
} else {	} else {
$r->print(' ('.$content{'sendername'}.' '.&mt('at').' '.	$r->print(' ('.$content{'sendername'}.':'.$content{'senderdomain'}.') '
$content{'senderdomain'}.') ');	.&Apache::lonhtmlcommon::row_closure()
	);
	}
	if ($tonum && $tolist) {
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('To'))
	.$tolist
	.&Apache::lonhtmlcommon::row_closure()
	);
}	}
if ($cclist) {	if ($cclist) {
$r->print('<br /><b>'.&mt('Cc').':</b> '.$cclist);	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Cc'))
	.$cclist
	.&Apache::lonhtmlcommon::row_closure()
	);
}	}
}	if ($content{'group'} ne '') {
	if (&check_group_priv($content{'group'})) {
	$groupcclist = join(', ',@{$recipients{'group_cc_broadcast'}});
	if ($groupcclist) {
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Group Cc'))
	.$groupcclist
	.&Apache::lonhtmlcommon::row_closure()
	);
	}
	}
	}
	}
}	}

	# Course
if ($content{'courseid'}) {	if ($content{'courseid'}) {
$r->print('<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'});	$r->print(&Apache::lonhtmlcommon::row_title(&mt($crstype))
	.$courseinfo{'description'}
	);
if ($content{'coursesec'}) {	if ($content{'coursesec'}) {
$r->print(' ('.&mt('Section').': '.$content{'coursesec'}.')');	$r->print(' ('.&mt('Section').': '.$content{'coursesec'}.')');
}	}
	$r->print(&Apache::lonhtmlcommon::row_closure());
}	}
$r->print('<br /><b>'.&mt('Time').':</b> '.$content{'time'});	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Time'))
	.$content{'time'}
	.&Apache::lonhtmlcommon::row_closure()
	);

	# Refers to
if ($baseurl) {	if ($baseurl) {
if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {	if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
if ($content{'courseid'} eq $env{'request.course.id'}) {	if ($content{'courseid'} eq $env{'request.course.id'}) {
Line 2256 sub displaymessage {	Line 2666 sub displaymessage {
if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {	if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
$showurl = $baseurl;	$showurl = $baseurl;
}	}
$r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$showurl.$symblink.'">'.$restitle.'</a>');	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
	.'<a href="'.$showurl.$symblink.'">'.$restitle.'</a>'
	.&Apache::lonhtmlcommon::row_closure()
	);
$refers_to = 1;	$refers_to = 1;
}	}
}	}
Line 2269 sub displaymessage {	Line 2682 sub displaymessage {
$content{'courseid'});	$content{'courseid'});
if ($unencurl ne '') {	if ($unencurl ne '') {
if (&Apache::lonnet::allowed('bre',$unencurl)) {	if (&Apache::lonnet::allowed('bre',$unencurl)) {
$r->print('<br /><b>'.&mt('Refers to').	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
':</b> <a href="'.$unencurl.'">'.	.'<a href="'.$unencurl.'">'.$restitle.'</a>'
$restitle.'</a>');	.&Apache::lonhtmlcommon::row_closure()
	);
}	}
}	}
}	}
}	}
} else {	} else {
if (&Apache::lonnet::allowed('bre',$baseurl)) {	if (&Apache::lonnet::allowed('bre',$baseurl)) {
$r->print('<br /><b>'.&mt('Refers to').	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
':</b> <a href="'.$baseurl.	.'<a href="'.$baseurl.'">'.$restitle.'</a>'
'">'.$restitle.'</a>');	.&Apache::lonhtmlcommon::row_closure()
	);

}	}
}	}
}	}
}	}
$r->print('<p><pre>'.
&Apache::lontexconvert::msgtexconverted($content{'message'},1).	# Message
'</pre><hr />'.&displayresource(%content).'</p>');	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Message'))
	.'<pre>'
	.&Apache::lontexconvert::msgtexconverted($content{'message'},1)
	.'</pre>'
	);
	if (&displayresource(%content)) {
	$r->print(&Apache::lonhtmlcommon::row_closure()
	.&Apache::lonhtmlcommon::row_title(&mt('Resource Details'))
	.&displayresource(%content)
	);
	}
	$r->print(&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::end_pick_box());
	# Display LON-CAPA Message (End)
return;	return;
}	}

sub retrieve_cc_recips {	sub retrieve_recips {
my ($context,%content) = @_;	my ($context,$content,$recips)= @_;
my %reciphash =	my $tonum = 0;
&Apache::lonnet::get('nohist_emailrecip',[$content{'recipid'}],	if (ref($content) eq 'HASH') {
$content{'senderdomain'},$content{'sendername'});	my %reciphash =
my $recipinfo = $reciphash{$content{'recipid'}};	&Apache::lonnet::get('nohist_emailrecip',[$content->{'recipid'}],
my @ccs;	$content->{'senderdomain'},$content->{'sendername'});
if (ref($recipinfo) eq 'HASH') {	my $recipinfo = $reciphash{$content->{'recipid'}};
if (ref($recipinfo->{'cc'}) eq 'HASH') {	if (ref($recipinfo) eq 'HASH') {
foreach my $cc (sort(keys(%{$recipinfo->{'cc'}}))) {	foreach my $type ('to','cc','course_broadcast','group_cc_broadcast','group_bcc_broadcast') {
my ($ccname,$ccdom) = split(/:/,$cc);	if (ref($recipinfo->{$type}) eq 'HASH') {
if (!(($ccname eq $env{'user.name'}) &&	if ($type eq 'to') {
($ccdom eq $env{'user.domain'}))) {	$tonum = keys(%{$recipinfo->{$type}});
my $showcc ='<span class="LC_nobreak">';	}
if ($context eq 'replying') {	foreach my $user (sort(keys(%{$recipinfo->{$type}}))) {
$showcc = '<label><input type="checkbox" name="replying_cc" value="'.$cc.'" />';	my ($uname,$udom) = split(/:/,$user);
}	next if (($context eq 'replying') && ($uname eq $env{'user.name'})
$showcc .= &Apache::loncommon::aboutmewrapper(	&& ($udom eq $env{'user.domain'}));
&Apache::loncommon::plainname($ccname,	my $showuser ='<span class="LC_nobreak">';
$ccdom),$ccname,$ccdom);	if ($context eq 'replying') {
if ($context eq 'replying') {	if (($type eq 'to') \|\| ($type eq 'cc')) {
$showcc .='</label>';	$showuser = '<label><input type="checkbox" name="replying_'.$type.'" value="'.$user.'" />';
}	} elsif ($type eq 'group_cc_broadcast') {
$showcc .= '</span>';	$showuser = '<label><input type="checkbox" name="replying_groupcc" value="'.$user.'" />';
push(@ccs,$showcc);	}
	}
	$showuser .= &Apache::loncommon::aboutmewrapper(
	&Apache::loncommon::plainname($uname,
	$udom),$uname,$udom);
	if ($context eq 'replying') {
	$showuser .='</label>';
	}
	$showuser .= '</span>';
	if (ref($recips) eq 'HASH') {
	push(@{$recips->{$type}},$showuser);
	}
	}
}	}
}	}
}	}
}	}
return @ccs;	return $tonum;
	}

	sub recipients_link {
	my ($r,$content,$recipients) = @_;
	my ($broadcast_link,$show);
	if ((ref($content) eq 'HASH') && (ref($recipients) eq 'HASH')) {
	if (ref($recipients->{'course_broadcast'}) eq 'ARRAY') {
	if (@{$recipients->{'course_broadcast'}} > 0) {
	$show = 'course';
	}
	} elsif (ref($recipients->{'group_cc_broadcast'}) eq 'ARRAY') {
	if (@{$recipients->{'group_cc_broadcast'}} > 0) {
	$show = 'group_cc';
	}
	} elsif (ref($recipients->{'group_bcc_broadcast'}) eq 'ARRAY') {
	if (@{$recipients->{'group_bcc_broadcast'}} > 0) {
	$show = 'group_bcc';
	}
	}
	if ($show) {
	my ($nothing,$height,$width,$start_page,$end_page,$body);
	$nothing=&Apache::lonhtmlcommon::javascript_nothing();
	$height = 400;
	$width = 600;
	$start_page =
	&Apache::loncommon::start_page('Broadcast List', undef,
	{only_body => 1,
	js_ready => 1,});
	$end_page = &Apache::loncommon::end_page({js_ready => 1,});
	$body = '<h3>'.&mt("Recipients of broadcast message").'</h3>'.
	&Apache::loncommon::start_data_table();
	my $cell = 0;
	$body .= &Apache::loncommon::start_data_table_row();
	foreach my $item (@{$recipients->{$show.'_broadcast'}}) {
	$item =~ s/'/\\'/g;
	if (!($cell%2) && $cell > 0) {
	$body .= &Apache::loncommon::end_data_table_row().
	&Apache::loncommon::start_data_table_row();
	}
	$cell ++;
	$body .= '<td>'.$cell.' '.$item.'  </td>';
	}
	if ($cell%2) {
	$body .= '<td> </td>';
	}
	$body .= &Apache::loncommon::end_data_table_row().
	&Apache::loncommon::end_data_table();
	$body =~ s{</}{<\\/}g;
	$body =~ s{\n}{}g;
	$r->print(<<ENDJS);
	<script type="text/javascript">
	// <![CDATA[
	function showBroadcastList() {
	var caller = this;
	var newWindow = null;
	try {
	newWindow = window.open($nothing,"broadcast","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" );
	}
	catch(error) {
	writeWin(caller);
	return;
	}
	if (newWindow) {
	caller = newWindow;
	}
	writeWin(caller);
	return;
	}

	function writeWin(caller) {
	caller.document.writeln('$start_page $body $end_page');
	caller.document.close();
	caller.focus();
	}
	// ]]>
	</script>

	ENDJS
	$broadcast_link = 1;
	}
	}
	return $broadcast_link;
}	}

# =========================================================== Show the citation	# =========================================================== Show the citation
Line 2367 sub displayresource {	Line 2890 sub displayresource {

sub header {	sub header {
my ($r,$title,$baseurl)=@_;	my ($r,$title,$baseurl)=@_;

my $extra = &Apache::loncommon::studentbrowser_javascript();	my $extra = &Apache::loncommon::studentbrowser_javascript();
if ($baseurl) {	if ($baseurl) {
$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";	$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
}	}
$r->print(&Apache::loncommon::start_page('Communication and Messages',	$r->print(&Apache::loncommon::start_page('Messages',
$extra));	$extra));
$r->print(&Apache::lonhtmlcommon::breadcrumbs	$r->print(&Apache::lonhtmlcommon::breadcrumbs
(($title?$title:'Communication and Messages')));	(($title?$title:'Send and display messages')));
}	}

# ---------------------------------------------------------------- Print header	# ---------------------------------------------------------------- Print header
Line 2471 sub sendoffmail {	Line 2993 sub sendoffmail {
&statuschange($msgid,'replied',$folder);	&statuschange($msgid,'replied',$folder);
}	}

my @to =
&Apache::loncommon::get_env_multiple('form.selectedusers_forminput');
my $mode = $env{'form.sendmode'};	my $mode = $env{'form.sendmode'};
	my (%toaddr,$tos,$cc,$bcc,$broadcast);

my (%toaddr,$cc,$bcc);	if ($mode eq 'group') {
if (@to) {	if (defined($env{'form.courserecips'})) {
foreach my $dest (@to) {	my $courseusers = $env{'form.courserecips'};
my ($user,$domain) = split(/:/, $dest);	$courseusers =~ s/^_\&\&\&_//;
if (($user ne '') && ($domain ne '')) {	my @to = split('_&&&_',$courseusers);
my $address = $user.":".$domain; # How the code below expects it.	foreach my $dest (@to) {
$toaddr{$address} = '';	my ($user,$domain) = split(/:/, $dest);
}	if (($user ne '') && ($domain ne '')) {
}	my $rec = $user.":".$domain;
}	$toaddr{$rec} = '';
	$broadcast->{$rec} = '';
if ($env{'form.sendmode'} eq 'group') {	}
foreach my $address (keys(%env)) {	}
if ($address=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {	}
$toaddr{$1}='';	} elsif ($mode eq 'upload') {
}
}
} elsif ($env{'form.sendmode'} eq 'upload') {
$nosentstore = 0;	$nosentstore = 0;
foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {	foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {
my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);	my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);
Line 2500 sub sendoffmail {	Line 3018 sub sendoffmail {
$rec =~ s/^\s+//;	$rec =~ s/^\s+//;
$rec =~ s/\s+$//;	$rec =~ s/\s+$//;
$toaddr{$rec}.=$txt."\n";	$toaddr{$rec}.=$txt."\n";
	$broadcast->{$rec} = '';
}	}
}	}
} else {	} else {
if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) {	if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) {
$toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';	$toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
$cc->{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';	$tos->{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
}	}
}	}
	if ($env{'form.additionalrec_to'}) {
	foreach my $rec (split(/\s,\s/,$env{'form.additionalrec_to'})) {
	my ($auname,$audom)=split(/:/,$rec);
	if (($auname ne "") && ($audom ne "")) {
	$toaddr{$auname.':'.$audom}='';
	$tos->{$auname.':'.$audom}='';
	}
	}
	}
	if ($env{'form.replying_to'}) {
	my @toreplies =
	&Apache::loncommon::get_env_multiple('form.replying_to');
	foreach my $rec (@toreplies) {
	my ($auname,$audom)=split(/:/,$rec);
	if (($auname ne "") && ($audom ne "")) {
	$toaddr{$auname.':'.$audom}='';
	$tos->{$auname.':'.$audom}='';
	}
	}
	}
if ($env{'form.additionalrec_cc'}) {	if ($env{'form.additionalrec_cc'}) {
foreach my $rec (split(/\s,\s/,$env{'form.additionalrec_cc'})) {	foreach my $rec (split(/\s,\s/,$env{'form.additionalrec_cc'})) {
my ($auname,$audom)=split(/:/,$rec);	my ($auname,$audom)=split(/:/,$rec);
if (($auname ne "") && ($audom ne "")) {	if (($auname ne "") && ($audom ne "")) {
$toaddr{$auname.':'.$audom}='';	$toaddr{$auname.':'.$audom}='';
$cc->{$auname.':'.$audom}='';	if (!defined($tos->{$auname.':'.$audom})) {
	$cc->{$auname.':'.$audom}='';
	}
}	}
}	}
}	}
if ($env{'form.additionalrec_bcc'}) {	if ($env{'form.replying_cc'}) {
foreach my $rec (split(/\s,\s/,$env{'form.additionalrec_bcc'})) {	my @ccreplies =
	&Apache::loncommon::get_env_multiple('form.replying_cc');
	foreach my $rec (@ccreplies) {
my ($auname,$audom)=split(/:/,$rec);	my ($auname,$audom)=split(/:/,$rec);
if (($auname ne "") && ($audom ne "")) {	if (($auname ne "") && ($audom ne "")) {
$toaddr{$auname.':'.$audom}='';	$toaddr{$auname.':'.$audom}='';
$bcc->{$auname.':'.$audom}='';	if (!defined($tos->{$auname.':'.$audom})) {
	$cc->{$auname.':'.$audom}='';
	}
}	}
}	}
}	}
if ($env{'form.replying_cc'}) {	if ($env{'form.replying_groupcc'}) {
my @ccreplies =	my @groupreplies =
&Apache::loncommon::get_env_multiple('form.replying_cc');	&Apache::loncommon::get_env_multiple('form.replying_groupcc');
foreach my $rec (@ccreplies) {	foreach my $rec (@groupreplies) {
my ($auname,$audom)=split(/:/,$rec);	my ($auname,$audom)=split(/:/,$rec);
if (($auname ne "") && ($audom ne "")) {	if (($auname ne "") && ($audom ne "")) {
$toaddr{$auname.':'.$audom}='';	$toaddr{$auname.':'.$audom}='';
$cc->{$auname.':'.$audom}='';	if (!defined($tos->{$auname.':'.$audom})) {
	$broadcast->{$auname.':'.$audom}='';
	}
	}
	}
	}
	if ($env{'form.additionalrec_bcc'}) {
	foreach my $rec (split(/\s,\s/,$env{'form.additionalrec_bcc'})) {
	my ($auname,$audom)=split(/:/,$rec);
	if (($auname ne "") && ($audom ne "")) {
	$toaddr{$auname.':'.$audom}='';
	if ((!defined($tos->{$auname.':'.$audom})) &&
	(!defined($cc->{$auname.':'.$audom}))) {
	$bcc->{$auname.':'.$audom}='';
	}
}	}
}	}
}	}
Line 2553 sub sendoffmail {	Line 3112 sub sendoffmail {
$savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});	$savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});
}	}
my %reciphash = (	my %reciphash = (
	to => $tos,
cc => $cc,	cc => $cc,
bcc => $bcc,	bcc => $bcc,
);	);
	if ($mode eq 'group') {
	if ($group eq '') {
	$reciphash{'course_broadcast'} = $broadcast;
	} else {
	if ($env{'form.groupmail'} eq 'cc') {
	$reciphash{'group_cc_broadcast'} = $broadcast;
	} else {
	$reciphash{'group_bcc_broadcast'} = $broadcast;
	}
	}
	}
my ($recipid,$recipstatus) =	my ($recipid,$recipstatus) =
&Apache::lonmsg::store_recipients($msgsubj,$env{'user.name'},	&Apache::lonmsg::store_recipients($msgsubj,$env{'user.name'},
$env{'user.domain'},\%reciphash);	$env{'user.domain'},\%reciphash);
if ($recipstatus ne 'ok') {	if ($recipstatus ne 'ok') {
&Apache::lonnet::logthis('Failed to store Bcc and Cc recipients for '.$env{'user.name'}.':'.$env{'user.domain'});	&Apache::lonnet::logthis('Failed to store To, Bcc and Cc recipients for '.$env{'user.name'}.':'.$env{'user.domain'});
}	}
if ($env{'form.attachment'}) {	if ($env{'form.attachment'}) {
if (length($env{'form.attachment'})<131072) {	if (length($env{'form.attachment'})<131072) {
Line 2615 sub sendoffmail {	Line 3186 sub sendoffmail {
my $subj_prefix;	my $subj_prefix;
if ($numsent > 0) {	if ($numsent > 0) {
if (($env{'request.course.id'}) &&	if (($env{'request.course.id'}) &&
(($env{'form.sendmode'} eq 'group') \|\|	(($mode eq 'group') \|\|
($env{'form.courserecord'}) \|\|	($env{'form.courserecord'}) \|\|
($msgtype eq 'critical'))) {	($msgtype eq 'critical')) \|\|
	($env{'form.replyid'} &&
	(($content{'courseid'} ne '') &&
	($mode eq 'group')))) {
if ($msgtype eq 'critical') {	if ($msgtype eq 'critical') {
$subj_prefix = 'Critical.';	$subj_prefix = 'Critical.';
} elsif ($env{'form.sendmode'} eq 'group') {	} elsif ($mode eq 'group') {
$subj_prefix = 'Broadcast.';	$subj_prefix = 'Broadcast.';
} else {	} else {
$subj_prefix = 'Archive';	$subj_prefix = 'Archive';
}	}
my ($specialmsgid,$specialresult);	my ($specialmsgid,$specialresult);
my $course_str = &escape('['.$cnum.':'.$cdom.']');	my $course_str;
	if ($env{'form.replyid'}) {
	if ($content{'courseid'} ne '') {
	my %crsdesc =
	&Apache::lonnet::coursedescription($content{'courseid'},
	{'one_time' => 1});
	$course_str = &escape('['.$crsdesc{'num'}.':'.$crsdesc{'domain'}.']');
	}
	} elsif ($env{'request.course.id'}) {
	$course_str = &escape('['.$cnum.':'.$cdom.']');
	}
$specialresult =	$specialresult =
&Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,	&Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,
$subj_prefix.' '.$course_str,$savemsg,undef,undef,	$subj_prefix.' '.$course_str,$savemsg,undef,undef,
Line 2652 sub sendoffmail {	Line 3235 sub sendoffmail {
undef,$specialmsgid,undef,undef,undef,1);	undef,$specialmsgid,undef,undef,undef,1);
}	}
}	}
if (($env{'form.sendmode'} ne 'upload') && (@recusers > 0)) {	if (($mode ne 'upload') && (@recusers > 0)) {
&Apache::lonmsg::process_sent_mail($msgsubj,	&Apache::lonmsg::process_sent_mail($msgsubj,
$subj_prefix,$numsent,$stamp,$msgname,$msgdom,	$subj_prefix,$numsent,$stamp,$msgname,$msgdom,
$msgcount,$context,$pid,$savemsg,\@recusers,	$msgcount,$context,$pid,$savemsg,\@recusers,
\@recudoms,undef,$attachmenturl);	\@recudoms,undef,$attachmenturl,'','','','',$recipid);
}	}
} else {	} else {
&Apache::lonnet::logthis('Failed to create record of critical, broadcast or archived message in '.$env{'course.'.$env{'request.course.id'}.'.num'}.' '&mt('at').' '.$env{'course.'.$env{'request.course.id'}.'.domain'}.' - no msgid generated');	&Apache::lonnet::logthis('Failed to create record of critical, broadcast or archived message in '.$env{'course.'.$env{'request.course.id'}.'.num'}.' '&mt('at').' '.$env{'course.'.$env{'request.course.id'}.'.domain'}.' - no msgid generated');
Line 2668 sub sendoffmail {	Line 3251 sub sendoffmail {
&Apache::lonmsg::process_sent_mail($msgsubj,$subj_prefix,	&Apache::lonmsg::process_sent_mail($msgsubj,$subj_prefix,
$numsent,$stamp,$env{'user.name'},	$numsent,$stamp,$env{'user.name'},
$env{'user.domain'},$msgcount,$context,	$env{'user.domain'},$msgcount,$context,
$$,$savemsg,\@recusers,\@recudoms,undef,$attachmenturl);	$$,$savemsg,\@recusers,\@recudoms,undef,$attachmenturl,
	'','','','',$recipid);
}	}
}	}
if (!$env{'form.multiforward'}) {	if (!$env{'form.multiforward'}) {
if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {	if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {
$r->print('<br /><span class="LC_success">'.&mt('Completed.').	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Completed.'));
'</span>');	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
if ($env{'form.displayedcrit'}) {	if ($env{'form.displayedcrit'}) {
&discrit($r);	&discrit($r);
}	}
Line 2684 sub sendoffmail {	Line 3269 sub sendoffmail {
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
}	}
} else {	} else {
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '.	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Could not deliver message'),1);
&mt('Please use the browser "Back" button and correct the recipient addresses ([_1]).',$sendstatus).'</p>');	$message .= '<br />'.&mt('Please use the browser "Back" button and correct the recipient addresses ([_1]).',$sendstatus);
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
}	}
}	}
}	}
Line 2711 sub handler {	Line 3298 sub handler {
'recordftf','sortedby','block','folder','startdis','interdis',	'recordftf','sortedby','block','folder','startdis','interdis',
'showcommentbaseurl','dismode','group','subject','text','ref',	'showcommentbaseurl','dismode','group','subject','text','ref',
'msgstatus']);	'msgstatus']);
$sqs='&sortedby='.$env{'form.sortedby'};	$sqs='&sortedby='.$env{'form.sortedby'};

# ------------------------------------------------------ They checked for email	# ------------------------------------------------------ They checked for email
unless ($env{'form.block'}) {	unless ($env{'form.block'}) {
Line 2723 sub handler {	Line 3310 sub handler {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/communicate",	({href=>"/adm/communicate",
text=>"Communication/Messages",	text=>"Messages",
faq=>12,bug=>'Communication Tools',});	faq=>12,bug=>'Communication Tools',});

# ------------------------------------------------------------------ Get Folder	# ------------------------------------------------------------------ Get Folder
Line 2732 sub handler {	Line 3319 sub handler {
unless ($folder) {	unless ($folder) {
$folder='';	$folder='';
} else {	} else {
$sqs.='&folder='.&escape($folder);	$sqs.='&folder='.&escape($folder);
}	}
# ------------------------------------------------------------ Get Display Mode	# ------------------------------------------------------------ Get Display Mode

Line 2764 sub handler {	Line 3351 sub handler {
$startdis++;	$startdis++;
}	}
my $postedstartdis=$startdis+1;	my $postedstartdis=$startdis+1;
$sqs.='&startdis='.$postedstartdis;	$sqs.='&startdis='.$postedstartdis;

# --------------------------------------------------------------- Render Output	# --------------------------------------------------------------- Render Output

Line 2804 sub handler {	Line 3391 sub handler {
my ($result,$msg) =	my ($result,$msg) =
&statuschange($env{'form.markdel'},'deleted',$folder);	&statuschange($env{'form.markdel'},'deleted',$folder);
if (!$result) {	if (!$result) {
$r->print('<p class="LC_error">'.	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Failed to delete the message.'),1);
&mt('Failed to delete the message.').'</p>'.	$message .= '<p class="LC_error">'.$msg.'</p>';
'<p class="LC_error">'.$msg."</p>\n");	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
}	}
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);	&disall($r,($folder?$folder:$dismode),$msgstatus);
Line 2828 sub handler {	Line 3416 sub handler {
$total ++;	$total ++;
}	}
&printheader($r,'','Marked Messages Read');	&printheader($r,'','Marked Messages Read');
$r->print(&mt('Marked [_1] message(s) read',$total).'<p>');	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Marked [quant,_1,message] read',$total));
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);	&disall($r,($folder?$folder:$dismode),$msgstatus);
} elsif ($env{'form.markedaction'} eq 'markedunread') {	} elsif ($env{'form.markedaction'} eq 'markedunread') {
Line 2839 sub handler {	Line 3429 sub handler {
$total ++;	$total ++;
}	}
&printheader($r,'','Marked Messages Unread');	&printheader($r,'','Marked Messages Unread');
$r->print(&mt('Marked [_1] message(s) unread',$total).'<p>');	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Marked [quant,_1,message] unread',$total));
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);	&disall($r,($folder?$folder:$dismode),$msgstatus);
} elsif ($env{'form.markedaction'} eq 'markedmove') {	} elsif ($env{'form.markedaction'} eq 'markedmove') {
Line 2862 sub handler {	Line 3454 sub handler {
push(@failed_msg,$msg);	push(@failed_msg,$msg);
}	}
}	}
if ($failed) {	my $message;
$r->print('<p class="LC_error">	if ($failed) {
'.&mt('Failed to move [_1] message(s)',$failed).	$message = &Apache::lonhtmlcommon::confirm_success(&mt('Failed to move [quant,_1,message]',$failed),1);
'</p>');	$message .= '<p class="LC_error">'.
$r->print('<p class="LC_error">'.	join("</p>\n<p class=\"LC_error\">",@failed_msg).
join("</p>\n<p class=\"LC_error\">",@failed_msg).	"</p>\n";
"</p>\n");	}
}	$message .= &Apache::lonhtmlcommon::confirm_success(&mt('Moved [quant,_1,message]',$total));
$r->print(&mt('Moved [_1] message(s)',$total).'<p>');	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
}	}
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);	&disall($r,($folder?$folder:$dismode),$msgstatus);
Line 2888 sub handler {	Line 3481 sub handler {
}	}
}	}
&printheader($r,'','Deleted Messages');	&printheader($r,'','Deleted Messages');
	my $message;
if ($failed) {	if ($failed) {
$r->print('<p class="LC_error">	$message = &Apache::lonhtmlcommon::confirm_success(&mt('Failed to delete [quant,_1,message]',$failed),1);
'.&mt('Failed to delete [_1] message(s)',$failed).	$message .= '<p class="LC_error">'.
'</p>');
$r->print('<p class="LC_error">'.
join("</p>\n<p class=\"LC_error\">",@failed_msg).	join("</p>\n<p class=\"LC_error\">",@failed_msg).
"</p>\n");	"</p>\n";
}	}
$r->print(&mt('Deleted [_1] message(s)',$total).'<p>');	$message .= &Apache::lonhtmlcommon::confirm_success(&mt('Deleted [quant,_1,message]',$total));
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);	&disall($r,($folder?$folder:$dismode),$msgstatus);
} elsif ($env{'form.markunread'}) {	} elsif ($env{'form.markunread'}) {
Line 2952 sub handler {	Line 3546 sub handler {
}	}
if (keys(%forwardok) > 0) {	if (keys(%forwardok) > 0) {
my $count = keys(%forwardok);	my $count = keys(%forwardok);
$r->print('<br /><span class="LC_success">'.	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('[quant,_1,message] forwarded.',$count));
&mt('[quant,_1,message] forwarded.',$count).	$message = &Apache::loncommon::confirmwrapper($message);
'</span>');	$r->print($message);
}	}
if (keys(%forwardfail) > 0) {	if (keys(%forwardfail) > 0) {
my $count = keys(%forwardfail);	my $count = keys(%forwardfail);
$r->print('<p><span class="LC_error">'.	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Could not forward [quant,_1,message].',$count),1);
&mt('Could not forward [quant,_1,message].',$count).
'</span> ');
foreach my $key (keys(%forwardfail)) {	foreach my $key (keys(%forwardfail)) {
$r->print(&mt('Could not deliver forwarded message.').'</span> '.	$message .= '<br />'.&mt('Could not deliver forwarded message.').'</span> '.
&mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.').<br /><br />');	&mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.')';
}	}
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
}	}
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
} else {	} else {
Line 2988 sub handler {	Line 3582 sub handler {
my $showfolder = $env{'form.newfolder'};	my $showfolder = $env{'form.newfolder'};
my ($makeresult,$warning) = &makefolder($env{'form.newfolder'});	my ($makeresult,$warning) = &makefolder($env{'form.newfolder'});
if ($makeresult eq 'ok') {	if ($makeresult eq 'ok') {
$r->print(&mt('Mail folder "[_1]" created.',$showfolder).'<br />');	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" created.',$showfolder));
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
} else {	} else {
$r->print(&mt('Creation failed.').' '.$makeresult.'<br />'.	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Creation failed.').' '.$makeresult.'<br />'.$warning,1);
$warning);	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
$showfolder = $folder;	$showfolder = $folder;
}	}
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
Line 3003 sub handler {	Line 3600 sub handler {
my $showfolder = '';	my $showfolder = '';
my $delresult = &deletefolder($folder);	my $delresult = &deletefolder($folder);
if ($delresult eq 'ok') {	if ($delresult eq 'ok') {
$r->print(&mt('Mail folder "[_1]" deleted.',$folder).'<br />');	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" deleted.',$folder));
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
$env{'form.folder'} = '';	$env{'form.folder'} = '';
} else {	} else {
$r->print(&mt('Deletion failed.').' '.$delresult.'<br />');	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Deletion failed.').' '.$delresult,1);
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
$showfolder = $folder;	$showfolder = $folder;
}	}
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
Line 3016 sub handler {	Line 3617 sub handler {
my $showfolder = $env{'form.renamed'};	my $showfolder = $env{'form.renamed'};
my $renresult = &renamefolder($folder);	my $renresult = &renamefolder($folder);
if ($renresult eq 'ok') {	if ($renresult eq 'ok') {
$r->print(&mt('Mail folder "[_1]" renamed "[_2]".',$folder,$showfolder).'<br />');	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" renamed to "[_2]".',$folder,$showfolder));
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
} else {	} else {
$r->print(&mt('Renaming failed.').' '.$renresult.'<br />');	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Renaming failed.').' '.$renresult,1);
	$message = &Apache::loncommon::confirmwrapper($message);
	$r->print($message);
$showfolder = $folder;	$showfolder = $folder;
}	}
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.89
changed lines
	Added in v.1.124.4.10