sub {

my $table = $DB->table('Category');
my $return_cats;

$table->select_options ('ORDER BY Name ASC');
my $cond = GT::SQL::Condition->new('FatherID','>','0');
my $sth = $table->select( $cond );

while (my $hit = $sth->fetchrow_hashref) {
$return_cats .= "<option value=\"" . $hit->{ID} . "\">" . $hit->{Full_Name} . "</option>";
}

return $return_cats;
}