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;
