X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c21d2acca00997c4ca0be66f053dfdd0180f68f8..eebe8e90991eacadb6fbd20a648c152017a620c7:/SL/PriceSource/ALL.pm?ds=sidebyside

diff --git a/SL/PriceSource/ALL.pm b/SL/PriceSource/ALL.pm
new file mode 100644
index 000000000..f39df0abc
--- /dev/null
+++ b/SL/PriceSource/ALL.pm
@@ -0,0 +1,25 @@
+package SL::PriceSource::ALL;
+
+use strict;
+use SL::PriceSource::Pricegroup;
+use SL::PriceSource::MasterData;
+
+my %price_sources_by_name = (
+  master_data => 'SL::PriceSource::MasterData',
+  pricegroup  => 'SL::PriceSource::Pricegroup',
+);
+
+my @price_sources_order = qw(
+  master_data
+  pricegroup
+);
+
+sub all_price_sources {
+  map { $price_sources_by_name{$_} } @price_sources_order;
+}
+
+sub price_source_class_by_name {
+  $price_sources_by_name{$_[1]};
+}
+
+1;