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 |
return if ($@); |
81 |
$record->encoding('UTF-8'); |
81 |
$record->encoding('UTF-8'); |
82 |
|
82 |
|
83 |
my $self = $class->SUPER::new( { authid => $authid, |
83 |
my $self = $class->SUPER::new( { authid => $authid, |
84 |
- |
|
|