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

index 2fe5032..f78aa3c 100755 (executable)
@@ -46,6 +46,7 @@ s/$junk\xC3\x85\xC2\x92/Č/gs && $stat->{'Cv C385'}++;
 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\xC3\x82\xC2\xA6/Š/gs && $stat->{'S C2A6'}++;
 
 s/$junk\xC2\xAB/"/gs && $stat->{'" open'}++;
 s/$junk\xC2\xBB/"/gs && $stat->{'" close'}++;
@@ -53,6 +54,8 @@ s/$junk\xC2\xBB/"/gs && $stat->{'" close'}++;
 s/$junk\xC2\xBE/"/gs && $stat->{'"'}++;
 s/$junk\xC2\x93/"/gs && $stat->{'"'}++;
 
+s/$junk\xC3\x82\xC2\xB2/"/gs && $stat->{'" C2B2'}++;
+
 s/$junk\xC2\x84\xC2\xA2/'/gs && $stat->{"'"}++;
 s/$junk\xC3\x82\xC2\xB4/'/gs && $stat->{"' C2B4"}++;
 s/$junk\xC3\x8B\xC2\x9C/'/gs && $stat->{"' C29C"}++;