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 15ceb5d..e6538e9 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 5456a37..239280b 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 fe0571f..d61ec31 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;