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

(-)a/C4/AuthoritiesMarc.pm (-3 / +2 lines)
Lines 854-860 sub GetAuthority { Link Here
854
    my ($authtypecode, $marcxml) = $sth->fetchrow;
854
    my ($authtypecode, $marcxml) = $sth->fetchrow;
855
    my $record=eval {MARC::Record->new_from_xml(StripNonXmlChars($marcxml),'UTF-8',
855
    my $record=eval {MARC::Record->new_from_xml(StripNonXmlChars($marcxml),'UTF-8',
856
        (C4::Context->preference("marcflavour") eq "UNIMARC"?"UNIMARCAUTH":C4::Context->preference("marcflavour")))};
856
        (C4::Context->preference("marcflavour") eq "UNIMARC"?"UNIMARCAUTH":C4::Context->preference("marcflavour")))};
857
    return undef if ($@);
857
    return if ($@);
858
    $record->encoding('UTF-8');
858
    $record->encoding('UTF-8');
859
    if (C4::Context->preference("marcflavour") eq "MARC21") {
859
    if (C4::Context->preference("marcflavour") eq "MARC21") {
860
      my ($auth_type_tag, $auth_type_subfield) = get_auth_type_location($authtypecode);
860
      my ($auth_type_tag, $auth_type_subfield) = get_auth_type_location($authtypecode);
Lines 1192-1198 sub BuildUnimarcHierarchy{ Link Here
1192
  my $record = shift @_;
1192
  my $record = shift @_;
1193
  my $class = shift @_;
1193
  my $class = shift @_;
1194
  my $authid_constructed = shift @_;
1194
  my $authid_constructed = shift @_;
1195
  return undef unless ($record);
1195
  return unless ($record);
1196
  my $authid=$record->field('001')->data();
1196
  my $authid=$record->field('001')->data();
1197
  my %cell;
1197
  my %cell;
1198
  my $parents=""; my $children="";
1198
  my $parents=""; my $children="";
1199
- 

Return to bug 6679