Andy, think it needs to be more like this: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 ($fullname,$ID) = $sth->fetchrow_array) {
$output .= '<option value='.$ID.'>'.$fullname.'</option>';
}
$output .= '</select>';
return $output;
}
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 ($fullname,$ID) = $sth->fetchrow_array) {
$output .= '<option value='.$ID.'>'.$fullname.'</option>';
}
$output .= '</select>';
return $output;
}