cvs commit: p5ee/App-Context/lib/App Response.pm

cvsuser     04/11/10 07:37:51

  Modified:    App-Context/lib/App Response.pm
  Log:
  add initial 'include' support for javascript in Widgets
  
  Revision  Changes    Path
  1.6       +9 -1      p5ee/App-Context/lib/App/Response.pm
  
  Index: Response.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/Response.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- Response.pm	2 Sep 2004 20:56:51 -0000	1.5
  +++ Response.pm	10 Nov 2004 15:37:51 -0000	1.6
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Response.pm,v 1.5 2004/09/02 20:56:51 spadkins Exp $
  +## $Id: Response.pm,v 1.6 2004/11/10 15:37:51 spadkins Exp $
   #############################################################################
   
   package App::Response;
  @@ -210,5 +210,13 @@
       return $self->{content};
   }
   
  +sub include {
  +    &App::sub_entry if ($App::trace);
  +    my ($self, $type, $content) = @_;
  +    $self->{include}{$type}{$content} = 1;
  +    &App::sub_exit() if ($App::trace);
  +    return $self->{content};
  +}
  +
   1;