PartGroup: auch in deiversen Dropdown Partsgroup hierarchisch darstellen

kivitendo · Oct 30, 2024 · a5419c1 · a5419c1
1 parent 86d460a
commit a5419c1
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/SL/Controller/Part.pm b/SL/Controller/Part.pm
@@ -502,7 +502,7 @@ sub action_show_multi_items_dialog {
   $search_term  ||= $self->models->filtered->laundered->{all_with_customer_partnumber_substr_multi__ilike};
 
   $_[0]->render('part/_multi_items_dialog', { layout => 0 },
-                all_partsgroups => SL::DB::Manager::PartsGroup->get_all,
+                all_partsgroups => SL::DB::Manager::PartsGroup->data_partsgroup_dropdown,
                 search_term     => $search_term
   );
 }
@@ -1420,7 +1420,7 @@ sub init_all_languages {
 
 sub init_all_partsgroups {
   my ($self) = @_;
-  SL::DB::Manager::PartsGroup->get_all_sorted(query => [ or => [ id => $self->part->partsgroup_id, obsolete => 0 ] ]);
+  SL::DB::Manager::PartsGroup->data_partsgroup_dropdown;
 }
 
 sub init_all_buchungsgruppen {

diff --git a/SL/DB/Manager/PartsGroup.pm b/SL/DB/Manager/PartsGroup.pm
@@ -45,4 +45,15 @@ sub get_hierarchy {
   return \@list;
 }
 
+sub data_partsgroup_dropdown {
+  my ($name, %params);
+  my $partsgroup = get_hierarchy;
+  my $partsgroup_hierarchie;
+  foreach my $pg (@{$partsgroup}) {
+    next if $pg->{obsolete};
+    $pg->{partsgroup} = "| " x $pg->{level} . $pg->{partsgroup};
+    push @{$partsgroup_hierarchie}, $pg;
+  }
+  return $partsgroup_hierarchie;
+}
 1;