Einheitliche displayable_name Methode für ar/ap/oe/do Objekte

Bestehend aus Dokumentenname und Dokumentennummer, z.B.
Rechnung 12
Gutschrift 20
Verkaufslieferschein 15b

diff --git a/SL/DB/DeliveryOrder.pm b/SL/DB/DeliveryOrder.pm
index 15ceb5ddb4dcb53c85b2467d6355d10fcb4f60d2..e6538e92e3a56a77b72bd2d483a978845d285e8a 100644 (file)
--- a/SL/DB/DeliveryOrder.pm
+++ b/SL/DB/DeliveryOrder.pm
@@ -82,6 +82,9 @@ sub displayable_type {
   die 'invalid type';
 }
 
+sub displayable_name {
+  join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
 
 sub displayable_state {
   my ($self) = @_;

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 5456a376bb53a5947d1df1cab1b42042b70a79a6..239280b2a27db8e38338cb0074a3760af38d0bc9 100644 (file)
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -337,6 +337,10 @@ sub displayable_type {
   return t8('Invoice');
 }
 
+sub displayable_name {
+  join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
+
 sub abbreviation {
   my ($self) = @_;
 

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index fe0571fae16e2dabc92b63b79c5e719126a663ea..d61ec31ebcf402f859711cbb21ad8b00b2f93cf9 100644 (file)
--- 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;