From 2133904631e558205567d92c895ceb468bf78f6e Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 7 May 2008 18:17:37 +0000
Subject: [PATCH] do not record emtpy tcn
 valuesOpen-ILS/src/perlmods/OpenILS/Application/Cat.pm

git-svn-id: svn://svn.open-ils.org/ILS/trunk@9520 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index d3eeb1f562..5f3b497a62 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -292,7 +292,7 @@ sub biblio_record_xml_import {
 
 	$record->source(bib_source_from_name($source)) if $source;
 	$record->tcn_source($tcn_source);
-	$record->tcn_value($tcn);
+	$record->tcn_value($tcn) if ($tcn);
 	$record->creator($e->requestor->id);
 	$record->editor($e->requestor->id);
 	$record->create_date('now');
-- 
2.43.2