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

(-)a/Koha/Authority.pm (-1 / +1 lines)
Lines 77-83 sub get_from_authid { Link Here
77
    my ($authtypecode, $marcxml) = $sth->fetchrow;
77
    my ($authtypecode, $marcxml) = $sth->fetchrow;
78
    my $record=eval {MARC::Record->new_from_xml(StripNonXmlChars($marcxml),'UTF-8',
78
    my $record=eval {MARC::Record->new_from_xml(StripNonXmlChars($marcxml),'UTF-8',
79
        (C4::Context->preference("marcflavour") eq "UNIMARC"?"UNIMARCAUTH":C4::Context->preference("marcflavour")))};
79
        (C4::Context->preference("marcflavour") eq "UNIMARC"?"UNIMARCAUTH":C4::Context->preference("marcflavour")))};
80
    return undef if ($@);
80
    return if ($@);
81
    $record->encoding('UTF-8');
81
    $record->encoding('UTF-8');
82
82
83
    my $self = $class->SUPER::new( { authid => $authid,
83
    my $self = $class->SUPER::new( { authid => $authid,
(-)a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm (-2 / +1 lines)
Lines 54-60 sub filter { Link Here
54
    my $record = shift;
54
    my $record = shift;
55
    my $newrecord;
55
    my $newrecord;
56
56
57
    return undef unless defined $record;
57
    return unless defined $record;
58
58
59
    if (ref $record eq 'ARRAY') {
59
    if (ref $record eq 'ARRAY') {
60
        my @recarray;
60
        my @recarray;
61
- 

Return to bug 7417