cvs commit: p5ee/App-Context/lib/App/Request CGI.pm

[Stephen Adkins]

cvsuser     04/02/02 13:24:03

  Modified:    App-Context/lib/App/Request CGI.pm
  Log:
  some session_id stuff
  
  Revision  Changes    Path
  1.10      +6 -3      p5ee/App-Context/lib/App/Request/CGI.pm
  
  Index: CGI.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/Request/CGI.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -w -r1.9 -r1.10
  --- CGI.pm    3 Dec 2003 16:22:11 -0000       1.9
  +++ CGI.pm    2 Feb 2004 21:24:03 -0000       1.10
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: CGI.pm,v 1.9 2003/12/03 16:22:11 spadkins Exp $
  +## $Id: CGI.pm,v 1.10 2004/02/02 21:24:03 spadkins Exp $
   #############################################################################
   
   package App::Request::CGI;
  @@ -225,8 +225,10 @@
           if ($App::DEBUG && $context->dbg(1));
   
       if (defined $cgi) {
  -        my ($session);
  -        $session = $context->{session};        # get the Session
  +        my $session_id = $cgi->param("session_id");
  +        $session_id = $context->new_session_id() if (!$session_id);
  +        my $session = $context->session($session_id, { cgi => $cgi });
  +        $context->set_current_session($session);
   
           my ($app_path_info, $curr_service, $curr_name, $curr_method, $curr_args, 
$curr_returntype);
           my $options = $self->{context}->options();
  @@ -502,6 +504,7 @@
                   }
               }
           }
  +        $context->restore_default_session();
       }
   }