cvs commit: p5ee/App-Context/lib/App/Session Cookie.pm HTMLHidden.pm

[Stephen Adkins]

cvsuser     03/12/03 08:18:50

  Modified:    App-Context/lib/App/Session Cookie.pm HTMLHidden.pm
  Log:
  options
  
  Revision  Changes    Path
  1.7       +4 -4      p5ee/App-Context/lib/App/Session/Cookie.pm
  
  Index: Cookie.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/Session/Cookie.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -w -r1.6 -r1.7
  --- Cookie.pm 20 Jun 2003 17:19:03 -0000      1.6
  +++ Cookie.pm 3 Dec 2003 16:18:50 -0000       1.7
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Cookie.pm,v 1.6 2003/06/20 17:19:03 spadkins Exp $
  +## $Id: Cookie.pm,v 1.7 2003/12/03 16:18:50 spadkins Exp $
   #############################################################################
   
   package App::Session::Cookie;
  @@ -167,12 +167,12 @@
   
   sub html {
       my ($self) = @_;
  -    my ($sessiontext, $sessiondata, $html, $headers, $cookieoptions, $sessiontemp, 
$initconf);
  +    my ($sessiontext, $sessiondata, $html, $headers, $cookieoptions, $sessiontemp, 
$options);
   
       $sessiondata = $self->{store};
       $sessiontext = 
MIME::Base64::encode(Compress::Zlib::memGzip(freeze($sessiondata)));
       $sessiontemp = $sessiontext;
  -    $initconf = $self->{context}->initconf();
  +    $options = $self->{context}->options();
   
       my ($maxvarsize, $maxvarlines);
       # length of a MIME/Base64 line is (76 chars + newline)
  @@ -207,7 +207,7 @@
           $self->{context}->set_header($headers);
       }
   
  -    if ($initconf && $initconf->{showsession}) {
  +    if ($options && $options->{showsession}) {
           # Debugging Only
           my $d = Data::Dumper->new([ $sessiondata ], [ "sessiondata" ]);
           $d->Indent(1);
  
  
  
  1.5       +4 -4      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.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- HTMLHidden.pm     22 Mar 2003 04:04:35 -0000      1.4
  +++ HTMLHidden.pm     3 Dec 2003 16:18:50 -0000       1.5
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: HTMLHidden.pm,v 1.4 2003/03/22 04:04:35 spadkins Exp $
  +## $Id: HTMLHidden.pm,v 1.5 2003/12/03 16:18:50 spadkins Exp $
   #############################################################################
   
   package App::Session::HTMLHidden;
  @@ -142,7 +142,7 @@
   
   sub html {
       my ($self) = @_;
  -    my ($sessiontext, $sessiondata, $html, $initconf);
  +    my ($sessiontext, $sessiondata, $html, $options);
   
       $sessiondata = $self->{store};
       $sessiontext = encode_base64(Compress::Zlib::memGzip(freeze($sessiondata)));
  @@ -173,8 +173,8 @@
       }
       $html .= "\n";
   
  -    $initconf = $self->{context}->initconf();
  -    if ($initconf && $initconf->{showsession}) {
  +    $options = $self->{context}->options();
  +    if ($options && $options->{showsession}) {
           # Debugging Only
           my $d = Data::Dumper->new([ $sessiondata ], [ "session_store" ]);
           $d->Indent(1);