- $query = qq|UPDATE customer SET | .
- qq|customernumber = ?, | .
- 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|discount = ?, | .
- qq|creditlimit = ?, | .
- qq|terms = ?, | .
- qq|business_id = ?, | .
- qq|taxnumber = ?, | .
- qq|sic_code = ?, | .
- qq|language = ?, | .
- qq|account_number = ?, | .
- qq|bank_code = ?, | .
- qq|bank = ?, | .
- qq|obsolete = ?, | .
- qq|ustid = ?, | .
- qq|username = ?, | .
- qq|salesman_id = ?, | .
- qq|language_id = ?, | .
- qq|payment_id = ?, | .
- qq|taxzone_id = ?, | .
- qq|user_password = ?, | .
- qq|c_vendor_id = ?, | .
- qq|klass = ? | .
- qq|WHERE id = ?|;
- my @values = (
- $form->{customernumber},
- $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},
- $form->{discount},
- $form->{creditlimit},
- conv_i($form->{terms}),
- conv_i($form->{business}),
- $form->{taxnumber},
- $form->{sic},
- $form->{language},
- $form->{account_number},
- $form->{bank_code},
- $form->{bank},
- $form->{obsolete} ? 't' : 'f',
- $form->{ustid},
- $form->{username},
- conv_i($form->{salesman_id}),
- conv_i($form->{language_id}),
- conv_i($form->{payment_id}),
- conv_i($form->{taxzone_id}, 0),
- $form->{user_password},
- $form->{c_vendor_id},
- conv_i($form->{klass}),
- $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}
- );