foreach my $current_cat (sort { $a->[1] cmp $b->[1] } @{$all_cats}) {
              ($cat{id}, $cat{name}) = @$current_cat;
              push @main::categories {level=>$level,name=>$cat{name},id=>$cat{id}};
              &ListCategories($indent, $cat{id}, 'y');
          }