Lines 94-105
C<$record> - a MARC::Record object
Link Here
|
94 |
|
94 |
|
95 |
=cut |
95 |
=cut |
96 |
|
96 |
|
|
|
97 |
my $intype; |
98 |
|
97 |
sub marc2ris { |
99 |
sub marc2ris { |
98 |
my ($record) = @_; |
100 |
my ($record) = @_; |
99 |
my $output; |
101 |
my $output; |
100 |
|
102 |
|
101 |
my $marcflavour = C4::Context->preference("marcflavour"); |
103 |
my $marcflavour = C4::Context->preference("marcflavour"); |
102 |
my $intype = lc($marcflavour); |
104 |
$intype = lc($marcflavour); |
103 |
my $marcprint = 0; # Debug flag; |
105 |
my $marcprint = 0; # Debug flag; |
104 |
|
106 |
|
105 |
# Let's redirect stdout |
107 |
# Let's redirect stdout |
Lines 457-463
sub normalize_author {
Link Here
|
457 |
|
459 |
|
458 |
## we currently ignore subfield c until someone complains |
460 |
## we currently ignore subfield c until someone complains |
459 |
if (length($rawauthorb) > 0) { |
461 |
if (length($rawauthorb) > 0) { |
460 |
return join ",", ($rawauthora, $rawauthorb); |
462 |
return join ", ", ($rawauthora, $rawauthorb); |
461 |
} |
463 |
} |
462 |
else { |
464 |
else { |
463 |
return $rawauthora; |
465 |
return $rawauthora; |
Lines 496-502
sub get_author {
Link Here
|
496 |
normalize_author($authorname, $authorfield->subfield('b'), $authorfield->subfield('c'), $authorfield->indicator("$indicator")); |
498 |
normalize_author($authorname, $authorfield->subfield('b'), $authorfield->subfield('c'), $authorfield->indicator("$indicator")); |
497 |
} |
499 |
} |
498 |
else { |
500 |
else { |
499 |
normalize_author($authorfield->subfield('a'), $authorfield->subfield('b'), $authorfield->subfield('c'), $authorfield->indicator("$indicator")); |
501 |
normalize_author($authorfield->subfield('a') // '', $authorfield->subfield('b') // '', $authorfield->subfield('c') // '', $authorfield->indicator("$indicator")); |
500 |
} |
502 |
} |
501 |
} |
503 |
} |
502 |
|
504 |
|
503 |
- |
|
|