Revision 48fa52ad
Von Philip Reetz vor etwa 17 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 506 | 506 |
|
| 507 | 507 |
$query = undef; |
| 508 | 508 |
if ( $form->{cp_id} ) {
|
| 509 |
$query = |
|
| 510 |
qq|UPDATE contacts SET | . |
|
| 511 |
qq| cp_greeting = ?, | . |
|
| 512 |
qq| cp_title = ?, | . |
|
| 513 |
qq| cp_givenname = ?, | . |
|
| 514 |
qq| cp_name = ?, | . |
|
| 515 |
qq| cp_email = ?, | . |
|
| 516 |
qq| cp_phone1 = ?, | . |
|
| 517 |
qq| cp_phone2 = ? | . |
|
| 509 |
$query = qq|UPDATE contacts SET | . |
|
| 510 |
qq|cp_greeting = ?, | . |
|
| 511 |
qq|cp_title = ?, | . |
|
| 512 |
qq|cp_givenname = ?, | . |
|
| 513 |
qq|cp_name = ?, | . |
|
| 514 |
qq|cp_email = ?, | . |
|
| 515 |
qq|cp_phone1 = ?, | . |
|
| 516 |
qq|cp_phone2 = ?, | . |
|
| 517 |
qq|cp_abteilung = ?, | . |
|
| 518 |
qq|cp_fax = ?, | . |
|
| 519 |
qq|cp_mobile1 = ?, | . |
|
| 520 |
qq|cp_mobile2 = ?, | . |
|
| 521 |
qq|cp_satphone = ?, | . |
|
| 522 |
qq|cp_satfax = ?, | . |
|
| 523 |
qq|cp_project = ?, | . |
|
| 524 |
qq|cp_privatphone = ?, | . |
|
| 525 |
qq|cp_privatemail = ?, | . |
|
| 526 |
qq|cp_birthday = ? | . |
|
| 518 | 527 |
qq|WHERE cp_id = ?|; |
| 519 | 528 |
@values = ( |
| 520 | 529 |
$form->{cp_greeting},
|
| ... | ... | |
| 524 | 533 |
$form->{cp_email},
|
| 525 | 534 |
$form->{cp_phone1},
|
| 526 | 535 |
$form->{cp_phone2},
|
| 527 |
$form->{cp_id});
|
|
| 536 |
$form->{cp_abteilung},
|
|
| 537 |
$form->{cp_fax},
|
|
| 538 |
$form->{cp_mobile1},
|
|
| 539 |
$form->{cp_mobile2},
|
|
| 540 |
$form->{cp_satphone},
|
|
| 541 |
$form->{cp_satfax},
|
|
| 542 |
$form->{cp_project},
|
|
| 543 |
$form->{cp_privatphone},
|
|
| 544 |
$form->{cp_privatemail},
|
|
| 545 |
$form->{cp_birthday},
|
|
| 546 |
$form->{cp_id}
|
|
| 547 |
); |
|
| 528 | 548 |
} elsif ( $form->{cp_name} || $form->{cp_givenname} ) {
|
| 529 | 549 |
$query = |
| 530 |
qq|INSERT INTO contacts ( cp_cv_id, cp_greeting, cp_title, cp_givenname, cp_name, cp_email, cp_phone1, cp_phone2) | . |
|
| 531 |
qq|VALUES (?, ?, ?, ?, ?, ?, ?, ?)|; |
|
| 550 |
qq|INSERT INTO contacts ( cp_cv_id, cp_greeting, cp_title, cp_givenname, | . |
|
| 551 |
qq| cp_name, cp_email, cp_phone1, cp_phone2, cp_abteilung, cp_fax, cp_mobile1, | . |
|
| 552 |
qq| cp_mobile2, cp_satphone, cp_satfax, cp_project, cp_privatphone, cp_privatemail, | . |
|
| 553 |
qq| cp_birthday) | . |
|
| 554 |
qq|VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|; |
|
| 532 | 555 |
@values = ( |
| 533 |
conv_i($form->{id}),
|
|
| 556 |
$form->{id},
|
|
| 534 | 557 |
$form->{cp_greeting},
|
| 535 | 558 |
$form->{cp_title},
|
| 536 | 559 |
$form->{cp_givenname},
|
| 537 | 560 |
$form->{cp_name},
|
| 538 | 561 |
$form->{cp_email},
|
| 539 | 562 |
$form->{cp_phone1},
|
| 540 |
$form->{cp_phone2});
|
|
| 563 |
$form->{cp_phone2},
|
|
| 564 |
$form->{cp_abteilung},
|
|
| 565 |
$form->{cp_fax},
|
|
| 566 |
$form->{cp_mobile1},
|
|
| 567 |
$form->{cp_mobile2},
|
|
| 568 |
$form->{cp_satphone},
|
|
| 569 |
$form->{cp_satfax},
|
|
| 570 |
$form->{cp_project},
|
|
| 571 |
$form->{cp_privatphone},
|
|
| 572 |
$form->{cp_privatemail},
|
|
| 573 |
$form->{cp_birthday}
|
|
| 574 |
); |
|
| 541 | 575 |
} |
| 542 | 576 |
do_query($form, $dbh, $query, @values) if ($query); |
| 543 | 577 |
|
Auch abrufbar als: Unified diff
Bei Lieferanten wurden nicht alle Daten der Ansprechpartner gespeichert