View | Details | Raw Unified | Return to bug 9516
Collapse All | Expand All

(-)a/opac/opac-search.pl (-3 / +5 lines)
Lines 472-479 if ($tag) { Link Here
472
    $query_cgi = "tag=" .$tag . "&" . $query_cgi;
472
    $query_cgi = "tag=" .$tag . "&" . $query_cgi;
473
    my $taglist = get_tags({term=>$tag, approved=>1});
473
    my $taglist = get_tags({term=>$tag, approved=>1});
474
    $results_hashref->{biblioserver}->{hits} = scalar (@$taglist);
474
    $results_hashref->{biblioserver}->{hits} = scalar (@$taglist);
475
    my @biblist  = (map {GetBiblioData($_->{biblionumber})} @$taglist);
475
    my @marclist;
476
    my @marclist = (map {$_->{marc}} @biblist );
476
    foreach my $record (@$taglist) {
477
        my $marc = GetMarcBiblio($record->{biblionumber}, 1);
478
        push @marclist, $marc->as_usmarc();
479
    }
477
    $DEBUG and printf STDERR "taglist (%s biblionumber)\nmarclist (%s records)\n", scalar(@$taglist), scalar(@marclist);
480
    $DEBUG and printf STDERR "taglist (%s biblionumber)\nmarclist (%s records)\n", scalar(@$taglist), scalar(@marclist);
478
    $results_hashref->{biblioserver}->{RECORDS} = \@marclist;
481
    $results_hashref->{biblioserver}->{RECORDS} = \@marclist;
479
    # FIXME: tag search and standard search should work together, not exclusively
482
    # FIXME: tag search and standard search should work together, not exclusively
480
- 

Return to bug 9516