Also squelch the Retrieving messages.
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Tue, 25 Jun 2013 00:21:52 +0000 (00:21 +0000)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Tue, 25 Jun 2013 00:21:52 +0000 (00:21 +0000)
marc_export_custom/marc_export_custom

index def5da2..1bcb3e6 100755 (executable)
@@ -379,7 +379,7 @@ sub stats {
 }
 
 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) {
@@ -391,7 +391,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) {
@@ -403,7 +403,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) {
@@ -415,7 +415,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) {