|
Lines 20-26
subtest 'set_additional_fields with marcfield_mode = "get"' => sub {
Link Here
|
| 20 |
my $biblio = $builder->build_sample_biblio(); |
20 |
my $biblio = $builder->build_sample_biblio(); |
| 21 |
my $record = $biblio->record; |
21 |
my $record = $biblio->record; |
| 22 |
$record->append_fields( |
22 |
$record->append_fields( |
| 23 |
MARC::Field->new('999', '', '', 'Z' => 'some value'), |
23 |
MARC::Field->new('998', '', '', 'Z' => 'some value'), |
| 24 |
); |
24 |
); |
| 25 |
$biblio->metadata->metadata($record->as_xml_record(C4::Context->preference('marcflavour'))); |
25 |
$biblio->metadata->metadata($record->as_xml_record(C4::Context->preference('marcflavour'))); |
| 26 |
$biblio->metadata->store()->discard_changes(); |
26 |
$biblio->metadata->store()->discard_changes(); |
|
Lines 35-41
subtest 'set_additional_fields with marcfield_mode = "get"' => sub {
Link Here
|
| 35 |
{ |
35 |
{ |
| 36 |
tablename => 'subscription', |
36 |
tablename => 'subscription', |
| 37 |
name => random_string('c' x 100), |
37 |
name => random_string('c' x 100), |
| 38 |
marcfield => '999$Z', |
38 |
marcfield => '998$Z', |
| 39 |
marcfield_mode => 'get', |
39 |
marcfield_mode => 'get', |
| 40 |
} |
40 |
} |
| 41 |
); |
41 |
); |
| 42 |
- |
|
|