X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cf35a74f94bfe0451dfe9498e0a07ce20ae098ed..cf63992efd6843a38de948fc509cdcc3bf51f1b6:/SL/PriceSource/Price.pm

diff --git a/SL/PriceSource/Price.pm b/SL/PriceSource/Price.pm
index b753e0c6a..1e8f0a299 100644
--- 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 ]}"
 }