PriceRule: Regeldetails anzeigen

[mfinanz.git] / SL / DB / PriceRule.pm

diff --git a/SL/DB/PriceRule.pm b/SL/DB/PriceRule.pm
index 5c2552ddbdaa3f024e8c18a90665365f2a48f592..0a9f09d850123840602c1790d7893ad59b424875 100644 (file)
--- a/SL/DB/PriceRule.pm
+++ b/SL/DB/PriceRule.pm
@@ -95,7 +95,7 @@ sub clone_and_reset_deep {
 sub full_description {
   my ($self) = @_;
 
 sub full_description {
   my ($self) = @_;
 

-  my $items = join ', ', map { $_->full_description } $self->items;
+  my $items = $self->item_summary;

   my $price = $self->price_or_discount
             ? t8('Discount #1%', $self->discount_as_number)
             : t8('Price #1', $self->price_as_number);
   my $price = $self->price_or_discount
             ? t8('Discount #1%', $self->discount_as_number)
             : t8('Price #1', $self->price_as_number);


@@ -103,6 +103,10 @@ sub full_description {
   sprintf "%s: %s (%s)", $self->name, $price, $items;
 }
 
   sprintf "%s: %s (%s)", $self->name, $price, $items;
 }
 

+sub item_summary {
+  join ', ', map { $_->full_description } $_[0]->items;
+}
+

 sub in_use {
   my ($self) = @_;
 
 sub in_use {
   my ($self) = @_;