Revision 091321b1
Von Jan Büren vor fast 2 Jahren hinzugefügt
| SL/Controller/ClientConfig.pm | ||
|---|---|---|
| 76 | 76 |
$existing_currency->name($new_name); |
| 77 | 77 |
} |
| 78 | 78 |
} |
| 79 |
|
|
| 80 | 79 |
if ($::form->{new_currency} && $new_currency_names{ $::form->{new_currency} }) {
|
| 81 | 80 |
$errors_idx{1} = t8('Currency names must be unique.');
|
| 82 | 81 |
} |
| 83 | 82 |
|
| 84 | 83 |
my @errors = map { $errors_idx{$_} } sort keys %errors_idx;
|
| 85 | 84 |
|
| 85 |
# check valid mail adresses |
|
| 86 |
foreach (qw(email_sender_sales_quotation email_sender_request_quotation email_sender_sales_order |
|
| 87 |
email_sender_purchase_order email_sender_sales_delivery_order email_sender_purchase_delivery_order |
|
| 88 |
email_sender_invoice email_sender_purchase_invoice email_sender_letter email_sender_dunning |
|
| 89 |
global_bcc)) {
|
|
| 90 |
next unless $defaults->{$_};
|
|
| 91 |
next if $defaults->{$_} =~ /^[a-z0-9.]+\@[a-z0-9.-]+$/;
|
|
| 92 |
push @errors, t8('The email entry for #1 looks invalid', $_);
|
|
| 93 |
} |
|
| 86 | 94 |
# Check templates |
| 87 | 95 |
$::form->{new_templates} =~ s:/::g;
|
| 88 | 96 |
$::form->{new_master_templates} =~ s:/::g;
|
Auch abrufbar als: Unified diff
Mandantenkonfig für Belegweise Absender-E-Mail-Adressen