]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Controller/Part.pm
ustva.pl trailing whitespace entfernt
[mfinanz.git] / SL / Controller / Part.pm
index 5622193c48fb9a0f6c349e68d1671f9ded0a1170..9458a83f3e603bb1d54782247c9e558917022eb3 100644 (file)
@@ -23,7 +23,7 @@ use Rose::Object::MakeMethods::Generic (
                                   assortment assortment_items assembly assembly_items
                                   all_pricegroups all_translations all_partsgroups all_units
                                   all_buchungsgruppen all_payment_terms all_warehouses
-                                  all_languages all_units all_pricefactors) ],
+                                  all_languages all_units all_price_factors) ],
   'scalar'                => [ qw(warehouse bin) ],
 );
 
@@ -872,7 +872,8 @@ sub init_all_languages {
 }
 
 sub init_all_partsgroups {
-  SL::DB::Manager::PartsGroup->get_all_sorted;
+  my ($self) = @_;
+  SL::DB::Manager::PartsGroup->get_all_sorted(query => [ or => [ id => $self->part->partsgroup_id, obsolete => 0 ] ]);
 }
 
 sub init_all_buchungsgruppen {