diff --git a/misc/migration_tools/rebuild_zebra_idx.pl b/misc/migration_tools/rebuild_zebra_idx.pl index ecc0909a13..2ed7a1fe41 100755 --- a/misc/migration_tools/rebuild_zebra_idx.pl +++ b/misc/migration_tools/rebuild_zebra_idx.pl @@ -42,7 +42,7 @@ my $i=0; while ((my $biblionumber) = $sth->fetchrow) { my $record = GetMarcBiblio($biblionumber); my $filename = $cgidir."/tmp/BIBLIO".$biblionumber.".iso2709"; - open F,"> $filename"; + open F,">:utf8", $filename; eval {print F $record->as_usmarc(); }; warn "ERROR: writing biblio $biblionumber failed" if $@; close F;