X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4f7e0fa978ada8d8a1e49bfcdfcb232f2608764a..e24e657067548d45e6a23ff56ee4c3ee69b5687b:/SL/DB/Order.pm

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index fe0571fae..d61ec31eb 100644
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -95,6 +95,9 @@ sub displayable_type {
   die 'invalid type';
 }
 
+sub displayable_name {
+  join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
 
 sub is_sales {
   croak 'not an accessor' if @_ > 1;