Lines 501-507
if ($tag) {
Link Here
|
501 |
my $taglist = get_tags({term=>$tag, approved=>1}); |
501 |
my $taglist = get_tags({term=>$tag, approved=>1}); |
502 |
$results_hashref->{biblioserver}->{hits} = scalar (@$taglist); |
502 |
$results_hashref->{biblioserver}->{hits} = scalar (@$taglist); |
503 |
my @biblist = (map {GetBiblioData($_->{biblionumber})} @$taglist); |
503 |
my @biblist = (map {GetBiblioData($_->{biblionumber})} @$taglist); |
504 |
my @marclist = (map {$_->{marc}} @biblist ); |
504 |
my @marclist = (map { (C4::Context->config('zebra_bib_index_mode') eq 'dom')? $_->{marcxml}: $_->{marc}; } @biblist); |
505 |
$DEBUG and printf STDERR "taglist (%s biblionumber)\nmarclist (%s records)\n", scalar(@$taglist), scalar(@marclist); |
505 |
$DEBUG and printf STDERR "taglist (%s biblionumber)\nmarclist (%s records)\n", scalar(@$taglist), scalar(@marclist); |
506 |
$results_hashref->{biblioserver}->{RECORDS} = \@marclist; |
506 |
$results_hashref->{biblioserver}->{RECORDS} = \@marclist; |
507 |
# FIXME: tag search and standard search should work together, not exclusively |
507 |
# FIXME: tag search and standard search should work together, not exclusively |
508 |
- |
|
|