1 package SL::PriceSource::ALL;
4 use SL::PriceSource::Pricegroup;
5 use SL::PriceSource::MasterData;
6 use SL::PriceSource::Makemodel;
7 use SL::PriceSource::Customer;
8 use SL::PriceSource::Vendor;
9 use SL::PriceSource::Business;
11 my %price_sources_by_name = (
12 master_data => 'SL::PriceSource::MasterData',
13 customer => 'SL::PriceSource::Customer',
14 vendor => 'SL::PriceSource::Vendor',
15 pricegroup => 'SL::PriceSource::Pricegroup',
16 makemodel => 'SL::PriceSource::Makemodel',
17 business => 'SL::PriceSource::Business',
20 my @price_sources_order = qw(
29 sub all_enabled_price_sources {
30 my %disabled = map { $_ => 1 } @{ $::instance_conf->get_disabled_price_sources || [] };
32 map { $price_sources_by_name{$_} } grep { !$disabled{$_} } @price_sources_order;
35 sub all_price_sources {
36 map { $price_sources_by_name{$_} } @price_sources_order;
39 sub price_source_class_by_name {
40 $price_sources_by_name{$_[1]};