Revision 5a07eafc
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 2145 | 2145 |
}; |
| 2146 | 2146 |
|
| 2147 | 2147 |
my %files = _get_files_for_email_dialog(); |
| 2148 |
|
|
| 2149 |
my $all_partner_email_addresses; |
|
| 2150 |
$all_partner_email_addresses = SL::DB::Customer->load_cached($::form->{vc_id})->get_all_email_addresses() if 'customer' eq $::form->{vc};
|
|
| 2151 |
$all_partner_email_addresses = SL::DB::Vendor ->load_cached($::form->{vc_id})->get_all_email_addresses() if 'vendor' eq $::form->{vc};
|
|
| 2152 |
|
|
| 2148 | 2153 |
my $html = $::form->parse_html_template("common/_send_email_dialog", {
|
| 2149 | 2154 |
email_form => $email_form, |
| 2150 | 2155 |
show_bcc => $::auth->assert('email_bcc', 'may fail'),
|
| ... | ... | |
| 2152 | 2157 |
is_customer => $::form->{vc} eq 'customer',
|
| 2153 | 2158 |
is_invoice_mail => ($record_email && $::form->{type} eq 'invoice'),
|
| 2154 | 2159 |
ALL_EMPLOYEES => \@employees_with_email, |
| 2160 |
ALL_PARTNER_EMAIL_ADDRESSES => $all_partner_email_addresses, |
|
| 2155 | 2161 |
}); |
| 2156 | 2162 |
|
| 2157 | 2163 |
print $::form->ajax_response_header, $html; |
| ... | ... | |
| 2165 | 2171 |
: 'is.pl'; |
| 2166 | 2172 |
|
| 2167 | 2173 |
my $email_form = delete $::form->{email_form};
|
| 2174 |
|
|
| 2175 |
if ($email_form->{additional_to}) {
|
|
| 2176 |
$email_form->{to} = join ', ', grep { $_ } $email_form->{to}, @{$email_form->{additional_to}};
|
|
| 2177 |
delete $email_form->{additional_to};
|
|
| 2178 |
} |
|
| 2179 |
|
|
| 2168 | 2180 |
my %field_names = (to => 'email'); |
| 2169 | 2181 |
|
| 2170 | 2182 |
$::form->{ $field_names{$_} // $_ } = $email_form->{$_} for keys %{ $email_form };
|
Auch abrufbar als: Unified diff
"alle" E-Mail-Adressen per Anhaken als Empfänger hinzufügen können