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

[svn at svn.open-ils.org]

Author: dbs
Date: 2008-02-22 19:32:45 -0500 (Fri, 22 Feb 2008)
New Revision: 8829

Modified:
   trunk/Open-ILS/src/extras/import/marc2bre.pl
Log:
Enable custom specified ID to be retained in preprocess subroutine


Modified: trunk/Open-ILS/src/extras/import/marc2bre.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/marc2bre.pl	2008-02-22 22:49:31 UTC (rev 8828)
+++ trunk/Open-ILS/src/extras/import/marc2bre.pl	2008-02-23 00:32:45 UTC (rev 8829)
@@ -166,7 +166,7 @@
 	}
 
 	my $tcn;
-	($rec, $tcn) = preprocess($rec);
+	($rec, $tcn) = preprocess($rec, $id);
 
     $tcn->add_subfields(c => $id);
 
@@ -212,8 +212,9 @@
 
 sub preprocess {
 	my $rec = shift;
+	my $id = shift;
 
-	my ($id, $source, $value) = ('','','');
+	my ($source, $value) = ('','','');
 
 	if (!$id) {
 		my $f = $rec->field('001');