Bug 13296: (follow-up) permit grep on AUTHUNIMARC
I would prefer not to hide this "stuff".
Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
(cherry picked from commit fab96202fd)
Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
This commit is contained in:
parent
bb2dcc53dc
commit
6adb84cd20
|
|
@ -430,9 +430,8 @@ sub ImportBreedingAuth {
|
|||
my $batch_id = GetZ3950BatchId($filename);
|
||||
my $searchbreeding = $dbh->prepare("select import_record_id from import_auths where control_number=? and authorized_heading=?");
|
||||
|
||||
# $encoding = C4::Context->preference("marcflavour") unless $encoding;
|
||||
my $marc_type = C4::Context->preference('marcflavour');
|
||||
$marc_type .= 'AUTH' if ($marc_type eq 'UNIMARC');
|
||||
my $marcflavour = C4::Context->preference('marcflavour');
|
||||
my $marc_type = $marcflavour eq 'UNIMARC' ? 'UNIMARCAUTH' : $marcflavour;
|
||||
|
||||
# fields used for import results
|
||||
my $imported=0;
|
||||
|
|
@ -545,8 +544,8 @@ sub Z3950SearchAuth {
|
|||
my $query;
|
||||
my $nterms=0;
|
||||
|
||||
my $marc_type = C4::Context->preference('marcflavour');
|
||||
$marc_type .= 'AUTH' if ($marc_type eq 'UNIMARC');
|
||||
my $marcflavour = C4::Context->preference('marcflavour');
|
||||
my $marc_type = $marcflavour eq 'UNIMARC' ? 'UNIMARCAUTH' : $marcflavour;
|
||||
|
||||
if ($nameany) {
|
||||
$query .= " \@attr 1=1002 \"$nameany\" "; #Any name (this includes personal, corporate, meeting/conference authors, and author names in subject headings)
|
||||
|
|
|
|||
Loading…
Reference in New Issue