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

(-)a/C4/Breeding.pm (-6 / +4 lines)
Lines 430-438 sub ImportBreedingAuth { Link Here
430
    my $batch_id = GetZ3950BatchId($filename);
430
    my $batch_id = GetZ3950BatchId($filename);
431
    my $searchbreeding = $dbh->prepare("select import_record_id from import_auths where control_number=? and authorized_heading=?");
431
    my $searchbreeding = $dbh->prepare("select import_record_id from import_auths where control_number=? and authorized_heading=?");
432
432
433
#     $encoding = C4::Context->preference("marcflavour") unless $encoding;
433
    my $marcflavour = C4::Context->preference('marcflavour');
434
    my $marc_type = C4::Context->preference('marcflavour');
434
    my $marc_type = $marcflavour eq 'UNIMARC' ? 'AUTHUNIMARC' : $marcflavour;
435
    $marc_type .= 'AUTH' if ($marc_type eq 'UNIMARC');
436
435
437
    # fields used for import results
436
    # fields used for import results
438
    my $imported=0;
437
    my $imported=0;
Lines 545-552 sub Z3950SearchAuth { Link Here
545
    my $query;
544
    my $query;
546
    my $nterms=0;
545
    my $nterms=0;
547
546
548
    my $marc_type = C4::Context->preference('marcflavour');
547
    my $marcflavour = C4::Context->preference('marcflavour');
549
    $marc_type .= 'AUTH' if ($marc_type eq 'UNIMARC');
548
    my $marc_type = $marcflavour eq 'UNIMARC' ? 'AUTHUNIMARC' : $marcflavour;
550
549
551
    if ($nameany) {
550
    if ($nameany) {
552
        $query .= " \@attr 1=1002 \"$nameany\" "; #Any name (this includes personal, corporate, meeting/conference authors, and author names in subject headings)
551
        $query .= " \@attr 1=1002 \"$nameany\" "; #Any name (this includes personal, corporate, meeting/conference authors, and author names in subject headings)
553
- 

Return to bug 13296