eprints-dev: /home/dpavlin/mtoolkit/utf8-fix.pl [commit]
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 19 Oct 2010 00:13:36 +0000 (02:13 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 19 Oct 2010 00:13:36 +0000 (02:13 +0200)
mtoolkit/utf8-fix.pl

index 4a37346..564e7e5 100755 (executable)
@@ -39,7 +39,7 @@ s/$junk\xC2\x80\xC4\xA1/š/gs && $stat->{'s C4'}++;
 s/$junk\xC3\x82\xC2\xBE/ž/gs && $stat->{'z'}++;
 
 s/$junk\xC2\x80\xC2\x98/đ/gs && $stat->{'d'}++;
-s/$junk\xC2\x80\xC2\x90/Đ/gs && $stat->{'D'}++;
+s/$junk\xC3\x82\xC2\x90/Đ/gs && $stat->{'D'}++;
 
 s/$junk\xC2\x80\xC2\x92/Č/gs && $stat->{'Cv'}++;
 s/$junk\xC3\x85\xC2\x92/Č/gs && $stat->{'Cv C385'}++;
@@ -47,7 +47,8 @@ s/$junk\xC2\x80\xC2\xA0/Ć/gs && $stat->{'C'}++;
 s/$junk\xC3\x82\xC2\xBD/Ž/gs && $stat->{'Z'}++;
 s/$junk\xC3\x82\xC2\xA0/Š/gs && $stat->{'S'}++;
 
-s/$junk\xC2\x80\xC2\xAB/"/gs && $stat->{'" open ?'}++;
+s/$junk\xC2\xAB/"/gs && $stat->{'" open'}++;
+s/$junk\xC2\xBB/"/gs && $stat->{'" close'}++;
 
 s/$junk\xC2\xBE/"/gs && $stat->{'"'}++;
 s/$junk\xC2\x93/"/gs && $stat->{'"'}++;