Revision 6c1536aa
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 565 | 565 |
|
| 566 | 566 |
CT->get_contact(\%myconfig, \%$form); |
| 567 | 567 |
print $cgi->header(), join '__pjx__', map $form->{"cp_$_"},
|
| 568 |
qw(name greeting title givenname phone1 phone2 email abteilung fax mobile1 mobile2 satphone satfax project privatphone privatemail birthday); |
|
| 568 |
qw(name greeting title givenname phone1 phone2 email abteilung fax mobile1 mobile2 satphone satfax project privatphone privatemail birthday used);
|
|
| 569 | 569 |
$lxdebug->leave_sub(); |
| 570 | 570 |
|
| 571 | 571 |
} |
| ... | ... | |
| 603 | 603 |
|
| 604 | 604 |
@$form{ grep /^shipto/, keys %$form } = undef;
|
| 605 | 605 |
|
| 606 |
display(); |
|
| 606 |
edit(); |
|
| 607 |
|
|
| 608 |
$main::lxdebug->leave_sub(); |
|
| 609 |
} |
|
| 610 |
|
|
| 611 |
sub delete_contact {
|
|
| 612 |
$main::lxdebug->enter_sub(); |
|
| 613 |
|
|
| 614 |
$auth->assert('customer_vendor_edit');
|
|
| 615 |
|
|
| 616 |
CT->delete_shipto($form->{cp_id});
|
|
| 617 |
|
|
| 618 |
@$form{ grep /^cp_/, keys %$form } = undef;
|
|
| 619 |
|
|
| 620 |
edit(); |
|
| 607 | 621 |
|
| 608 | 622 |
$main::lxdebug->leave_sub(); |
| 609 | 623 |
} |
Auch abrufbar als: Unified diff
Contacts loeschbar gemacht (gibt noch kleinere probleme mit dem javascript)