|
Lines 558-571
subtest 'get_components_query' => sub {
Link Here
|
| 558 |
C4::Biblio::ModBiblio( $record, $biblio->biblionumber ); |
558 |
C4::Biblio::ModBiblio( $record, $biblio->biblionumber ); |
| 559 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
559 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
| 560 |
|
560 |
|
| 561 |
is($biblio->get_components_query, "rcn:$biblionumber AND (bib-level:a OR bib-level:b)", "UseControlNumber enabled without MarcOrgCode"); |
561 |
is($biblio->get_components_query, "(rcn:$biblionumber AND (bib-level:a OR bib-level:b))", "UseControlNumber enabled without MarcOrgCode"); |
| 562 |
|
562 |
|
| 563 |
my $marc_003_field = MARC::Field->new('003', 'OSt'); |
563 |
my $marc_003_field = MARC::Field->new('003', 'OSt'); |
| 564 |
$record->append_fields($marc_003_field); |
564 |
$record->append_fields($marc_003_field); |
| 565 |
C4::Biblio::ModBiblio( $record, $biblio->biblionumber ); |
565 |
C4::Biblio::ModBiblio( $record, $biblio->biblionumber ); |
| 566 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
566 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
| 567 |
|
567 |
|
| 568 |
is($biblio->get_components_query, "((rcn:$biblionumber AND cni:OSt) OR rcn:OSt $biblionumber) AND (bib-level:a OR bib-level:b)", "UseControlNumber enabled with MarcOrgCode"); |
568 |
is($biblio->get_components_query, "(((rcn:$biblionumber AND cni:OSt) OR rcn:\"OSt $biblionumber\") AND (bib-level:a OR bib-level:b))", "UseControlNumber enabled with MarcOrgCode"); |
| 569 |
}; |
569 |
}; |
| 570 |
|
570 |
|
| 571 |
subtest 'orders() and active_orders() tests' => sub { |
571 |
subtest 'orders() and active_orders() tests' => sub { |
| 572 |
- |
|
|