+ my %join_tokens = (
+ "stock_value" => "LEFT JOIN price_factors pfac ON (p.price_factor_id = pfac.id)",
+ );
+
+ my $joins = join ' ', grep { $_ } map { +/^l_/; $join_tokens{"$'"} }
+ ( grep( { !/qty/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form),
+ qw(l_parts_id l_qty l_partunit) );
+