diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm index 6b3d45cbb..84ee30f2f 100644 --- a/lib/WebGUI/Asset.pm +++ b/lib/WebGUI/Asset.pm @@ -2135,7 +2135,8 @@ sub processTemplate { =head2 processStyle ( html ) Returns some HTML wrappered in a style. Should be overridden by subclasses, because -this one actually doesn't do anything other than return the html back to you +this one actually doesn't do anything other than return the html back to you and +adds the Asset's extraHeadTags into the raw head tags. =head3 html @@ -2145,6 +2146,7 @@ The content to wrap up. sub processStyle { my ($self, $output) = @_; + $self->session->style->setRawHeadTags($self->getExtraHeadTags); return $output; } diff --git a/lib/WebGUI/Asset/Wobject.pm b/lib/WebGUI/Asset/Wobject.pm index 7a541a114..56fb93a64 100644 --- a/lib/WebGUI/Asset/Wobject.pm +++ b/lib/WebGUI/Asset/Wobject.pm @@ -370,7 +370,8 @@ sub processPropertiesFromFormPost { =head2 processStyle ( output ) -Returns output parsed under the current style. +Returns output parsed under the current style. Sets the Asset's extra head tags +into the raw head tags, too. =head3 output @@ -381,6 +382,7 @@ An HTML blob to be parsed into the current style. sub processStyle { my $self = shift; my $output = shift; + $self->session->style->setRawHeadTags($self->getExtraHeadTags); return $self->session->style->process($output,$self->get("styleTemplateId")); }