Lines 1016-1022
subtest 'get_volumes_query' => sub {
Link Here
|
1016 |
}; |
1016 |
}; |
1017 |
|
1017 |
|
1018 |
subtest 'generate_marc_host_field' => sub { |
1018 |
subtest 'generate_marc_host_field' => sub { |
1019 |
plan tests => 35; |
1019 |
plan tests => 36; |
1020 |
|
1020 |
|
1021 |
$schema->storage->txn_begin; |
1021 |
$schema->storage->txn_begin; |
1022 |
|
1022 |
|
Lines 1101-1106
subtest 'generate_marc_host_field' => sub {
Link Here
|
1101 |
$link = $biblio->generate_marc_host_field(); |
1101 |
$link = $biblio->generate_marc_host_field(); |
1102 |
is( $link->subfield('t'), 'The capital test', "Title is capitalized after indicator offset" ); |
1102 |
is( $link->subfield('t'), 'The capital test', "Title is capitalized after indicator offset" ); |
1103 |
|
1103 |
|
|
|
1104 |
# 240 uniform title tests |
1105 |
$record->append_fields( |
1106 |
MARC::Field->new( '240', '1', '0', 'a' => 'Bible. English', 'l' => 'English' ) |
1107 |
); |
1108 |
($biblio_id) = AddBiblio( $record, qw{} ); |
1109 |
$biblio = Koha::Biblios->find($biblio_id); |
1110 |
$link = $biblio->generate_marc_host_field(); |
1111 |
is( $link->subfield('s'), 'Bible. English', "Subfield s contains uniform title from 240a" ); |
1112 |
|
1104 |
# 260/264 handling tests |
1113 |
# 260/264 handling tests |
1105 |
$record->append_fields( |
1114 |
$record->append_fields( |
1106 |
MARC::Field->new( '264', '', '', a => 'Publication 264' ), |
1115 |
MARC::Field->new( '264', '', '', a => 'Publication 264' ), |
1107 |
- |
|
|