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

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

Return to bug 6679