|
|
@@ -186,6 +186,9 @@ sub htmlentities
|
|
|
my $str = shift;
|
|
|
my $charset = shift;
|
|
|
|
|
|
+ $str =~ s/\&/\&/go;
|
|
|
+ $str =~ s/\</\</go;
|
|
|
+ $str =~ s/\>/\>/go;
|
|
|
if ($charset =~ /iso-8859-1/i) { # this is for people without Text::Iconv
|
|
|
$str =~ s/ü/ü/go;
|
|
|
$str =~ s/ö/ö/go;
|
|
|
@@ -199,10 +202,6 @@ sub htmlentities
|
|
|
$str =~ s/Ø/Ø/go;
|
|
|
$str =~ s/\x95/\•/go;
|
|
|
}
|
|
|
- $str =~ s/\&/\&/go;
|
|
|
- $str =~ s/\</\</go;
|
|
|
- $str =~ s/\>/\>/go;
|
|
|
-
|
|
|
return $str;
|
|
|
}
|
|
|
|