For the this global
no strict;
my ($rec) = @_;
my $short;
my $comma;
my $cs;
my $desc = $rec->{'Description'};
my $id = $rec->{'ID'};
if (length $desc < 175) {
$short = $desc;
}
else {
$short = substr ($desc, 0, 165); $short =~ s/\s\S+?$//;
$cs = chop($short);
until ($comma eq " ") {
$comma = chop($short);
}
$short .= "... (<a href=\"<%detailed_url%>\">more</A>)";
}
return $short;
}
Instead of
<a href=\"<%detailed_url%>\">
I want to use these for the links
$link->{'detailed_url'} = "$CFG->{build_detail_url}/$link->{'ID'}$CFG->{build_extension}";
$link->{'title_linked'} = Links::Build::build('title_linked', $link->{'Full_Name'});
I do not know how to do this. Any ideas would be appriciated.
Code:
sub { no strict;
my ($rec) = @_;
my $short;
my $comma;
my $cs;
my $desc = $rec->{'Description'};
my $id = $rec->{'ID'};
if (length $desc < 175) {
$short = $desc;
}
else {
$short = substr ($desc, 0, 165); $short =~ s/\s\S+?$//;
$cs = chop($short);
until ($comma eq " ") {
$comma = chop($short);
}
$short .= "... (<a href=\"<%detailed_url%>\">more</A>)";
}
return $short;
}
Instead of
<a href=\"<%detailed_url%>\">
I want to use these for the links
$link->{'detailed_url'} = "$CFG->{build_detail_url}/$link->{'ID'}$CFG->{build_extension}";
$link->{'title_linked'} = Links::Build::build('title_linked', $link->{'Full_Name'});
I do not know how to do this. Any ideas would be appriciated.