From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 27 Jul 2005 00:44:08 +0000 (+0000)
Subject: more debugging
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e469bcf57d73ce15452290d8525a1f5b71133025;p=opensrf%2Fbjwebb.git

more debugging


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@435 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 194d7d5..54e9b9d 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -338,7 +338,7 @@ sub populate_remote_method_cache {
 sub method_lookup {             
 	my $self = shift;
 	my $method = shift;
-	my $proto = shift || 1;
+	my $proto = shift;
 	my $no_recurse = shift || 0;
 	my $no_remote = shift || 0;
 
@@ -348,7 +348,7 @@ sub method_lookup {
 	my $class = ref($self) || $self;
 
 	$log->debug("Lookup of [$method] by [$class] in api_level [$proto]", DEBUG);
-	#$log->debug("Available methods\n".Dumper(\@_METHODS), INTERNAL);
+	$log->debug("Available methods\n\t".join("\n\t", keys %{ $_METHODS[$proto] }), INTERNAL);
 
 	my $meth;
 	if (__PACKAGE__->thunk) {
@@ -372,6 +372,7 @@ sub method_lookup {
 		}
 
 	} elsif (!$no_recurse) {
+		$log->debug("We didn't find [$method], asking everyone else.", DEBUG);
 		retrieve_remote_apis($method);
 		$meth = $self->method_lookup($method,$proto,1);
 	}