|
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 |
- |
|
|