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

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

Return to bug 14245