From 13b624d6213e4c6af2093873cd1f1cd5de5eba6e Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 7 May 2008 20:46:49 +0000
Subject: [PATCH] applying empty tcn check on marc overlay api call as well

git-svn-id: svn://svn.open-ils.org/ILS/trunk@9527 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 5f3b497a62..ef07d41aa3 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -217,7 +217,7 @@ sub biblio_record_replace_marc  {
 
 	    return $evt if $evt;
 
-		$rec->tcn_value($tcn);
+		$rec->tcn_value($tcn) if ($tcn);
 		$rec->tcn_source($tsource);
 
     } else {
-- 
2.43.2