Thank you! It is working right now!!
For all the others... The final code is:
1) Create global named get_link_cats and put inside:
sub {
my $id = shift;
my $cat_db = $DB->table('Category');
my $catlink = $DB->table('CatLinks','Category');
my @names = $catlink->select ({ LinkID => $id }, ['Full_Name'])->fetchall_list;
my @link_cats;
for (@names) {
push @link_cats, { cat_name => Links::Build::build ('title_unlinked',$_), cat_url => $cat_db->as_url($_)};
}
return { link_cats => \@link_cats };
}
2) Then put this in your detailed template (or elsewhere):
<%loop link_cats%>
<a href="http://www.yourdomain.com/yourpath/<%cat_url%>" target="_top"><%cat_name%></a><br>
<%endloop%>And there you goo...
For all the others... The final code is:
1) Create global named get_link_cats and put inside:
Code:
sub {
my $id = shift;
my $cat_db = $DB->table('Category');
my $catlink = $DB->table('CatLinks','Category');
my @names = $catlink->select ({ LinkID => $id }, ['Full_Name'])->fetchall_list;
my @link_cats;
for (@names) {
push @link_cats, { cat_name => Links::Build::build ('title_unlinked',$_), cat_url => $cat_db->as_url($_)};
}
return { link_cats => \@link_cats };
}
2) Then put this in your detailed template (or elsewhere):
Code:
<%get_link_cats($ID)%> <%loop link_cats%>
<a href="http://www.yourdomain.com/yourpath/<%cat_url%>" target="_top"><%cat_name%></a><br>
<%endloop%>