cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue Context.pm

[spadkins]

cvsuser     02/06/07 14:58:03

  Modified:    P5EEx/Blue/P5EEx/Blue Context.pm
  Log:
  added a debug statement
  
  Revision  Changes    Path
  1.30      +5 -1      p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm
  
  Index: Context.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -w -r1.29 -r1.30
  --- Context.pm        21 May 2002 13:46:23 -0000      1.29
  +++ Context.pm        7 Jun 2002 21:58:03 -0000       1.30
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Context.pm,v 1.29 2002/05/21 13:46:23 spadkins Exp $
  +## $Id: Context.pm,v 1.30 2002/06/07 21:58:03 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Context;
  @@ -931,6 +931,10 @@
   
   sub add_message {
       my ($self, $msg) = @_;
  +
  +    $self->dbgprint("Context->add_message()\n====\n$msg====\n")
  +        if ($P5EEx::Blue::DEBUG && $self->dbg(1));
  +
       if (defined $self->{messages}) {
           $self->{messages} .= "<br>\n" . $msg;
       }