[open-ils-commits] r9526 - branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-05-07 16:45:43 -0400 (Wed, 07 May 2008)
New Revision: 9526

Modified:
   branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
applying empty tcn check on marc overlay api call as well

Modified: branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2008-05-07 20:40:13 UTC (rev 9525)
+++ branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2008-05-07 20:45:43 UTC (rev 9526)
@@ -217,7 +217,7 @@
 
 	    return $evt if $evt;
 
-		$rec->tcn_value($tcn);
+		$rec->tcn_value($tcn) if ($tcn);
 		$rec->tcn_source($tsource);
 
     } else {