X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0faa6e7f9b97ac06b82d1adaea8a683576157bf8..546829a08e9d39998939e024a84bdeb571c2ae5d:/SL/DB/Contact.pm diff --git a/SL/DB/Contact.pm b/SL/DB/Contact.pm index 395fe2651..bed7e9cd6 100644 --- a/SL/DB/Contact.pm +++ b/SL/DB/Contact.pm @@ -48,7 +48,7 @@ sub full_name_dep { sub formal_greeting { my ($self) = @_; die 'not an accessor' if @_ > 1; - join ' ', grep $_, $self->cp_greeting, $self->cp_givenname, $self->cp_name; + join ' ', grep $_, $self->cp_title, $self->cp_givenname, $self->cp_name; } 1;