projekt kivitendo

  return {

    full_name => join(' ', grep { $_ ne '' } map { $_ // '' } ($chosen->cp_title, $chosen->cp_givenname, $chosen->cp_name)),

    map({ my $method = "cp_$_"; ($_ => $chosen->$method // '') } qw(title givenname name phone1 phone2 mobile1 mobile2 fax)),

  };

}

    full_name => $chosen->name  // '',

    phone1    => $chosen->phone // '',

    fax       => $chosen->fax   // '',

    map({ ($_ => '') } qw(title givenname name phone2 mobile1 mobile2)),

  };

}

=over 4

=item C<full_name> — for contacts this is the concatenation of the

title, given name and family name; for customers/vendors it's the

company name