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 |
- |
|
|