cvsuser 05/08/09 12:04:07
Modified: App-Context/lib/App Response.pm
Log:
include files support
Revision Changes Path
1.7 +18 -3 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.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- Response.pm 10 Nov 2004 15:37:51 -0000 1.6
+++ Response.pm 9 Aug 2005 19:04:07 -0000 1.7
@@ -213,9 +213,24 @@
sub include {
&App::sub_entry if ($App::trace);
my ($self, $type, $content) = @_;
- $self->{include}{$type}{$content} = 1;
+ if (!$self->{include}{$type}{$content}) {
+ if (!$self->{include}{"${type}_list"}) {
+ $self->{include}{"${type}_list"} = [ $content ];
+ }
+ else {
+ push(@{$self->{include}{"${type}_list"}}, $content);
+ }
+ $self->{include}{$type}{$content} = 1;
+ }
&App::sub_exit() if ($App::trace);
- return $self->{content};
+}
+
+sub is_included {
+ &App::sub_entry if ($App::trace);
+ my ($self, $type, $content) = @_;
+ my $included = $self->{include}{$type}{$content};
+ &App::sub_exit($included) if ($App::trace);
+ return($included);
}
1;
