[open-ils-commits] r7931 - trunk/Open-ILS/src/extras/import

[svn at svn.open-ils.org]

Author: miker
Date: 2007-10-25 16:42:50 -0400 (Thu, 25 Oct 2007)
New Revision: 7931

Modified:
   trunk/Open-ILS/src/extras/import/marc2bre.pl
Log:
checking for duplicate 001; adding record id to 901$c

Modified: trunk/Open-ILS/src/extras/import/marc2bre.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/marc2bre.pl	2007-10-25 16:10:54 UTC (rev 7930)
+++ trunk/Open-ILS/src/extras/import/marc2bre.pl	2007-10-25 20:42:50 UTC (rev 7931)
@@ -144,6 +144,9 @@
 
 	my $tcn;
 	($rec, $tcn) = preprocess($rec);
+
+    $tcn->add_subfields(c => $id);
+
 	$rec->delete_field( $_ ) for ($rec->field($id_field));
 	$rec->append_fields( $tcn );
 
@@ -192,6 +195,7 @@
 	if (!$id) {
 		my $f = $rec->field('001');
 		$id = $f->data if ($f);
+        $id = '' if ($dontuse_id{$id});
 	}
 
 	if (!$id || $dontuse_id{$source.$id}) {