adding session-wide api_level setting

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

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index d97ac84..e4816a9 100644 (file)
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -221,6 +221,7 @@ sub create {
                           state       => DISCONNECTED,#since we're init'ing
                           session_id  => $sess_id,
                           remote_id   => $r_id,
+                          api_level   => 1,
                           orig_remote_id   => $r_id,
                                peer_handle => $peer_handle,
                                session_threadTrace => 0,
@@ -231,6 +232,10 @@ sub create {
        return $self->find_client( $app );
 }
 
+sub api_level {
+       return shift()->{api_level};
+}
+
 sub app {
        return shift()->{app_name};
 }
@@ -264,10 +269,13 @@ sub connect {
        return $self if ( ref( $self ) and  $self->state && $self->state == CONNECTED  );
 
        my $app = shift;
+       my $api_level = shift;
+       $api_level = 1 unless (defined $api_level)
 
        $self = $class->create($app, @_) if (!ref($self));
        return undef unless ($self);
 
+       $self->{api_level} = $api_level
 
        $self->reset;
        $self->state(CONNECTING);
@@ -404,7 +412,7 @@ sub send {
                        }
                }
        
-               $msg->api_level(1);
+               $msg->api_level($self->api_level);
                $msg->payload($payload) if $payload;
        
                $doc->documentElement->appendChild( $msg );