From 88ad171dac62fecdac41b9b1aadab01b6bf37132 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 14 Feb 2005 23:50:34 +0000
Subject: [PATCH] adding session-wide api_level setting

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@51 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/AppSession.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index d97ac84..e4816a9 100644
--- 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 );
-- 
2.43.2