- $query =
- qq|UPDATE vendor SET | .
- qq| vendornumber = ?, | .
- qq| name = ?, | .
- qq| greeting = ?, | .
- qq| department_1 = ?, | .
- qq| department_2 = ?, | .
- qq| street = ?, | .
- qq| zipcode = ?, | .
- qq| city = ?, | .
- qq| country = ?, | .
- qq| homepage = ?, | .
- qq| contact = ?, | .
- qq| phone = ?, | .
- qq| fax = ?, | .
- qq| email = ?, | .
- qq| cc = ?, | .
- qq| bcc = ?, | .
- qq| notes = ?, | .
- qq| terms = ?, | .
- qq| discount = ?, | .
- qq| creditlimit = ?, | .
- qq| business_id = ?, | .
- qq| taxnumber = ?, | .
- qq| sic_code = ?, | .
- qq| language = ?, | .
- qq| account_number = ?, | .
- qq| bank_code = ?, | .
- qq| bank = ?, | .
- qq| obsolete = ?, | .
- qq| ustid = ?, | .
- qq| payment_id = ?, | .
- qq| taxzone_id = ?, | .
- qq| language_id = ?, | .
- qq| username = ?, | .
- qq| user_password = ?, | .
- qq| v_customer_id = ? | .
- qq|WHERE id = ?|;
- @values = (
- $form->{vendornumber},
- $form->{name},
- $form->{greeting},
- $form->{department_1},
- $form->{department_2},
- $form->{street},
- $form->{zipcode},
- $form->{city},
- $form->{country},
- $form->{homepage},
- $form->{contact},
- $form->{phone},
- $form->{fax},
- $form->{email},
- $form->{cc},
- $form->{bcc},
- $form->{notes},
- conv_i($form->{terms}),
- $form->{discount},
- $form->{creditlimit},
- conv_i($form->{business}),
- $form->{taxnumber},
- $form->{sic},
- $form->{language},
- $form->{account_number},
- $form->{bank_code},
- $form->{bank},
- $form->{obsolete} ? 't' : 'f',
- $form->{ustid},
- conv_i($form->{payment_id}),
- conv_i($form->{taxzone_id}, 0),
- conv_i( $form->{language_id}),
- $form->{username},
- $form->{user_password},
- conv_i($form->{v_customer_id}),
- $form->{id}
- );
- do_query($form, $dbh, $query, @values);
-
- $query = undef;
- if ( $form->{cp_id} ) {
- $query = qq|UPDATE contacts SET | .
- qq|cp_greeting = ?, | .
- qq|cp_title = ?, | .
- qq|cp_givenname = ?, | .
- qq|cp_name = ?, | .
- qq|cp_email = ?, | .
- qq|cp_phone1 = ?, | .
- qq|cp_phone2 = ?, | .
- qq|cp_abteilung = ?, | .
- qq|cp_fax = ?, | .
- qq|cp_mobile1 = ?, | .
- qq|cp_mobile2 = ?, | .
- qq|cp_satphone = ?, | .
- qq|cp_satfax = ?, | .
- qq|cp_project = ?, | .
- qq|cp_privatphone = ?, | .
- qq|cp_privatemail = ?, | .
- qq|cp_birthday = ? | .
- qq|WHERE cp_id = ?|;
- @values = (
- $form->{cp_greeting},
- $form->{cp_title},
- $form->{cp_givenname},
- $form->{cp_name},
- $form->{cp_email},
- $form->{cp_phone1},
- $form->{cp_phone2},
- $form->{cp_abteilung},
- $form->{cp_fax},
- $form->{cp_mobile1},
- $form->{cp_mobile2},
- $form->{cp_satphone},
- $form->{cp_satfax},
- $form->{cp_project},
- $form->{cp_privatphone},
- $form->{cp_privatemail},
- $form->{cp_birthday},
- $form->{cp_id}
- );
- } elsif ( $form->{cp_name} || $form->{cp_givenname} ) {
- $query =
- qq|INSERT INTO contacts ( cp_cv_id, cp_greeting, cp_title, cp_givenname, | .
- qq| cp_name, cp_email, cp_phone1, cp_phone2, cp_abteilung, cp_fax, cp_mobile1, | .
- qq| cp_mobile2, cp_satphone, cp_satfax, cp_project, cp_privatphone, cp_privatemail, | .
- qq| cp_birthday) | .
- qq|VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
- @values = (
- $form->{id},
- $form->{cp_greeting},
- $form->{cp_title},
- $form->{cp_givenname},
- $form->{cp_name},
- $form->{cp_email},
- $form->{cp_phone1},
- $form->{cp_phone2},
- $form->{cp_abteilung},
- $form->{cp_fax},
- $form->{cp_mobile1},
- $form->{cp_mobile2},
- $form->{cp_satphone},
- $form->{cp_satfax},
- $form->{cp_project},
- $form->{cp_privatphone},
- $form->{cp_privatemail},
- $form->{cp_birthday}
- );