safer MR mapping
[Evergreen.git] / Open-ILS / src / extras / import / direct_ingest.pl
index 48060c6..d0b3eea 100755 (executable)
@@ -26,12 +26,13 @@ use MARC::Charset;
 
 MARC::Charset->ignore_errors(1);
 
-my ($auth, $config) =
+my ($auth, $config, $quiet) =
        (0, '/openils/conf/opensrf_core.xml');
 
 GetOptions(
        'config=s'      => \$config,
        'authority'     => \$auth,
+       'quiet'         => \$quiet,
 );
 
 my @ses;
@@ -69,9 +70,9 @@ while (my $rec = <>) {
 
        next unless $data;
 
-       postprocess( { bib => $bib, worm_data => $data } );
+       postprocess( { bib => $bib, ingest_data => $data } );
 
-       if (!($count % 20)) {
+       if (!$quiet && !($count % 20)) {
                print NEWERR "\r$count\t". $count / (time - $starttime);
        }
 
@@ -82,11 +83,11 @@ sub postprocess {
        my $data = shift;
 
        my $bib = $data->{bib};
-       my $full_rec = $data->{worm_data}->{full_rec};
+       my $full_rec = $data->{ingest_data}->{full_rec};
 
-       my $field_entries = $data->{worm_data}->{field_entries} unless ($auth);
-       my $fp = $data->{worm_data}->{fingerprint} unless ($auth);
-       my $rd = $data->{worm_data}->{descriptor} unless ($auth);
+       my $field_entries = $data->{ingest_data}->{field_entries} unless ($auth);
+       my $fp = $data->{ingest_data}->{fingerprint} unless ($auth);
+       my $rd = $data->{ingest_data}->{descriptor} unless ($auth);
 
        $bib->fingerprint( $fp->{fingerprint} ) unless ($auth);
        $bib->quality( $fp->{quality} ) unless ($auth);