Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision dedbaf15

Von Moritz Bunkus vor mehr als 12 Jahren hinzugefügt

  • ID dedbaf15f42352898a20035ec552f07f51d42abd
  • Vorgänger 5012aacc
  • Nachfolger 87c46045

Straße, PLZ, Ort bei Ansprechpersonen bearbeiten

Behebt #1931.

Unterschiede anzeigen:

SL/CT.pm
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

  

Auch abrufbar als: Unified diff