SUPER handling for Wobject.

This commit is contained in:
Colin Kuskie 2010-04-08 16:25:54 -07:00
parent 593d02d68b
commit fd736e7f67

View file

@ -341,15 +341,15 @@ Returns output parsed under the current style. See also Asset::processStyle.
=cut =cut
sub processStyle { override processStyle => sub {
my ($self, $output, $options) = @_; my ($self, $output, $options) = @_;
$output = $self->SUPER::processStyle($output, $options); $output = super();
my $style = $self->session->style; my $style = $self->session->style;
if ($style->useMobileStyle) { if ($style->useMobileStyle) {
return $style->process($output,$self->get("mobileStyleTemplateId")); return $style->process($output,$self->get("mobileStyleTemplateId"));
} }
return $style->process($output,$self->get("styleTemplateId")); return $style->process($output,$self->get("styleTemplateId"));
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------