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

[svn at svn.open-ils.org]

Author: miker
Date: 2008-05-07 14:25:42 -0400 (Wed, 07 May 2008)
New Revision: 9522

Modified:
   branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
do not record emtpy tcn values

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 18:17:58 UTC (rev 9521)
+++ branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2008-05-07 18:25:42 UTC (rev 9522)
@@ -292,7 +292,7 @@
 
 	$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');