X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/eebe8e90991eacadb6fbd20a648c152017a620c7..0409db7c50da81e1eb613bd33663fb5b07935a01:/SL/PriceSource/Price.pm?ds=inline

diff --git a/SL/PriceSource/Price.pm b/SL/PriceSource/Price.pm
index ccfdb07ba..0a8fc4f5f 100644
--- a/SL/PriceSource/Price.pm
+++ b/SL/PriceSource/Price.pm
@@ -4,10 +4,16 @@ use strict;
 
 use parent 'SL::DB::Object';
 use Rose::Object::MakeMethods::Generic (
-  scalar => [ qw(price description source price_source) ],
+  scalar => [ qw(price description spec price_source) ],
   array => [ qw(depends_on) ]
 );
 
+sub source {
+  $_[0]->price_source
+  ?  $_[0]->price_source->name . '/' . $_[0]->spec
+  : '';
+}
+
 sub full_description {
   my ($self) = @_;