From e7d2012dd91644d84e9c2b281f1c7b9836180682 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Tue, 11 Oct 2011 14:57:21 +0200 Subject: [PATCH] =?utf8?q?displayable=5Fname=20methode=20f=C3=BCr=20custom?= =?utf8?q?er?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/DB/Customer.pm | 6 ++++++ 1 file changed, 6 insertions(+) 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; -- 2.20.1