Thanks for the code Alex!
I've got this now, which appears to work (minus the actual hyperlinking).
I am going to look at your version also as a solution to this.
sub {
#return the Full_Name for a category based on the category_id available in browser_category.html
my $rec = shift;
my $category_id = $rec->{category_id};
my $cat = $DB->table('Category')->select( ['Full_Name'], { ID => $category_id } )->fetchrow_array;
$cat =~ s,(.*?)/.+/(.*?/.+)$,$1/.../$2,;
return $cat;
}
I've got this now, which appears to work (minus the actual hyperlinking).
I am going to look at your version also as a solution to this.

Code:
sub {
#return the Full_Name for a category based on the category_id available in browser_category.html
my $rec = shift;
my $category_id = $rec->{category_id};
my $cat = $DB->table('Category')->select( ['Full_Name'], { ID => $category_id } )->fetchrow_array;
$cat =~ s,(.*?)/.+/(.*?/.+)$,$1/.../$2,;
return $cat;
}