sub {
my $tags = shift;
my $table = $DB->table('Category');

$table->select_options ("ORDER BY Full_Name") || return $GT::SQL::error;
my $sth = $table->select ( ['Full_Name','ID'] ) || return $GT::SQL::error;
my $output = '<select name="CatID">';

while (my $row = $sth->fetchrow_hashref) {
$output .= '<option value='.$row->{ID}.'>'.$row->{Title}.'</option>';
}

$output .= '</select>';
return $output;
}