Hi, I have done the following... it is probably not the best way to do it but it works...
sub {
my $tags = shift;
my $link_id = $tags->{ID};
my $link_db = $DB->table ('Links');
my ($cat_id, $cat_name) = each %{$link_db->get_categories ($link_id)};
my $output = qq~
$cat_id
~;
return $output;
}
FMP
sub {
my $tags = shift;
my $link_id = $tags->{ID};
my $link_db = $DB->table ('Links');
my ($cat_id, $cat_name) = each %{$link_db->get_categories ($link_id)};
my $output = qq~
$cat_id
~;
return $output;
}
FMP