|
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' ? 'UNIMARCAUTH' : $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' ? 'UNIMARCAUTH' : $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 |
- |
|
|