|
Lines 417-423
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 417 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
417 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
| 418 |
is($results_hashref->{biblioserver}->{hits}, 19, "getRecords generated keyword search for 'salud' matched right number of records"); |
418 |
is($results_hashref->{biblioserver}->{hits}, 19, "getRecords generated keyword search for 'salud' matched right number of records"); |
| 419 |
|
419 |
|
| 420 |
my @newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 18, 0, 0, |
420 |
my @newresults = searchResults({'interface' => 'opac'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 18, 0, 0, |
| 421 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
421 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 422 |
is(scalar @newresults,18, "searchResults returns requested number of hits"); |
422 |
is(scalar @newresults,18, "searchResults returns requested number of hits"); |
| 423 |
|
423 |
|
|
Lines 499-505
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 499 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
499 |
($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
| 500 |
is($results_hashref->{biblioserver}->{hits}, 26, "getRecords generated availability-limited search matched right number of records"); |
500 |
is($results_hashref->{biblioserver}->{hits}, 26, "getRecords generated availability-limited search matched right number of records"); |
| 501 |
|
501 |
|
| 502 |
@newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
502 |
@newresults = searchResults({'interface'=>'opac'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
| 503 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
503 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 504 |
my $allavailable = 'true'; |
504 |
my $allavailable = 'true'; |
| 505 |
foreach my $result (@newresults) { |
505 |
foreach my $result (@newresults) { |
|
Lines 637-643
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 637 |
# Let's just test a few other bits and bobs, just for fun |
637 |
# Let's just test a few other bits and bobs, just for fun |
| 638 |
|
638 |
|
| 639 |
($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); |
639 |
($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); |
| 640 |
@newresults = searchResults('intranet', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
640 |
@newresults = searchResults({'interface'=>'intranet'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
| 641 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
641 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 642 |
is($newresults[0]->{'alternateholdings_count'}, 1, 'Alternate holdings filled in correctly'); |
642 |
is($newresults[0]->{'alternateholdings_count'}, 1, 'Alternate holdings filled in correctly'); |
| 643 |
|
643 |
|
|
Lines 656-662
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 656 |
}); |
656 |
}); |
| 657 |
|
657 |
|
| 658 |
($error, $results_hashref, $facets_loop) = getRecords("TEST12121212","TEST12121212",[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
658 |
($error, $results_hashref, $facets_loop) = getRecords("TEST12121212","TEST12121212",[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0); |
| 659 |
@newresults = searchResults('intranet', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
659 |
@newresults = searchResults({'interface'=>'intranet'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
| 660 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
660 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 661 |
ok(!exists($newresults[0]->{norequests}), 'presence of a transit does not block hold request action (bug 10741)'); |
661 |
ok(!exists($newresults[0]->{norequests}), 'presence of a transit does not block hold request action (bug 10741)'); |
| 662 |
|
662 |
|
|
Lines 664-670
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 664 |
( undef, $results_hashref, $facets_loop ) = |
664 |
( undef, $results_hashref, $facets_loop ) = |
| 665 |
getRecords('ti:punctuation', 'punctuation', [], [ 'biblioserver' ], '19', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
665 |
getRecords('ti:punctuation', 'punctuation', [], [ 'biblioserver' ], '19', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
| 666 |
is($results_hashref->{biblioserver}->{hits}, 1, "search for ti:punctuation returned expected number of records"); |
666 |
is($results_hashref->{biblioserver}->{hits}, 1, "search for ti:punctuation returned expected number of records"); |
| 667 |
warning_like { @newresults = searchResults('intranet', $query_desc, |
667 |
warning_like { @newresults = searchResults({'intranet' => 'intranet'}, $query_desc, |
| 668 |
$results_hashref->{'biblioserver'}->{'hits'}, 20, 0, 0, |
668 |
$results_hashref->{'biblioserver'}->{'hits'}, 20, 0, 0, |
| 669 |
$results_hashref->{'biblioserver'}->{"RECORDS"}) } |
669 |
$results_hashref->{'biblioserver'}->{"RECORDS"}) } |
| 670 |
qr/^ERROR DECODING RECORD - Tag "50%" is not a valid tag/, |
670 |
qr/^ERROR DECODING RECORD - Tag "50%" is not a valid tag/, |
|
Lines 802-808
if ( $indexing_mode eq 'dom' ) {
Link Here
|
| 802 |
( undef, $results_hashref, $facets_loop ) = |
802 |
( undef, $results_hashref, $facets_loop ) = |
| 803 |
getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
803 |
getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
| 804 |
is($results_hashref->{biblioserver}->{hits}, 1, "Can do a search that retrieves an over-large bib record (bug 11096)"); |
804 |
is($results_hashref->{biblioserver}->{hits}, 1, "Can do a search that retrieves an over-large bib record (bug 11096)"); |
| 805 |
@newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 10, 0, 0, |
805 |
@newresults = searchResults({'interface' =>'opac'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 10, 0, 0, |
| 806 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
806 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 807 |
is($newresults[0]->{title}, 'Marc the Large Record', 'Able to render the title for over-large bib record (bug 11096)'); |
807 |
is($newresults[0]->{title}, 'Marc the Large Record', 'Able to render the title for over-large bib record (bug 11096)'); |
| 808 |
is($newresults[0]->{biblionumber}, '300', 'Over-large bib record has the correct biblionumber (bug 11096)'); |
808 |
is($newresults[0]->{biblionumber}, '300', 'Over-large bib record has the correct biblionumber (bug 11096)'); |
| 809 |
- |
|
|