sub {

# lists categories
my $cat_db = $DB->table('Category');
$cat_db->select_options ("ORDER BY RAND()", "LIMIT 50");
my $sth = $cat_db->select ( ['Full_Name','Name'], { FatherID => 0 } );
my @output;
my $names;
while (my $cat = $sth->fetchrow_hashref) {
$names->{$cat->{Name}} = $cat->{Full_Name};
}

map {
my $cat = $cat_db->get( { Full_Name => $_ } );
$cat->{URL} = "$CFG->{build_root_url}/" . $cat_db->as_url($cat->{Full_Name}) . "/";
push @output, $cat;
} sort keys %$names;

return { catrand => \@output };
}