|
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( MARC::Field->new( '240', '1', '0', 'a' => 'Bible. English', 'l' => 'English' ) ); |
| 1106 |
($biblio_id) = AddBiblio( $record, qw{} ); |
| 1107 |
$biblio = Koha::Biblios->find($biblio_id); |
| 1108 |
$link = $biblio->generate_marc_host_field(); |
| 1109 |
is( $link->subfield('s'), 'Bible. English', "Subfield s contains uniform title from 240a" ); |
| 1110 |
|
| 1104 |
# 260/264 handling tests |
1111 |
# 260/264 handling tests |
| 1105 |
$record->append_fields( |
1112 |
$record->append_fields( |
| 1106 |
MARC::Field->new( '264', '', '', a => 'Publication 264' ), |
1113 |
MARC::Field->new( '264', '', '', a => 'Publication 264' ), |
| 1107 |
- |
|
|