cvsuser 02/11/01 11:58:27
Modified: App-Context/lib/App/Session HTMLHidden.pm
Log:
get HTML <hidden> sessioning back on its feet
Revision Changes Path
1.3 +4 -2 p5ee/App-Context/lib/App/Session/HTMLHidden.pm
Index: HTMLHidden.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Session/HTMLHidden.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- HTMLHidden.pm 18 Sep 2002 02:54:11 -0000 1.2
+++ HTMLHidden.pm 1 Nov 2002 19:58:27 -0000 1.3
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: HTMLHidden.pm,v 1.2 2002/09/18 02:54:11 spadkins Exp $
+## $Id: HTMLHidden.pm,v 1.3 2002/11/01 19:58:27 spadkins Exp $
#############################################################################
package App::Session::HTMLHidden;
@@ -261,8 +261,10 @@
my ($self, $args) = @_;
my ($cgi, $sessiontext, $store);
- $cgi = $args->{cgi} if (defined $args);
+ $self->{context} = $args->{context};
$store = {};
+ $cgi = $args->{cgi} if (defined $args);
+ $cgi = $self->{context}->request()->{cgi} if (!defined $cgi);
if (defined $cgi) {
$sessiontext = $cgi->param("app.sessiondata");
if ($sessiontext) {
