--- trunk/lib/Frey/Web.pm	2009/01/06 15:26:19	945
+++ trunk/lib/Frey/Web.pm	2009/01/07 17:50:03	957
@@ -71,6 +71,13 @@
 	default => 250,
 );
 
+has 'wrap_in_page' => (
+	documentation => 'wrap full html page with status bar around content',
+	is => 'rw',
+	isa => 'Bool',
+	default => 1,
+);
+
 my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
 my $escape_re  = join '|' => keys %escape;
 
@@ -201,7 +208,7 @@
 			$content
 			<!-- $type via $package at $path line $line -->
 		|;
-	} elsif ( $content =~ m{^(/|https?://)} ) {
+	} elsif ( $content =~ m{^(/\w+|https?://)} && $content !~ m{[\n\r]} ) {
 		if ( $what eq 'js' ) {
 			$head = qq|
 				<$tag type="$type" src="$content">
@@ -276,7 +283,7 @@
 		warn "# no body, invoke $self->$run on ", ref($self);
 		$body = $self->$run;
 	}
-	if ( $self->content_type !~ m{html} ) {
+	if ( $self->content_type !~ m{html} || ! $self->wrap_in_page ) {
 		warn "# return only $self body ", $self->content_type;
 		return $body
 	} elsif ( ! defined $body ) {