--- loncom/interface/lonmsgdisplay.pm 2006/06/27 18:34:43 1.33 +++ loncom/interface/lonmsgdisplay.pm 2006/06/29 13:52:19 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging display # -# $Id: lonmsgdisplay.pm,v 1.33 2006/06/27 18:34:43 albertel Exp $ +# $Id: lonmsgdisplay.pm,v 1.35 2006/06/29 13:52:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1086,7 +1086,7 @@ sub examblock { $r->print('Not allowed'); return; } - my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members', + my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members' : 'students'; my %lt=&Apache::lonlocal::texthash( 'comb' => 'Communication Blocking', @@ -1641,12 +1641,13 @@ sub sendoffmail { &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 %toaddr; - if ($to) { - foreach my $dest (@$to) { + if (@to) { + foreach my $dest (@to) { my ($user,$domain) = split(/:/, $dest); if (($user ne '') && ($domain ne '')) { my $address = $user.":".$domain; # How the code below expects it.