Revision 2994c1e9
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 599 | 599 |
|
| 600 | 600 |
$auth->assert('customer_vendor_edit');
|
| 601 | 601 |
|
| 602 |
CT->delete_shipto($form->{shipto_id});
|
|
| 602 |
CT->get_shipto(\%myconfig, \%$form);
|
|
| 603 | 603 |
|
| 604 |
@$form{ grep /^shipto/, keys %$form } = undef;
|
|
| 604 |
unless ($form->{shiptoused}) {
|
|
| 605 |
CT->delete_shipto($form->{shipto_id});
|
|
| 606 |
@$form{ grep /^shipto/, keys %$form } = undef;
|
|
| 607 |
} |
|
| 605 | 608 |
|
| 606 | 609 |
edit(); |
| 607 | 610 |
|
| ... | ... | |
| 613 | 616 |
|
| 614 | 617 |
$auth->assert('customer_vendor_edit');
|
| 615 | 618 |
|
| 616 |
CT->delete_shipto($form->{cp_id});
|
|
| 619 |
CT->get_contact(\%myconfig, \%$form);
|
|
| 617 | 620 |
|
| 618 |
@$form{ grep /^cp_/, keys %$form } = undef;
|
|
| 621 |
unless ($form->{cp_used}) {
|
|
| 622 |
CT->delete_shipto($form->{cp_id});
|
|
| 623 |
@$form{ grep /^cp_/, keys %$form } = undef;
|
|
| 624 |
} |
|
| 619 | 625 |
|
| 620 | 626 |
edit(); |
| 621 | 627 |
|
Auch abrufbar als: Unified diff
2 Sicherheitschecks.