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

(-)C4/AuthoritiesMarc.pm (-1 / +1 lines)
Lines 900-906 Link Here
900
        $_->[1]=~s/$filtervalues/ /g; $query.= " and he,wrdl=\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/);
900
        $_->[1]=~s/$filtervalues/ /g; $query.= " and he,wrdl=\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/);
901
      }
901
      }
902
    }
902
    }
903
    my ($error, $results, $total_hits)=SimpleSearch( $query, 0, 1, [ "authorityserver" ] );
903
    my ($error, $results, $total_hits) = C4::Search::SimpleSearch( $query, 0, 1, [ "authorityserver" ] );
904
    # there is at least 1 result => return the 1st one
904
    # there is at least 1 result => return the 1st one
905
    if (@$results>0) {
905
    if (@$results>0) {
906
      my $marcrecord = MARC::File::USMARC::decode($results->[0]);
906
      my $marcrecord = MARC::File::USMARC::decode($results->[0]);

Return to bug 5243