Revision 3ccf1a99
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 552 | 552 |
my @columns = qw(cp_title cp_givenname cp_name cp_email cp_phone1 cp_phone2 cp_abteilung cp_fax |
| 553 | 553 |
cp_mobile1 cp_mobile2 cp_satphone cp_satfax cp_project cp_privatphone cp_privatemail cp_birthday cp_gender |
| 554 | 554 |
cp_street cp_zipcode cp_city); |
| 555 |
my @values = map { $_ eq 'cp_gender' ? ($form->{$_} eq 'f' ? 'f' : 'm') : $form->{$_} } @columns;
|
|
| 555 |
my @values = map( |
|
| 556 |
{
|
|
| 557 |
if ( $_ eq 'cp_gender' ) {
|
|
| 558 |
$form->{$_} eq 'f' ? 'f' : 'm';
|
|
| 559 |
} elsif ( $_ eq 'cp_birthday' && $form->{cp_birthday} eq '' ) {
|
|
| 560 |
undef; |
|
| 561 |
} else {
|
|
| 562 |
$form->{$_};
|
|
| 563 |
} |
|
| 564 |
} |
|
| 565 |
@columns |
|
| 566 |
); |
|
| 556 | 567 |
|
| 557 | 568 |
my ($query, $cp_id); |
| 558 | 569 |
if ($form->{cp_id}) {
|
Auch abrufbar als: Unified diff
Kontaktpersonenfeld von Freitext auf Datum umstelen
Basierend auf Patch von Thomas Heck <t.heck@linet-services.de> mit
Verfeinerungen von mir.
Implementiert #2021.