| 367 |
367 |
do_query( $form, $dbh, $query, @values );
|
| 368 |
368 |
|
| 369 |
369 |
$query = undef;
|
|
370 |
my @columns = qw(cp_title cp_givenname cp_name cp_email cp_phone1 cp_phone2 cp_abteilung cp_fax
|
|
371 |
cp_mobile1 cp_mobile2 cp_satphone cp_satfax cp_project cp_privatphone cp_privatemail cp_birthday cp_gender
|
|
372 |
cp_street cp_zipcode cp_city);
|
|
373 |
@values = map { $_ eq 'cp_gender' ? ($form->{$_} eq 'f' ? 'f' : 'm') : $form->{$_} } @columns;
|
|
374 |
|
| 370 |
375 |
if ( $form->{cp_id} ) {
|
| 371 |
|
$query = qq|UPDATE contacts SET | .
|
| 372 |
|
qq|cp_title = ?, | .
|
| 373 |
|
qq|cp_givenname = ?, | .
|
| 374 |
|
qq|cp_name = ?, | .
|
| 375 |
|
qq|cp_email = ?, | .
|
| 376 |
|
qq|cp_phone1 = ?, | .
|
| 377 |
|
qq|cp_phone2 = ?, | .
|
| 378 |
|
qq|cp_abteilung = ?, | .
|
| 379 |
|
qq|cp_fax = ?, | .
|
| 380 |
|
qq|cp_mobile1 = ?, | .
|
| 381 |
|
qq|cp_mobile2 = ?, | .
|
| 382 |
|
qq|cp_satphone = ?, | .
|
| 383 |
|
qq|cp_satfax = ?, | .
|
| 384 |
|
qq|cp_project = ?, | .
|
| 385 |
|
qq|cp_privatphone = ?, | .
|
| 386 |
|
qq|cp_privatemail = ?, | .
|
| 387 |
|
qq|cp_birthday = ?, | .
|
| 388 |
|
qq|cp_gender = ? | .
|
| 389 |
|
qq|WHERE cp_id = ?|;
|
| 390 |
|
@values = (
|
| 391 |
|
$form->{cp_title},
|
| 392 |
|
$form->{cp_givenname},
|
| 393 |
|
$form->{cp_name},
|
| 394 |
|
$form->{cp_email},
|
| 395 |
|
$form->{cp_phone1},
|
| 396 |
|
$form->{cp_phone2},
|
| 397 |
|
$form->{cp_abteilung},
|
| 398 |
|
$form->{cp_fax},
|
| 399 |
|
$form->{cp_mobile1},
|
| 400 |
|
$form->{cp_mobile2},
|
| 401 |
|
$form->{cp_satphone},
|
| 402 |
|
$form->{cp_satfax},
|
| 403 |
|
$form->{cp_project},
|
| 404 |
|
$form->{cp_privatphone},
|
| 405 |
|
$form->{cp_privatemail},
|
| 406 |
|
$form->{cp_birthday},
|
| 407 |
|
$form->{cp_gender} eq 'f' ? 'f' : 'm',
|
| 408 |
|
$form->{cp_id}
|
| 409 |
|
);
|
|
376 |
$query = qq|UPDATE contacts SET | . join(', ', map { "${_} = ?" } @columns) . qq| WHERE cp_id = ?|;
|
|
377 |
push @values, $form->{cp_id};
|
|
378 |
|
| 410 |
379 |
} elsif ( $form->{cp_name} || $form->{cp_givenname} ) {
|
| 411 |
|
$query =
|
| 412 |
|
qq|INSERT INTO contacts ( cp_cv_id, cp_title, cp_givenname, | .
|
| 413 |
|
qq| cp_name, cp_email, cp_phone1, cp_phone2, cp_abteilung, cp_fax, cp_mobile1, | .
|
| 414 |
|
qq| cp_mobile2, cp_satphone, cp_satfax, cp_project, cp_privatphone, cp_privatemail, | .
|
| 415 |
|
qq| cp_birthday, cp_gender) | .
|
| 416 |
|
qq|VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
|
| 417 |
|
@values = (
|
| 418 |
|
$form->{id},
|
| 419 |
|
$form->{cp_title},
|
| 420 |
|
$form->{cp_givenname},
|
| 421 |
|
$form->{cp_name},
|
| 422 |
|
$form->{cp_email},
|
| 423 |
|
$form->{cp_phone1},
|
| 424 |
|
$form->{cp_phone2},
|
| 425 |
|
$form->{cp_abteilung},
|
| 426 |
|
$form->{cp_fax},
|
| 427 |
|
$form->{cp_mobile1},
|
| 428 |
|
$form->{cp_mobile2},
|
| 429 |
|
$form->{cp_satphone},
|
| 430 |
|
$form->{cp_satfax},
|
| 431 |
|
$form->{cp_project},
|
| 432 |
|
$form->{cp_privatphone},
|
| 433 |
|
$form->{cp_privatemail},
|
| 434 |
|
$form->{cp_birthday},
|
| 435 |
|
$form->{cp_gender} eq 'f' ? 'f' : 'm',
|
| 436 |
|
);
|
|
380 |
$query = qq|INSERT INTO contacts (| . join(', ', 'cp_cv_id', @columns) . qq|) VALUES (?, | . join(', ', ('?') x scalar(@columns)) . qq|)|;
|
|
381 |
unshift @values, $form->{id};
|
| 437 |
382 |
}
|
| 438 |
383 |
do_query( $form, $dbh, $query, @values ) if ($query);
|
| 439 |
384 |
|
Straße, PLZ, Ort bei Ansprechpersonen bearbeiten
Behebt #1931.