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

(-)a/C4/Ris.pm (-4 / +6 lines)
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
- 

Return to bug 14245