use_ok("MARC::Field");
use_ok("MARC::Record");
-use_ok("C4::MarcModificationTemplates");
+use_ok('C4::MarcModificationTemplates', qw( AddModificationTemplate AddModificationTemplateAction GetModificationTemplateAction GetModificationTemplateActions ModModificationTemplateAction MoveModificationTemplateAction DelModificationTemplate DelModificationTemplateAction ModifyRecordWithTemplate GetModificationTemplates ));
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
$record->leader('03174nam a2200445 a 4500');
my @fields = (
MARC::Field->new(
+ 100, '1', ' ',
+ a => 'Knuth, Donald Ervin',
+ d => '1938',
+ ),
+ MARC::Field->new(
245, '1', '4',
0 => '12345',
a => 'The art of computer programming',
9 => '462',
),
MARC::Field->new(
- 600, '1', ' ',
- a => 'Knuth, Donald Ervin',
- d => '1938',
+ 600, ' ', ' ',
0 => 'TestUpdated',
),
MARC::Field->new(
0 => 'TestUpdated',
),
MARC::Field->new(
- 100, '1', ' ',
- a => 'Knuth, Donald Ervin',
- d => '1938',
+ 100, ' ', ' ',
0 => 'TestUpdated',
),
MARC::Field->new(
0 => 'TestUpdated',
),
MARC::Field->new(
- 700, '1', '4',
+ 700, ' ', ' ',
0 => '12345',
- a => 'The art of computer programming',
- c => 'Donald E. Knuth.',
),
);
$record->append_fields(@fields);