Apply patch from c6520c9179834915910d8c294b3078b3f5114e17:marc_export_custom to marc_...
[sitka/sitka-tools.git] / marc_export_custom / marc_export_custom_ms
index 218e5da..3c49729 100755 (executable)
@@ -410,7 +410,7 @@ sub stats {
 }
 
 sub get_bib_locations {
-    print STDERR "Retrieving Org Units ... ";
+    print STDERR "Retrieving Org Units ... " unless $quiet;
     my $ses = OpenSRF::AppSession->connect('open-ils.cstore');
     my $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit.search', { id => { '!=' => undef } } );
 
@@ -423,7 +423,7 @@ sub get_bib_locations {
     $r->finish;
     print STDERR "OK\n";
 
-    print STDERR "Retrieving Copy statuses ... ";
+    print STDERR "Retrieving Copy statuses ... " unless $quiet;
     $r = $ses->request( 'open-ils.cstore.direct.config.copy_status.search', { id => { '!=' => undef } } );
 
     while (my $sta = $r->recv) {
@@ -435,7 +435,7 @@ sub get_bib_locations {
     $r->finish;
     print STDERR "OK\n";
 
-    print STDERR "Retrieving OU types ... ";
+    print STDERR "Retrieving OU types ... " unless $quiet;
     $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit_type.search', { id => { '!=' => undef } } );
 
     while (my $outy = $r->recv) {
@@ -447,7 +447,7 @@ sub get_bib_locations {
     $r->finish;
     print STDERR "OK\n";
 
-    print STDERR "Retrieving Shelving locations ... ";
+    print STDERR "Retrieving Shelving locations ... " unless $quiet;
     $r = $ses->request( 'open-ils.cstore.direct.asset.copy_location.search', { id => { '!=' => undef } } );
 
     while (my $s = $r->recv) {