cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Session HTMLHidden.pm

[spadkins]

cvsuser     02/04/19 09:24:11

  Modified:    P5EEx/Blue/P5EEx/Blue/Session HTMLHidden.pm
  Log:
  rename state to store
  
  Revision  Changes    Path
  1.7       +7 -7      p5ee/P5EEx/Blue/P5EEx/Blue/Session/HTMLHidden.pm
  
  Index: HTMLHidden.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Session/HTMLHidden.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -w -r1.6 -r1.7
  --- HTMLHidden.pm     2 Mar 2002 03:07:47 -0000       1.6
  +++ HTMLHidden.pm     19 Apr 2002 16:24:11 -0000      1.7
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: HTMLHidden.pm,v 1.6 2002/03/02 03:07:47 spadkins Exp $
  +## $Id: HTMLHidden.pm,v 1.7 2002/04/19 16:24:11 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Session::HTMLHidden;
  @@ -144,7 +144,7 @@
       my ($self) = @_;
       my ($sessiontext, $sessiondata, $html, $initconfig);
   
  -    $sessiondata = $self->{state};
  +    $sessiondata = $self->{store};
       $sessiontext = encode_base64(Compress::Zlib::memGzip(freeze($sessiondata)));
   
       my ($maxvarsize, $maxvarlines);
  @@ -176,7 +176,7 @@
       $initconfig = $self->{context}->initconfig();
       if ($initconfig && $initconfig->{showsession}) {
           # Debugging Only
  -        my $d = Data::Dumper->new([ $sessiondata ], [ "session_state" ]);
  +        my $d = Data::Dumper->new([ $sessiondata ], [ "session_store" ]);
           $d->Indent(1);
           $html .= "<!-- Contents of the session. (For debugging only. Should be 
turned off in production.)\n";
           $html .= $d->Dump();
  @@ -259,10 +259,10 @@
   
   sub init {
       my ($self, $args) = @_;
  -    my ($cgi, $sessiontext, $state);
  +    my ($cgi, $sessiontext, $store);
   
       $cgi = $args->{cgi} if (defined $args);
  -    $state = {};
  +    $store = {};
       if (defined $cgi) {
           $sessiontext = $cgi->param("p5ee.sessiondata");
           if ($sessiontext) {
  @@ -274,11 +274,11 @@
                   $sessiontext .= $textchunk;
                   $i++;
               }
  -            $state = thaw(Compress::Zlib::memGunzip(decode_base64($sessiontext)));
  +            $store = thaw(Compress::Zlib::memGunzip(decode_base64($sessiontext)));
           }
       }
       $self->{context} = $args->{context} if (defined $args->{context});
  -    $self->{state} = $state;
  +    $self->{store} = $store;
       $self->{cache} = {};
   }