From: sboyette <sboyette@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 13 Aug 2008 22:11:57 +0000 (+0000)
Subject: New flag, --use901. Passing this flag causes the preprocess() routine to be bypassed... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a1e12adc57096d5bd2aed157ac1a44532833f9dd;p=Evergreen.git

New flag, --use901. Passing this flag causes the preprocess() routine to be bypassed, as well as all secondary code related to it (basically, anything that references $tcn)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10357 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/extras/import/marc2bre.pl b/Open-ILS/src/extras/import/marc2bre.pl
index 6230373602..bc45a4867f 100755
--- a/Open-ILS/src/extras/import/marc2bre.pl
+++ b/Open-ILS/src/extras/import/marc2bre.pl
@@ -28,28 +28,28 @@ my ($id_field, $id_subfield, $recid, $user, $config, $idlfile, $marctype, $keyfi
 my ($db_driver,$db_host,$db_name,$db_user,$db_pw) =
 	('Pg','localhost','evergreen','postgres','postgres');
 
-GetOptions(
-	'marctype=s'	=> \$marctype,
-	'startid=i'	=> \$recid,
-	'idfield=s'	=> \$id_field,
-	'idsubfield=s'	=> \$id_subfield,
-	'user=s'	=> \$user,
-	'encoding=s'	=> \$enc,
-	'hard_encoding'	=> \$force_enc,
-	'keyfile=s'	=> \$keyfile,
-	'config=s'	=> \$config,
-	'file=s'	=> \@files,
-	'required_field=s'	=> \@req_fields,
-	'trash=s'	=> \@trash_fields,
-	'xml_idl=s'	=> \$idlfile,
-	'dontuse=s'	=> \$dontuse_file,
-	"db_driver=s"		=> \$db_driver,
-	"db_host=s"		=> \$db_host,
-	"db_name=s"		=> \$db_name,
-	"db_user=s"		=> \$db_user,
-	"db_pw=s"		=> \$db_pw,
-	'quiet'		=> \$quiet
-);
+GetOptions( 'marctype=s'       => \$marctype,
+            'startid=i'        => \$recid,
+            'idfield=s'        => \$id_field,
+            'idsubfield=s'     => \$id_subfield,
+            'user=s'           => \$user,
+            'encoding=s'       => \$enc,
+            'hard_encoding'    => \$force_enc,
+            'keyfile=s'        => \$keyfile,
+            'config=s'         => \$config,
+            'file=s'           => \@files,
+            'required_field=s' => \@req_fields,
+            'trash=s'          => \@trash_fields,
+            'xml_idl=s'	       => \$idlfile,
+            'dontuse=s'        => \$dontuse_file,
+            "db_driver=s"      => \$db_driver,
+            "db_host=s"	       => \$db_host,
+            "db_name=s"	       => \$db_name,
+            "db_user=s"	       => \$db_user,
+            "db_pw=s"	       => \$db_pw,
+            "use901"           => \$use901
+            'quiet'            => \$quiet,
+          );
 
 @trash_fields = split(/,/,join(',',@trash_fields));
 
@@ -87,13 +87,13 @@ if (!$recid) {
 	$dbh->disconnect;
 }
 
-my %source_map = (      
+my %source_map = (
 	o  => 'OCLC',
-	i  => 'ISxN',    
+	i  => 'ISxN',
 	l  => 'LCCN',
-	s  => 'System',  
-	g  => 'Gutenberg',  
-);                              
+	s  => 'System',
+	g  => 'Gutenberg',
+);
 
 Fieldmapper->import(IDL => $idlfile);
 
@@ -175,16 +175,17 @@ PROCESS: while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) {
 	}
 
 	my $tcn;
-	($rec, $tcn) = preprocess($rec, $id);
-
-	$tcn->add_subfields(c => $id);
+        if ($use901) {
+            $id = $rec->subfield('901' => 'c')
+        } else {
+            ($rec, $tcn) = preprocess($rec, $id);
+            $tcn->add_subfields(c => $id);
 
-	$rec->delete_field( $_ ) for ($rec->field($id_field));
-	$rec->append_fields( $tcn );
+            $rec->delete_field( $_ ) for ($rec->field($id_field));
+            $rec->append_fields( $tcn );
 
-	if (!$rec) {
-		next;
-	}
+            next unless $rec;
+        }
 
 	my $tcn_value = $rec->subfield('901' => 'a') || "SYS$id";
 	my $tcn_source = $rec->subfield('901' => 'b') || 'System';