sub {
my ($rec) = @_;
my $linkid = $rec->{ID};
my $db = $DB->table ('Category','CatLinks');
my $sth = $db->select ( { 'CatLinks.LinkID' => $linkid }, ['Category.Full_Name'] );
my $cat;
while (my ($full_name) = $sth->fetchrow_array) {
my $test = Links::Build::build('title_unlinked', $full_name);
$full_name =~ s/ /_/g;
$cat .= qq~<a href="$CFG->{build_root_url}/$full_name/index.html">$test</a>~;
}
return $cat;
}
my ($rec) = @_;
my $linkid = $rec->{ID};
my $db = $DB->table ('Category','CatLinks');
my $sth = $db->select ( { 'CatLinks.LinkID' => $linkid }, ['Category.Full_Name'] );
my $cat;
while (my ($full_name) = $sth->fetchrow_array) {
my $test = Links::Build::build('title_unlinked', $full_name);
$full_name =~ s/ /_/g;
$cat .= qq~<a href="$CFG->{build_root_url}/$full_name/index.html">$test</a>~;
}
return $cat;
}