sub category_list {
# -------------------------------------------------------------------
# Return a list of all the categories.
#
my %ret;
my $cat = $DB->table('Category');
my @ids = $IN->param('CatLinks.CategoryID');
@ids = $IN->param('ID') unless @ids;
if ($CFG->{db_gen_category_list}) {
$cat->select_options('ORDER BY Full_Name');
my $sth = $cat->select( { isSub => 'Yes' } );
my @cats;
while (my $c = $sth->fetchrow_hashref) {
for (0 .. $#ids) {
if ($c->{ID} == $ids[$_]) {
$c->{selected} = 1;
splice @ids, $_, 1;
last;
}
}
push @cats, $c;
}
$ret{category_loop} = \@cats;
$ret{category_loop_selected} = 0;
}
else {
$ret{category_loop} = $cat->select({ ID => \@ids })->fetchall_hashref;
$ret{category_loop_selected} = 1;
}
return \%ret;
}