sub {

my @ids = $IN->param('CatLinks.CategoryID');

my $exists;
foreach (@ids) { $exits->{$_} = 1; }

my $show_count = $_[0];

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

my $back;

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

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

$full_name2 .= $cut[$#cut];

if ($exists->{ID}) {
$back .= "<option value=\"$id\">$full_name2</option>";
} else {
$back .= "<option value=\"$id\" selected="yes">$full_name2</option>";
}

}

my $send_back = qq|<select multiple="yes" size="10" name="CatLinks.CategoryID"><option value="">------</option>$back</select>|;

return \$send_back;

}

<div class="row required clear">
<label for="URL" class="name">Category: <span>*</span></label>
<div class="value">
<%custom_category_list%>
</div>
</div>