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