|
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 |
- |
|
|