loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2006/06/27 18:34:43	version 1.35, 2006/06/29 13:52:19
Line 1086 sub examblock {	Line 1086 sub examblock {
$r->print('Not allowed');	$r->print('Not allowed');
return;	return;
}	}
my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members',	my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members'
: 'students';	: 'students';
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'comb' => 'Communication Blocking',	'comb' => 'Communication Blocking',
Line 1641 sub sendoffmail {	Line 1641 sub sendoffmail {
&statuschange($msgid,'replied',$folder);	&statuschange($msgid,'replied',$folder);
}	}

my $to = $env{'form.selectedusers.forminput'};	my @to =
	&Apache::loncommon::get_env_multiple('form.selectedusers.forminput');
my $mode = $env{'form.sendmode'};	my $mode = $env{'form.sendmode'};

my %toaddr;	my %toaddr;
if ($to) {	if (@to) {
foreach my $dest (@$to) {	foreach my $dest (@to) {
my ($user,$domain) = split(/:/, $dest);	my ($user,$domain) = split(/:/, $dest);
if (($user ne '') && ($domain ne '')) {	if (($user ne '') && ($domain ne '')) {
my $address = $user.":".$domain; # How the code below expects it.	my $address = $user.":".$domain; # How the code below expects it.