close DESC;
if (length($desc) > 30) {
- $desc = substr($desc, 0, 30) . " ...";
+ # Is this <abbr> abuse?
+ $desc = HTML::Entities::encode_entities(substr($desc, 0, 30)) . " <abbr title=\"" .
+ HTML::Entities::encode_entities($desc)
+ . "\">...</abbr>";
+ } else {
+ $desc = HTML::Entities::encode_entities($desc);
}
- $desc = HTML::Entities::encode_entities($desc);
my $time = (stat($t))[9];
my $date = POSIX::strftime("%Y-%m-%d %H:%M", localtime($time));