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:
parent
2d16b723d1
commit
c846ed00db
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Reference in New Issue