utf8 handling fixes 'Wide character in print at' encoding errors.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Mason James 2007-11-12 12:13:18 -06:00 committed by Joshua Ferraro
parent 2d16b723d1
commit c846ed00db
1 changed files with 1 additions and 1 deletions

View File

@ -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;