- my ($sdesc,$ldesc) = split /\n/, encode_entities($data{description}), 2;
-
- if ($ldesc) {
- $ldesc =~ s,((ftp|http|https)://[\S~-]+?/?)((\>\;)?[)]?[']?[:.\,]?(\s|$)),<a href=\"$1\">$1</a>$3,go; # syntax highlighting -> '];
- $ldesc =~ s/\A //o;
- $ldesc =~ s/\n /\n/sgo;
- $ldesc =~ s/\n.\n/\n<p>\n/go;
- $ldesc =~ s/(((\n|\A) [^\n]*)+)/\n<pre>$1\n<\/pre>/sgo;
- }
- $data{html_description} = [ $sdesc, $ldesc||"" ];
+ my ($sdesc,$ldesc) = split /\n/, $data{description}, 2;