|
Lines 467-473
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 467 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
467 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
| 468 |
is($results_hashref->{biblioserver}->{hits}, 19, "getRecords generated keyword search for 'salud' matched right number of records"); |
468 |
is($results_hashref->{biblioserver}->{hits}, 19, "getRecords generated keyword search for 'salud' matched right number of records"); |
| 469 |
|
469 |
|
| 470 |
my @newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 18, 0, 0, |
470 |
my @newresults = searchResults({'interface' => 'opac'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 18, 0, 0, |
| 471 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
471 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 472 |
is(scalar @newresults,18, "searchResults returns requested number of hits"); |
472 |
is(scalar @newresults,18, "searchResults returns requested number of hits"); |
| 473 |
|
473 |
|
|
Lines 549-555
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 549 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
549 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
| 550 |
is($results_hashref->{biblioserver}->{hits}, 26, "getRecords generated availability-limited search matched right number of records"); |
550 |
is($results_hashref->{biblioserver}->{hits}, 26, "getRecords generated availability-limited search matched right number of records"); |
| 551 |
|
551 |
|
| 552 |
@newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
552 |
@newresults = searchResults({'interface'=>'opac'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
| 553 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
553 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 554 |
my $allavailable = 'true'; |
554 |
my $allavailable = 'true'; |
| 555 |
foreach my $result (@newresults) { |
555 |
foreach my $result (@newresults) { |
|
Lines 681-687
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 681 |
# Let's just test a few other bits and bobs, just for fun |
681 |
# Let's just test a few other bits and bobs, just for fun |
| 682 |
|
682 |
|
| 683 |
($error, $results_hashref, $facets_loop) = getRecords("Godzina pąsowej róży","Godzina pąsowej róży",[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
683 |
($error, $results_hashref, $facets_loop) = getRecords("Godzina pąsowej róży","Godzina pąsowej róży",[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
| 684 |
@newresults = searchResults('intranet', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
684 |
@newresults = searchResults({'interface'=>'intranet'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
| 685 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
685 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 686 |
is($newresults[0]->{'alternateholdings_count'}, 1, 'Alternate holdings filled in correctly'); |
686 |
is($newresults[0]->{'alternateholdings_count'}, 1, 'Alternate holdings filled in correctly'); |
| 687 |
|
687 |
|
|
Lines 700-706
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 700 |
}); |
700 |
}); |
| 701 |
|
701 |
|
| 702 |
($error, $results_hashref, $facets_loop) = getRecords("TEST12121212","TEST12121212",[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
702 |
($error, $results_hashref, $facets_loop) = getRecords("TEST12121212","TEST12121212",[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
| 703 |
@newresults = searchResults('intranet', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
703 |
@newresults = searchResults({'interface'=>'intranet'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
| 704 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
704 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 705 |
ok(!exists($newresults[0]->{norequests}), 'presence of a transit does not block hold request action (bug 10741)'); |
705 |
ok(!exists($newresults[0]->{norequests}), 'presence of a transit does not block hold request action (bug 10741)'); |
| 706 |
|
706 |
|
|
Lines 708-714
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 708 |
( undef, $results_hashref, $facets_loop ) = |
708 |
( undef, $results_hashref, $facets_loop ) = |
| 709 |
getRecords('ti:punctuation', 'punctuation', [], [ 'biblioserver' ], '19', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
709 |
getRecords('ti:punctuation', 'punctuation', [], [ 'biblioserver' ], '19', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
| 710 |
is($results_hashref->{biblioserver}->{hits}, 1, "search for ti:punctuation returned expected number of records"); |
710 |
is($results_hashref->{biblioserver}->{hits}, 1, "search for ti:punctuation returned expected number of records"); |
| 711 |
@newresults = searchResults('intranet', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 20, 0, 0, |
711 |
@newresults = searchResults({'interface' =>'intranet'} , $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 20, 0, 0, |
| 712 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
712 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 713 |
is(scalar(@newresults), 0, 'a record that cannot be parsed by MARC::Record is simply skipped (bug 10684)'); |
713 |
is(scalar(@newresults), 0, 'a record that cannot be parsed by MARC::Record is simply skipped (bug 10684)'); |
| 714 |
|
714 |
|
|
Lines 843-849
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 843 |
( undef, $results_hashref, $facets_loop ) = |
843 |
( undef, $results_hashref, $facets_loop ) = |
| 844 |
getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
844 |
getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
| 845 |
is($results_hashref->{biblioserver}->{hits}, 1, "Can do a search that retrieves an over-large bib record (bug 11096)"); |
845 |
is($results_hashref->{biblioserver}->{hits}, 1, "Can do a search that retrieves an over-large bib record (bug 11096)"); |
| 846 |
@newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 10, 0, 0, |
846 |
@newresults = searchResults({'interface' =>'opac'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 10, 0, 0, |
| 847 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
847 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 848 |
is($newresults[0]->{title}, 'Marc the Large Record', 'Able to render the title for over-large bib record (bug 11096)'); |
848 |
is($newresults[0]->{title}, 'Marc the Large Record', 'Able to render the title for over-large bib record (bug 11096)'); |
| 849 |
is($newresults[0]->{biblionumber}, '300', 'Over-large bib record has the correct biblionumber (bug 11096)'); |
849 |
is($newresults[0]->{biblionumber}, '300', 'Over-large bib record has the correct biblionumber (bug 11096)'); |
| 850 |
- |
|
|