preparing for 7.0.5 release

fixed some bugs
This commit is contained in:
JT Smith 2006-08-09 16:09:17 +00:00
parent 3000fccb79
commit dfe92a73e2
7 changed files with 97 additions and 20 deletions

View file

@ -403,6 +403,8 @@ sub send {
}
}
}
# due to the large number of emails that may be generated by sending emails to a group,
# emails to members of a group are queued rather than sent directly
my $group = $self->{_toGroup};
delete $self->{_toGroup};
if ($group) {
@ -413,9 +415,7 @@ sub send {
my $user = WebGUI::User->new($self->session, $userId);
if ($user->profileField("email")) {
$self->{_message}->head->replace("To",$user->profileField("email"));
unless ($self->send) {
$status = 0;
}
$self->queue;
}
}
}