Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't ask where that '$self -> {"recipients"}' came from...

Browse Source
This commit is contained in:
Chris 2012-08-10 16:01:20 +01:00
parent d71cccb139
commit 9937b0f164
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Message/Queue.pm
View File

@ -113,11 +113,11 @@ sub queue_message {
return $self -> self_error("Email subject not specified") unless($args -> {"subject"}); return $self -> self_error("Email subject not specified") unless($args -> {"subject"});
return $self -> self_error("Email body not specified") unless($args -> {"message"}); return $self -> self_error("Email body not specified") unless($args -> {"message"});
return $self -> self_error("No recipients specified") return $self -> self_error("No recipients specified")
if(!$self -> {"recipients"} || ref($self -> {"recipients"}) ne "ARRAY" || !scalar(@{$self -> {"recipients"}})); unless($args -> {"recipients"} && (ref($args -> {"recipients"}) eq "ARRAY") && scalar(@{$args -> {"recipients"}}));
# If unique recipients are set, each recipient gets a copy of the message # If unique recipients are set, each recipient gets a copy of the message
if($args -> {"unique_recip"}) { if($args -> {"unique_recip"}) {
foreach my $recip (@{$self -> {"recipients"}}) { foreach my $recip (@{$args -> {"recipients"}}) {
my $msgid = $self -> _queue_message($args) my $msgid = $self -> _queue_message($args)
or return undef; or return undef;
@ -130,7 +130,7 @@ sub queue_message {
my $msgid = $self -> _queue_message($args) my $msgid = $self -> _queue_message($args)
or return undef; or return undef;
foreach my $recip (@{$self -> {"recipients"}}) { foreach my $recip (@{$args -> {"recipients"}}) {
$self -> _add_recipient($msgid, $recip) $self -> _add_recipient($msgid, $recip)
or return undef; or return undef;
} }