Apply patch from c6520c9179834915910d8c294b3078b3f5114e17:marc_export_custom to marc_...
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Tue, 12 Aug 2014 18:46:57 +0000 (11:46 -0700)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Tue, 12 Aug 2014 18:46:57 +0000 (11:46 -0700)
Signed-off-by: Robin H. Johnson <rjohnson@sitka.bclibraries.ca>
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) {