X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f5ea30944e6ab350022a7fc400397ed9944e7eda..e7d2012dd91644d84e9c2b281f1c7b9836180682:/SL/DB/Customer.pm

diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm
index 0adffbddd..f9f890167 100644
--- a/SL/DB/Customer.pm
+++ b/SL/DB/Customer.pm
@@ -50,4 +50,10 @@ sub short_address {
   return join ', ', grep { $_ } $self->street, $self->zipcode, $self->city;
 }
 
+sub displayable_name {
+  my $self = shift;
+
+  return join ' ', grep $_, $self->customernumber, $self->name;
+}
+
 1;