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

[spadkins]

cvsuser     02/02/28 21:11:16

  Modified:    P5EEx/Blue/P5EEx/Blue/Session HTMLHidden.pm
  Log:
  fix problem with showsession from initconfig file
  
  Revision  Changes    Path
  1.5       +6 -5      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.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- HTMLHidden.pm     15 Feb 2002 18:38:38 -0000      1.4
  +++ HTMLHidden.pm     1 Mar 2002 05:11:16 -0000       1.5
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: HTMLHidden.pm,v 1.4 2002/02/15 18:38:38 spadkins Exp $
  +## $Id: HTMLHidden.pm,v 1.5 2002/03/01 05:11:16 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Session::HTMLHidden;
  @@ -141,8 +141,8 @@
   =cut
   
   sub html {
  -    my ($self, $options) = @_;
  -    my ($sessiontext, $sessiondata, $html);
  +    my ($self) = @_;
  +    my ($sessiontext, $sessiondata, $html, $initconfig);
   
       $sessiondata = $self->{state};
       $sessiontext = encode_base64(Compress::Zlib::memGzip(freeze($sessiondata)));
  @@ -173,9 +173,10 @@
       }
       $html .= "\n";
   
  -    if ($options && $options->{showsession}) {
  +    $initconfig = $self->{context}->initconfig();
  +    if ($initconfig && $initconfig->{showsession}) {
           # DEBUGGING ONLY
  -        my $d = Data::Dumper->new([ $sessiondata ], [ "sessiondata" ]);
  +        my $d = Data::Dumper->new([ $sessiondata ], [ "session_state" ]);
           $d->Indent(1);
           $html .= "<!-- Contents of the session. (For debugging only. Should be 
turned off in production.)\n";
           $html .= $d->Dump();