|
Lines 21-27
use Modern::Perl;
Link Here
|
| 21 |
|
21 |
|
| 22 |
use base 'Class::Accessor'; |
22 |
use base 'Class::Accessor'; |
| 23 |
|
23 |
|
| 24 |
use C4::Charset qw( MarcToUTF8Record ); |
24 |
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag ); |
| 25 |
use C4::Search qw(); # Purely for new_record_from_zebra |
25 |
use C4::Search qw(); # Purely for new_record_from_zebra |
| 26 |
use DBIx::Class::ResultClass::HashRefInflator; |
26 |
use DBIx::Class::ResultClass::HashRefInflator; |
| 27 |
use IO::Select; |
27 |
use IO::Select; |
|
Lines 298-303
sub _import_record {
Link Here
|
| 298 |
|
298 |
|
| 299 |
my ( $marcrecord ) = MarcToUTF8Record( $raw, $marcflavour, $encoding ); #ignores charset return values |
299 |
my ( $marcrecord ) = MarcToUTF8Record( $raw, $marcflavour, $encoding ); #ignores charset return values |
| 300 |
|
300 |
|
|
|
301 |
SetUTF8Flag($marcrecord); |
| 301 |
return $marcrecord; |
302 |
return $marcrecord; |
| 302 |
} |
303 |
} |
| 303 |
|
304 |
|
| 304 |
- |
|
|