sub get_styles {
my $self=shift;
if ($$self{cjfile_media} eq 'html') {
$$self{apache}->content_type("text/html");
}
my $res= $myowntypemap{ $$self{cjfile_sourcetype} }{$$self{cjfile_media}};
if (!$res) {
warn "CJ get_styles: fallback to super, since type/media
$$self{cjfile_sourcetype}/$$self{cjfile_media} not found";
$res= $self->SUPER::get_styles;
}
BTW: I *have* to call $self->SUPER::get_styles for not providing any style at all. Returning [] or undef does not work, throwing an exception neither, the only thing is SUPER::get_styles since that one calls into an XS getstyle function witch seems to work. This looks very strange to me and definitely looks like an unnecessary restriction (bug?). (Using AxKit CVS from a few weeks ago.)
Christian.
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
