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