From e1e706c12e6091ef78441e13bc836babee6557e1 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 20 Apr 2007 15:14:39 +0000
Subject: [PATCH] a little startup info

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7155 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/support-scripts/marc_export | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/support-scripts/marc_export b/Open-ILS/src/support-scripts/marc_export
index 09775e63d0..22cb3c8d56 100755
--- a/Open-ILS/src/support-scripts/marc_export
+++ b/Open-ILS/src/support-scripts/marc_export
@@ -90,6 +90,8 @@ my %shelves;
 
 my $flesh = {};
 if ($holdings) {
+
+	print STDERR "Retrieving Org Units ... ";
 	my $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit.search', { id => { '!=' => undef } } );
 
     while (my $o = $r->recv) {
@@ -99,7 +101,9 @@ if ($holdings) {
 	    $orgs{$o->id} = $o;
     }
     $r->finish;
+	print STDERR "OK\n";
 
+	print STDERR "Retrieving Shelving locations ... ";
 	$r = $ses->request( 'open-ils.cstore.direct.asset.copy_location.search', { id => { '!=' => undef } } );
 
     while (my $s = $r->recv) {
@@ -109,8 +113,9 @@ if ($holdings) {
 	    $shelves{$s->id} = $s;
     }
     $r->finish;
+	print STDERR "OK\n";
 
-    $flesh = { flesh => 1, flesh_fields => { bre => [ 'call_numbers' ], acn => [ 'copies' ] } };
+    $flesh = { flesh => 2, flesh_fields => { bre => [ 'call_numbers' ], acn => [ 'copies' ] } };
 }
 
 my $start = time;
-- 
2.11.0