LP#1776954 Avoid empty string for tcn_source
[Evergreen.git] / Open-ILS / src / perlmods / lib / OpenILS / Application / Cat / BibCommon.pm
index c461dba..3f2cfbc 100644 (file)
@@ -107,7 +107,7 @@ sub biblio_record_xml_import {
     my $record = Fieldmapper::biblio::record_entry->new;
 
     $record->source(bib_source_from_name($source)) if $source;
-    $record->tcn_source($tcn_source);
+    $record->tcn_source($tcn_source) if $tcn_source;
     $record->tcn_value($tcn) if ($tcn);
     $record->creator($e->requestor->id);
     $record->editor($e->requestor->id);