sub BuildCatList
  {
    my $top = Category->new_tree("top", 0);
    my @cats_list = $top->as_flattened_list;
    my $cats = &main::GetDB('cats');
    $cats->{'~cat_list'} = &main::nfreeze( \@cat_list );
  }