From 2ae3e3eff7c7c6e070bdb6ee289e5490fada45bc Mon Sep 17 00:00:00 2001 From: dbs Date: Sat, 23 Feb 2008 00:32:45 +0000 Subject: [PATCH] Enable custom specified ID to be retained in preprocess subroutine git-svn-id: svn://svn.open-ils.org/ILS/trunk@8829 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/extras/import/marc2bre.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/extras/import/marc2bre.pl b/Open-ILS/src/extras/import/marc2bre.pl index 8360eae413..9d8014ddef 100755 --- a/Open-ILS/src/extras/import/marc2bre.pl +++ b/Open-ILS/src/extras/import/marc2bre.pl @@ -166,7 +166,7 @@ while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) { } my $tcn; - ($rec, $tcn) = preprocess($rec); + ($rec, $tcn) = preprocess($rec, $id); $tcn->add_subfields(c => $id); @@ -212,8 +212,9 @@ while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) { sub preprocess { my $rec = shift; + my $id = shift; - my ($id, $source, $value) = ('','',''); + my ($source, $value) = ('','',''); if (!$id) { my $f = $rec->field('001'); -- 2.43.2