projekt kivitendo

use List::MoreUtils qw(uniq);

require Exporter;

our @EXPORT = qw(get_credit_remaining get_all_email_addresses);

sub get_all_email_addresses {

  my ($self) = @_;

  my $is_sales = ref $self eq 'SL::DB::Customer';

  my @addresses;

  # billing address

  push @addresses, $self->$_ for qw(email cc bcc);

  if ($is_sales) {

    push @addresses, $self->$_ for qw(delivery_order_mail invoice_mail);

  }

  # additional billing addresses

  if ($is_sales) {

    foreach my $additional_billing_address (@{ $self->additional_billing_addresses }) {

      push @addresses, $additional_billing_address->$_ for qw(email);

    }

  }

  # contacts

  foreach my $contact (@{ $self->contacts }) {

    push @addresses, $contact->$_ for qw(cp_email cp_privatemail);

  }

  # shiptos

  foreach my $shipto (@{ $self->shipto }) {

    push @addresses, $shipto->$_ for qw(shiptoemail);

  }

  # remove empty ones and duplicates

  @addresses = grep { $_ } @addresses;

  @addresses = uniq @addresses;

  return \@addresses;

}