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

(-)a/Koha/Authority.pm (-1 / +3 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
    if ($@) {
81
        return;
82
    }
81
    $record->encoding('UTF-8');
83
    $record->encoding('UTF-8');
82
84
83
    my $self = $class->SUPER::new( { authid => $authid,
85
    my $self = $class->SUPER::new( { authid => $authid,
(-)a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm (-2 / +3 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
    if ( !defined $record ) {
58
        return;
59
    }
58
60
59
    if (ref $record eq 'ARRAY') {
61
    if (ref $record eq 'ARRAY') {
60
        my @recarray;
62
        my @recarray;
61
- 

Return to bug 6679