applying empty tcn check on marc overlay api call as well
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 7 May 2008 20:46:49 +0000 (20:46 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 7 May 2008 20:46:49 +0000 (20:46 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@9527 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Cat.pm

index 5f3b497..ef07d41 100644 (file)
@@ -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 {