Lines 22-28
use Modern::Perl;
Link Here
|
22 |
use base 'Class::Accessor'; |
22 |
use base 'Class::Accessor'; |
23 |
|
23 |
|
24 |
use C4::Charset qw( MarcToUTF8Record ); |
24 |
use C4::Charset qw( MarcToUTF8Record ); |
25 |
use C4::Koha qw(); # Purely for GetNormalizedISBN |
25 |
use C4::Koha qw( GetNormalizedISBN ); |
26 |
use C4::Search qw(); # Purely for new_record_from_zebra |
26 |
use C4::Search qw(); # Purely for new_record_from_zebra |
27 |
use DBIx::Class::ResultClass::HashRefInflator; |
27 |
use DBIx::Class::ResultClass::HashRefInflator; |
28 |
use IO::Select; |
28 |
use IO::Select; |
29 |
- |
|
|