sub {
my ($db,$sth,$row);
my $output="";

$db = $DB->table('Category');
$db->select_options("ORDER BY Name");
$sth = $db->select( ['ID','Name'] );


for ($i = 0; $i <27, $i++;){
while ($row = $sth->fetchrow_hashref) {
$output .= qq|<br><a href="$CFG->{build_root_url}/$row->{ID}">$row->{Name}\n|;

$num = 65 + $i;
if (substr($output, 0, 1) == chr($num)){print)
}}

$output .= qq|</a>|;

return $output;

}



something like that. i think.