Revision 9caaa245
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1738 | 1738 |
$language_saved = $form->{language_id};
|
| 1739 | 1739 |
$payment_id_saved = $form->{payment_id};
|
| 1740 | 1740 |
$salesman_id_saved = $form->{salesman_id};
|
| 1741 |
$cp_id_saved = $form->{cp_id};
|
|
| 1741 | 1742 |
|
| 1742 | 1743 |
&{"$form->{vc}_details"}();
|
| 1743 | 1744 |
|
| ... | ... | |
| 1748 | 1749 |
$form->{"cc"} = $saved_cc if ($saved_cc);
|
| 1749 | 1750 |
$form->{"bcc"} = $saved_bcc if ($saved_bcc);
|
| 1750 | 1751 |
|
| 1752 |
if (!$cp_id_saved) {
|
|
| 1753 |
# No contact was selected. Delete all contact variables because |
|
| 1754 |
# IS->customer_details() and IR->vendor_details() get the default |
|
| 1755 |
# contact anyway. |
|
| 1756 |
map({ delete($form->{$_}); } grep(/^cp_/, keys(%{ $form })));
|
|
| 1757 |
} |
|
| 1758 |
|
|
| 1751 | 1759 |
my ($language_tc, $output_numberformat, $output_dateformat, $output_longdates); |
| 1752 | 1760 |
if ($form->{"language_id"}) {
|
| 1753 | 1761 |
($language_tc, $output_numberformat, $output_dateformat, $output_longdates) = |
| bin/mozilla/ir.pl | ||
|---|---|---|
| 277 | 277 |
"all" => 0, |
| 278 | 278 |
"old_id" => \@old_project_ids }); |
| 279 | 279 |
|
| 280 |
my (%labels, @values); |
|
| 280 |
my %labels; |
|
| 281 |
my @values = (undef); |
|
| 281 | 282 |
foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
|
| 282 | 283 |
push(@values, $item->{"cp_id"});
|
| 283 | 284 |
$labels{$item->{"cp_id"}} = $item->{"cp_name"} .
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 371 | 371 |
"old_id" => \@old_project_ids }, |
| 372 | 372 |
"employees" => "ALL_SALESMEN"); |
| 373 | 373 |
|
| 374 |
my (%labels, @values); |
|
| 374 |
my %labels; |
|
| 375 |
my @values = (undef); |
|
| 375 | 376 |
foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
|
| 376 | 377 |
push(@values, $item->{"cp_id"});
|
| 377 | 378 |
$labels{$item->{"cp_id"}} = $item->{"cp_name"} .
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 427 | 427 |
"old_id" => \@old_project_ids }, |
| 428 | 428 |
"employees" => "ALL_SALESMEN"); |
| 429 | 429 |
|
| 430 |
my (%labels, @values); |
|
| 430 |
my %labels; |
|
| 431 |
my @values = (undef); |
|
| 431 | 432 |
foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
|
| 432 | 433 |
push(@values, $item->{"cp_id"});
|
| 433 | 434 |
$labels{$item->{"cp_id"}} = $item->{"cp_name"} .
|
Auch abrufbar als: Unified diff
Bei Einkaufs- und Verkaufsmasken ermöglichen, dass kein Ansprechpartner ausgewählt wird.