use DBI;
use POSIX;
use Devel::Peek;
+use HTML::Entities;
+use Encode;
use locale;
require '../config.pm';
my $match_stddev;
sub sanitize {
- $_ = shift;
- y/ \t\n<>&/_/;
- return $_;
+ return HTML::Entities::encode_entities(shift);
}
sub color {
while (my $ref = $q->fetchrow_hashref) {
my $id = $ref->{'id'};
- $players{$id} = sanitize($ref->{'navn'});
+ $players{$id} = sanitize(Encode::decode_utf8($ref->{'navn'}));
$ratings{$id} = $ref->{'rating'};
}
$q->finish;