From cb6ea771dcaabc6f7b6bcdeb7b522955d0c57da5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 15 Nov 2010 10:10:23 -0800
Subject: [PATCH] Set the internal session id in all cases.  We should consider
 not storing it twice...

---
 lib/WebGUI/Session.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index 7f856cd38..e714a1138 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -594,6 +594,7 @@ sub open {
     elsif ($self->{_var}{sessionId} ne "") { ##Fetched an existing session.  Update variables with recent data.
         my $time = time();
         my $timeout = $self->setting->get("sessionTimeout");
+        $self->{_sessionId}         = $self->{_var}{sessionId};
         $self->{_var}{lastPageView} = $time;
         $self->{_var}{lastIP}       = $self->request->address;
         $self->{_var}{expires}      = $time + $timeout;