864 |
[ '1-55860-701-3', '1-55860-701-3' ], |
[ '1-55860-701-3', '1-55860-701-3' ], |
865 |
'isbn_10' ); |
'isbn_10' ); |
866 |
|
|
867 |
|
# frec |
868 |
|
|
869 |
|
my $rec = { |
870 |
|
'200' => [ { |
871 |
|
a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], |
872 |
|
subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ], |
873 |
|
}, { |
874 |
|
a => [ 'a3', 'a4', 'a5' ], b => 'b3', c => 'c3', |
875 |
|
subfields => [ qw/a 0 a 1 b 0 c 0 a 2/ ], |
876 |
|
} ], |
877 |
|
}; |
878 |
|
|
879 |
|
test_rule( 'frec', $rec, qq{ frec(200) }, [ 'a1' ] ); |
880 |
|
test_rule( 'frec', $rec, qq{ frec(200,'a') }, [ 'a1' ] ); |
881 |
|
test_rule( 'frec', $rec, qq{ frec(200,'b') }, [ 'b1' ] ); |
882 |
|
test_rule( 'frec', $rec, qq{ frec(200,'c') }, [ 'c1' ] ); |
883 |
|
|
884 |
# marc_template |
# marc_template |
885 |
|
|
886 |
test_rec_rules( |
test_rec_rules( |