Revision 8b9e5920
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/BackgroundJob/CheckBelowMinimumStock.pm | ||
|---|---|---|
| 59 | 59 |
sub send_email {
|
| 60 | 60 |
my ($self) = @_; |
| 61 | 61 |
|
| 62 |
my $email = $self->{job_obj}->data_as_hash->{send_email_to} or $self->_email_user;
|
|
| 62 |
my $email = $self->{job_obj}->data_as_hash->{mail_to} || $self->_email_user || undef;
|
|
| 63 | 63 |
return unless $email; |
| 64 | 64 |
|
| 65 | 65 |
# additional email |
Auch abrufbar als: Unified diff
perl: or ist nicht identisch mit ||
https://stackoverflow.com/questions/1136583/what-is-the-difference-between-and-or-in-perl