Also squelch the Retrieving messages.

diff --git a/marc_export_custom/marc_export_custom b/marc_export_custom/marc_export_custom
index def5da2..1bcb3e6 100755 (executable)
--- a/marc_export_custom/marc_export_custom
+++ b/marc_export_custom/marc_export_custom
@@ -379,7 +379,7 @@ sub stats {
 }
 
 sub get_bib_locations {
 }
 
 sub get_bib_locations {

-    print STDERR "Retrieving Org Units ... ";
+    print STDERR "Retrieving Org Units ... " unless $quiet;

     my $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit.search', { id => { '!=' => undef } } );
 
     while (my $o = $r->recv) {
     my $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit.search', { id => { '!=' => undef } } );
 
     while (my $o = $r->recv) {


@@ -391,7 +391,7 @@ sub get_bib_locations {
     $r->finish;
     print STDERR "OK\n";
 
     $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) {
     $r = $ses->request( 'open-ils.cstore.direct.config.copy_status.search', { id => { '!=' => undef } } );
 
     while (my $sta = $r->recv) {


@@ -403,7 +403,7 @@ sub get_bib_locations {
     $r->finish;
     print STDERR "OK\n";
 
     $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) {
     $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit_type.search', { id => { '!=' => undef } } );
 
     while (my $outy = $r->recv) {


@@ -415,7 +415,7 @@ sub get_bib_locations {
     $r->finish;
     print STDERR "OK\n";
 
     $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) {
     $r = $ses->request( 'open-ils.cstore.direct.asset.copy_location.search', { id => { '!=' => undef } } );
 
     while (my $s = $r->recv) {