From 5a58632ee0156be9aaf7cc66ec16bff61b663dff Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 14 Jan 2006 23:26:36 +0000
Subject: [PATCH] fix

---
 lib/WebGUI/Session/Var.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Session/Var.pm b/lib/WebGUI/Session/Var.pm
index 33aecc9a3..9c7fa9767 100644
--- a/lib/WebGUI/Session/Var.pm
+++ b/lib/WebGUI/Session/Var.pm
@@ -118,6 +118,20 @@ sub get {
 	return $self->{_var}{$var};
 }
 
+#-------------------------------------------------------------------
+
+=head2 getId ( )
+
+Returns the ID of the current session.
+
+=cut
+
+sub getId {
+	my $self = shift;
+	$self->get("sessionId");
+}
+
+
 #-------------------------------------------------------------------
         
 =head2 isAdminOn  ( )
@@ -206,7 +220,7 @@ sub start {
                 sessionId=>"new",
                 expires=>$self->session->datetime->time() + $self->session->setting->get("sessionTimeout"),
                 lastPageView=>$self->session->datetime->time(),
-                lastIP => $self->env("REMOTE_ADDR"),
+                lastIP => $self->session->env->get("REMOTE_ADDR"),
                 adminOn => 0,
                 userId => $userId       
                 };