Provide CSS inheritance hack.

 - How it should be done for CSS officially?

diff --git a/Web.pm b/Web.pm
index 0cf0d3c..10bc1da 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -171,16 +171,17 @@ my($class,%args)=@_;
        do { cluck "charset==$_, expecting ISO-8859-1" if $_ ne "ISO-8859-1"; } for CGI::charset();
        CGI::charset("utf-8");
 
-       do { $W->{$_}=0  if !defined $W->{$_}; } for ("detect_ent");
-       do { $W->{$_}=0  if !defined $W->{$_}; } for ("detect_js");
-       do { $W->{$_}=1  if !defined $W->{$_}; } for ("have_css");      # AFAIK it does not hurt anyone.
-       do { $W->{$_}=1  if !defined $W->{$_}; } for ("footer");
-       do { $W->{$_}=1  if !defined $W->{$_}; } for ("footer_delimit");
-       do { $W->{$_}=1  if !defined $W->{$_}; } for ("footer_ids");
-       do { $W->{$_}=1  if !defined $W->{$_}; } for ("indexme");
-       do { $W->{$_}="" if !defined $W->{$_}; } for ("head");
-       do { $W->{$_}="" if !defined $W->{$_}; } for ("body_attr");
-       do { $W->{$_}="en-US" if !defined $W->{$_}; } for ("language");
+       do { $W->{$_}=0  if !defined $W->{$_}; } for "detect_ent";
+       do { $W->{$_}=0  if !defined $W->{$_}; } for "detect_js";
+       do { $W->{$_}=1  if !defined $W->{$_}; } for "have_css";        # AFAIK it does not hurt anyone.
+       do { $W->{$_}=0  if !defined $W->{$_}; } for "css_inherit";
+       do { $W->{$_}=1  if !defined $W->{$_}; } for "footer";
+       do { $W->{$_}=1  if !defined $W->{$_}; } for "footer_delimit";
+       do { $W->{$_}=1  if !defined $W->{$_}; } for "footer_ids";
+       do { $W->{$_}=1  if !defined $W->{$_}; } for "indexme";
+       do { $W->{$_}="" if !defined $W->{$_}; } for "head";
+       do { $W->{$_}="" if !defined $W->{$_}; } for "body_attr";
+       do { $W->{$_}="en-US" if !defined $W->{$_}; } for "language";
 
        my $footer_any=0;
        for (qw(footer_ids)) {
@@ -239,7 +240,7 @@ my($class,%args)=@_;
 
        $W->{"have_js"}=($W->{"args"}{"have_js"} ? 1 : 0);
        if ($W->{"detect_js"} && !$W->{"have_js"}) {
-               $W->{"head"}.='<script type="text/javascript" src="'.path_web('/have_js.pm').'"></script>'."\n";
+               $W->{"head"}.='<script type="text/javascript" src="'.uri_escaped(path_web('/have_js.pm')).'"></script>'."\n";
                }
 
        do { _args_check(%$_) if $_; } for ($W->{"args_check"});
@@ -885,6 +886,11 @@ my($class)=@_;
 <link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web $css) ]}" />
 HERE
                        }
+               if ($W->{"css_inherit"}) {
+                       Wprint <<"HERE";
+<script type="text/javascript" src="@{[ uri_escaped(path_web('/My/css_inherit.js')) ]}" />
+HERE
+                       }
                }
        Wprint '<meta name="robots" content="'.($W->{"indexme"} ? "" : "no" ).'index,follow" />'."\n";
        Wprint $W->{"head"};