[open-ils-commits] r7595 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2007-07-27 12:58:06 -0400 (Fri, 27 Jul 2007)
New Revision: 7595

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
returning a status

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 16:53:11 UTC (rev 7594)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 16:58:06 UTC (rev 7595)
@@ -93,7 +93,6 @@
 	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) {
@@ -103,9 +102,7 @@
 	    		$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) {
@@ -115,7 +112,6 @@
 	    		$shelves{$s->id} = $s;
     		}
     		$r->finish;
-		print STDERR "OK\n";
 
     		$flesh = { flesh => 2, flesh_fields => { bre => [ 'call_numbers' ], acn => [ 'copies' ] } };
 	}
@@ -211,6 +207,8 @@
 
 	print "</collection>\n" if ($format eq 'XML');
 
+	return 200;
+
 }
 
 1;