fat fingers make for silly bugs...

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

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index ca3ece8..87381ff 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -24,7 +24,7 @@ our @pending_requests;
 
 sub package {
        my $self = shift;
-       return $self->{api_name};
+       return $self->{package};
 }
 
 sub api_name {
@@ -34,7 +34,7 @@ sub api_name {
 
 sub api_level {
        my $self = shift;
-       return $self->{api_name};
+       return $self->{api_level};
 }
 
 sub server_class {
@@ -330,7 +330,7 @@ sub method_lookup {
 
        my $class = ref($self) || $self;
 
-       $log->debug("Lookup of [$method] by [$class]", DEBUG);
+       $log->debug("Lookup of [$method] by [$class] in api_level [$proto]", DEBUG);
        $log->debug("Available methods\n".Dumper(\@_METHODS), INTERNAL);
 
        my $meth;