| … | |
… | |
| 858 | my @recipients = @{$self->{ra_send_to}}; |
858 | my @recipients = @{$self->{ra_send_to}}; |
| 859 | my $rh_merge_data = $self->{rh_merge_data}; |
859 | my $rh_merge_data = $self->{rh_merge_data}; |
| 860 | my $merge_file = $self->{merge_file}; |
860 | my $merge_file = $self->{merge_file}; |
| 861 | my $result_message = ''; |
861 | my $result_message = ''; |
| 862 | my $failed_messages = 0; |
862 | my $failed_messages = 0; |
| 863 | die "this is a fatal error -- will i get to see it?"; |
863 | |
| 864 | foreach my $recipient (@recipients) { |
864 | foreach my $recipient (@recipients) { |
| 865 | # warn "FIXME sending email to $recipient"; |
865 | # warn "FIXME sending email to $recipient"; |
| 866 | my $error_messages = ''; |
866 | my $error_messages = ''; |
| 867 | my $ur = $self->{db}->getUser($recipient); #checked |
867 | my $ur = $self->{db}->getUser($recipient); #checked |
| 868 | unless ($ur) { |
868 | unless ($ur) { |
Parent Directory
| 
Revision Log
| 
Patch