sub {

my $category;
my $db = $DB->table('Category') || return $GT::SQL::error;
$db->select_options('ORDER BY Full_Name') || return $GT::SQL::error;
my $sth = $db->select() || return $GT::SQL::error;

while (my ($id,$full_name) = $sth->fetchrow_array) {

my @cut = split /\//, $full_name;
my $back = '';
for (my $i=0; $i < $#cut; $i++) {
$back .= " ";
}

$back .= " " . $cut[$#cut];

}

my $send_back = qq|<select size="1" name="catid"><option value="">------</option>$back</select>|;

return $send_back;

}

Name
Sub1
Sub2
Another
Sub
Sub
Test
Test2