You can also add a new sub called short_title:
sub {
my $tags = shift;
my $titl = $tags->{Title} or return "No description.";
length $titl < 18 and return $titl;
my $short = substr ($titl, 0, 18);
$short =~ s/\s\S+?$//;
$short .= " ...";
return $short;
}
And then use <%short_title%> instead of <%Title%> in your link tag. This was originally written to shorten description tags, which it works great for that too.
sub {
my $tags = shift;
my $titl = $tags->{Title} or return "No description.";
length $titl < 18 and return $titl;
my $short = substr ($titl, 0, 18);
$short =~ s/\s\S+?$//;
$short .= " ...";
return $short;
}
And then use <%short_title%> instead of <%Title%> in your link tag. This was originally written to shorten description tags, which it works great for that too.
