Lines 65-70
package C4::Ris;
Link Here
|
65 |
use List::MoreUtils qw/uniq/; |
65 |
use List::MoreUtils qw/uniq/; |
66 |
use vars qw($VERSION @ISA @EXPORT); |
66 |
use vars qw($VERSION @ISA @EXPORT); |
67 |
|
67 |
|
|
|
68 |
|
68 |
# set the version for version checking |
69 |
# set the version for version checking |
69 |
$VERSION = 3.07.00.049; |
70 |
$VERSION = 3.07.00.049; |
70 |
|
71 |
|
Lines 87-98
C<$record> - a MARC::Record object
Link Here
|
87 |
|
88 |
|
88 |
=cut |
89 |
=cut |
89 |
|
90 |
|
|
|
91 |
my $intype; |
92 |
|
90 |
sub marc2ris { |
93 |
sub marc2ris { |
91 |
my ($record) = @_; |
94 |
my ($record) = @_; |
92 |
my $output; |
95 |
my $output; |
93 |
|
96 |
|
94 |
my $marcflavour = C4::Context->preference("marcflavour"); |
97 |
my $marcflavour = C4::Context->preference("marcflavour"); |
95 |
my $intype = lc($marcflavour); |
98 |
$intype = lc($marcflavour); |
96 |
my $marcprint = 0; # Debug flag; |
99 |
my $marcprint = 0; # Debug flag; |
97 |
|
100 |
|
98 |
# Let's redirect stdout |
101 |
# Let's redirect stdout |
Lines 409-415
sub normalize_author {
Link Here
|
409 |
|
412 |
|
410 |
## we currently ignore subfield c until someone complains |
413 |
## we currently ignore subfield c until someone complains |
411 |
if (length($rawauthorb) > 0) { |
414 |
if (length($rawauthorb) > 0) { |
412 |
return join ",", ($rawauthora, $rawauthorb); |
415 |
return join ", ", ($rawauthora, $rawauthorb); |
413 |
} |
416 |
} |
414 |
else { |
417 |
else { |
415 |
return $rawauthora; |
418 |
return $rawauthora; |
Lines 448-454
sub get_author {
Link Here
|
448 |
normalize_author($authorname, $authorfield->subfield('b'), $authorfield->subfield('c'), $authorfield->indicator("$indicator")); |
451 |
normalize_author($authorname, $authorfield->subfield('b'), $authorfield->subfield('c'), $authorfield->indicator("$indicator")); |
449 |
} |
452 |
} |
450 |
else { |
453 |
else { |
451 |
normalize_author($authorfield->subfield('a'), $authorfield->subfield('b'), $authorfield->subfield('c'), $authorfield->indicator("$indicator")); |
454 |
normalize_author($authorfield->subfield('a') // '', $authorfield->subfield('b') // '', $authorfield->subfield('c') // '', $authorfield->indicator("$indicator")); |
452 |
} |
455 |
} |
453 |
} |
456 |
} |
454 |
|
457 |
|
455 |
- |
|
|