Apply patch from 0cb635749fd8aca004879850b2b9f456e9921b91:marc_export_custom to marc_...
[sitka/sitka-tools.git] / marc_export_custom / marc_export_custom_ms
index fb9a4d5..218e5da 100755 (executable)
@@ -26,7 +26,7 @@ use Data::Dumper;
 
 my @formats = qw/USMARC UNIMARC XML BRE ARE/;
 
-my ($config,$format,$encoding,$location,$dollarsign,$idl,$help,$holdings,$timeout,$export_mfhd,$type,$all_records) = ('/openils/conf/opensrf_core.xml','USMARC','MARC8','','$',0,undef,undef,0,undef,'biblio',undef);
+my ($config,$format,$encoding,$location,$dollarsign,$idl,$help,$holdings,$timeout,$export_mfhd,$type,$all_records,$quiet) = ('/openils/conf/opensrf_core.xml','USMARC','MARC8','','$',0,undef,undef,0,undef,'biblio',undef,0);
 my ($exclusion_ini,$collapse_to_depth, $output_file);
 my $cfg;
 my $force901;
@@ -53,7 +53,8 @@ GetOptions(
         'onlyholdings' => \$onlyholdings,
         'output-file=s' => \$output_file,
         'verbose' => \$verbose,
-       'cap=i' => \$cap,
+        'cap=i' => \$cap,
+        'quiet' => \$quiet,
 );
 
 if ($exclusion_ini) {
@@ -275,7 +276,7 @@ sub process_bib {
 
     if ($format eq 'ARE' or $format eq 'BRE') {
         print $outfh OpenSRF::Utils::JSON->perl2JSON($bib);
-        stats();
+        stats() unless $quiet;
         $count{did}++;
         return;
     }
@@ -384,7 +385,7 @@ sub process_bib {
         }
     }
 
-    stats() if (! ($count{bib} % 50 ));
+    stats() if (!$quiet && ! ($count{bib} % 50 ));
 }
 
 sub stats {
@@ -674,7 +675,7 @@ sub add_bib_holdings {
 
 
 
-                    stats() if (! ($count{cp} % 100 ));
+                    stats() if (!$quiet && ! ($count{cp} % 100 ));
                 } # COPYMAP: for my $cp ( @$cn_map_list )
             } # for my $cn ( @$cn_list )
         } # if ($cp_list && @$cp_list)
@@ -686,5 +687,5 @@ sub skipnote {
         my $note = shift;
         my $outf = *STDERR;
         $outf = *STDOUT if($output_file) ;
-        printf($outf "Skipped %s due to config: %s\n",$id,$note); 
+        printf($outf "Skipped %s due to config: %s\n",$id,$note) unless $quiet
 }