sub {

# passed as <%global_name($ID,'detail')%>
# or <%global_name($ID,'category')%>

my $ID = $_[0]; # either pass in a category ID, or link ID
my $do = $_[1];

if ($do eq "detail") {

my $cat_id = $DB->table('CatLinks')->select( ['CategoryID'], { LinkID => $ID } )->fetchrow || return $GT::SQL::error;

my $full_name = $DB->table('Category')->select( ['Full_Name'], { ID => $cat_id } )->fetchrow || return $GT::SQL::error;

my @cat_cut = split /\//, $full_name;

$cat_cut[0] ?
return $cat_cut[0] :
return "couldnt find category ID $cat_id and link ID $ID...";


} else {

my $full_name = $DB->table('Category')->select( ['Full_Name'], { ID => $ID } )->fetchrow || return $GT::SQL::error;

my @cat_cut = split /\//, $full_name;

$cat_cut[0] ?
return $cat_cut[0] :
return "couldnt find category ID $ID ...";

}

}