i figured it out:
sub {
my $catid = shift;
my $table = $DB->table('Category');
my $return_cats;
$table->select_options ('ORDER BY Full_Name ASC');
my $cond = GT::SQL::Condition->new('isHidden','=','No');
my $sth = $table->select( $cond );
my $return_cats = qq|<select name="$catid">|;
while (my $hit = $sth->fetchrow_hashref) {
$return_cats .= "<option value=\"" . $hit->{ID} . "\"";
if ($catid == $hit->{ID}) { $return_cats .= "selected=\"selected\""; }
$return_cats .= ">" . $hit->{Full_Name} . "</option>";
}
$return_cats .= '</select>';
return $return_cats;
}
hope this helps someone
sub {
my $catid = shift;
my $table = $DB->table('Category');
my $return_cats;
$table->select_options ('ORDER BY Full_Name ASC');
my $cond = GT::SQL::Condition->new('isHidden','=','No');
my $sth = $table->select( $cond );
my $return_cats = qq|<select name="$catid">|;
while (my $hit = $sth->fetchrow_hashref) {
$return_cats .= "<option value=\"" . $hit->{ID} . "\"";
if ($catid == $hit->{ID}) { $return_cats .= "selected=\"selected\""; }
$return_cats .= ">" . $hit->{Full_Name} . "</option>";
}
$return_cats .= '</select>';
return $return_cats;
}
hope this helps someone