PriceSource: Nur den Namen des Moduls anzeigen, nicht den vollen Namen

[mfinanz.git] / SL / PriceSource / Price.pm

diff --git a/SL/PriceSource/Price.pm b/SL/PriceSource/Price.pm
index b753e0c6aabac6d9eeb8113b760086940c57982e..1e8f0a299c2afa141a28a5d31faec96cf46035b7 100644 (file)
--- a/SL/PriceSource/Price.pm
+++ b/SL/PriceSource/Price.pm
@@ -26,6 +26,14 @@ sub full_description {
     : $self->description
 }
 
+sub source_description {
+  my ($self) = @_;
+
+  $self->price_source
+    ? $self->price_source->description
+    : $self->description 
+}
+
 sub to_str {
   "source: @{[ $_[0]->source ]}, price: @{[ $_[0]->price]}, description: @{[ $_[0]->description ]}"
 }