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