Revision c476418e
Von Sven Schöling vor fast 7 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1983 | 1983 |
} |
| 1984 | 1984 |
|
| 1985 | 1985 |
sub show_sales_purchase_email_dialog {
|
| 1986 |
my $contact = $::form->{cp_id} ? SL::DB::Contact->load_cached($::form->{cp_id}) : undef;
|
|
| 1986 |
my $email = ''; |
|
| 1987 |
if ($::form->{cp_id}) {
|
|
| 1988 |
$email = SL::DB::Contact->load_cached($::form->{cp_id})->cp_email;
|
|
| 1989 |
} elsif ($::form->{vc} && $::form->{vc_id}) {
|
|
| 1990 |
$email = SL::DB::Customer->load_cached($::form->{vc_id})->email if 'customer' eq $::form->{vc};
|
|
| 1991 |
$email = SL::DB::Vendor ->load_cached($::form->{vc_id})->email if 'vendor' eq $::form->{vc};
|
|
| 1992 |
} |
|
| 1993 |
|
|
| 1987 | 1994 |
my $email_form = {
|
| 1988 |
to => $contact ? $contact->cp_email : '',
|
|
| 1995 |
to => $email,
|
|
| 1989 | 1996 |
subject => $::form->generate_email_subject, |
| 1990 | 1997 |
attachment_filename => $::form->generate_attachment_filename, |
| 1991 | 1998 |
}; |
Auch abrufbar als: Unified diff
belege email dialog: Ohne Ansprechpartner Email aus Stammdaten verwenden
behebt #263