From f4ceb29144c45713ed272e10a5f950f597fe4928 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 3 Sep 2008 21:24:48 +0000
Subject: [PATCH] removed old debug warnings

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10527 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 2f0f64608e..f602e6a23b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -190,8 +190,6 @@ __PACKAGE__->register_method(
 sub biblio_record_replace_marc  {
 	my( $self, $conn, $auth, $recid, $newxml, $source ) = @_;
 
-	warn "Updating MARC with xml\n$newxml\n";
-
 	my $e = new_editor(authtoken=>$auth, xact=>1);
 	return $e->die_event unless $e->checkauth;
 	return $e->die_event unless $e->allowed('CREATE_MARC', $e->requestor->ws_ou);
@@ -652,27 +650,19 @@ sub _update_record_metadata {
 		my $user_obj = $doc->{user};
 		my $docid = $doc->{docid};
 
-		warn "Updating metata for doc $docid\n";
-
 		my $request = $session->request( 
 			"open-ils.storage.direct.biblio.record_entry.retrieve", $docid );
 		my $record = $request->gather(1);
 
-		warn "retrieved record\n";
 		my ($id) = _get_id_by_userid($user_obj->usrname);
 
-		warn "got $id from _get_id_by_userid\n";
 		$record->editor($id);
 		
-		warn "Grabbed the record, updating and moving on\n";
-
 		$request = $session->request( 
 			"open-ils.storage.direct.biblio.record_entry.update", $record );
 		$request->gather(1);
 	}
 
-	warn "committing metarecord update\n";
-
 	return 1;
 }
 
@@ -715,8 +705,6 @@ sub retrieve_copies {
 
 	$docid = "$docid";
 
-	warn " $$ retrieving copy tree for orgs @org_ids and doc $docid at " . time() . "\n";
-
 	# grabbing copy trees should be available for everyone..
 	if(!@org_ids and $user_session) {
 		my $user_obj = 
@@ -725,7 +713,6 @@ sub retrieve_copies {
 	}
 
 	if( $self->api_name =~ /global/ ) {
-		warn "performing global copy_tree search for $docid\n";
 		return _build_volume_list( { record => $docid, deleted => 'f' } );
 
 	} else {
@@ -734,11 +721,9 @@ sub retrieve_copies {
 		for my $orgid (@org_ids) {
 			my $vols = _build_volume_list( 
 					{ record => $docid, owning_lib => $orgid, deleted => 'f' } );
-			warn "Volumes built for org $orgid\n";
 			push( @all_vols, @$vols );
 		}
 		
-		warn " $$ Finished copy_tree at " . time() . "\n";
 		return \@all_vols;
 	}
 
-- 
2.11.0