- $main::lxdebug->leave_sub();
-}
-
-sub display {
- $main::lxdebug->enter_sub();
-
- $main::auth->assert('customer_vendor_edit');
-
- my $form = $main::form;
-
- &form_header();
- &form_footer();
-
- $main::lxdebug->leave_sub();
-}
-
-sub update {
- $main::lxdebug->enter_sub();
-
- $main::auth->assert('customer_vendor_edit');
-
- my $form = $main::form;
-
- &display();
- $main::lxdebug->leave_sub();
-}
-
-sub get_contact {
- $main::lxdebug->enter_sub();
-
- $main::auth->assert('customer_vendor_edit');
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- CT->get_contact(\%myconfig, \%$form);
- print $form->ajax_response_header(), join '__pjx__', map $form->{"cp_$_"},
- qw(name title givenname phone1 phone2 email abteilung fax mobile1 mobile2 satphone satfax project privatphone privatemail birthday used gender);
- $main::lxdebug->leave_sub();
-
-}
-
-sub get_shipto {
- $main::lxdebug->enter_sub();
-
- $main::auth->assert('customer_vendor_edit');
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- CT->get_shipto(\%myconfig, \%$form);
- print $form->ajax_response_header(), join '__pjx__', map $form->{"shipto$_"},
- qw(name department_1 department_2 street zipcode city country contact phone fax email used);
- $main::lxdebug->leave_sub();
-
-}
-
-sub get_delivery {
- $main::lxdebug->enter_sub();
-
- $main::auth->assert('customer_vendor_edit');
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- CT->get_delivery(\%myconfig, \%$form );
- $form->{IS_CUSTOMER} = $form->{db} eq 'customer';
-
- print $form->ajax_response_header(), $form->parse_html_template('ct/get_delivery');
-
- $main::lxdebug->leave_sub();
-}
-
-sub delete_shipto {
- $main::lxdebug->enter_sub();
-
- $main::auth->assert('customer_vendor_edit');
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- CT->get_shipto(\%myconfig, \%$form);
-
- unless ($form->{shiptoused}) {
- CT->delete_shipto($form->{shipto_id});
- @$form{ grep /^shipto/, keys %$form } = undef;
- }
-
- edit();
-
- $main::lxdebug->leave_sub();
-}
-
-sub delete_contact {
- $main::lxdebug->enter_sub();
-
- $main::auth->assert('customer_vendor_edit');
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- CT->get_contact(\%myconfig, \%$form);
-
- unless ($form->{cp_used}) {
- CT->delete_shipto($form->{cp_id});
- @$form{ grep /^cp_/, keys %$form } = undef;