version 1.34, 2006/06/27 21:32:24
|
version 1.35, 2006/06/29 13:52:19
|
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. |