X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=2bf90bbecedb28689de0ca261128f3c3ed064369;hp=0885b115be76a4e93b73507bc33a90eafec4bfe1;hb=c0c711273b6186d349e187e1368ebaf85e9b8b4f;hpb=3558fcb4c2ca89db0f10e5427acdbdbc50a45bd0
diff --git a/Web.pm b/Web.pm
index 0885b11..2bf90bb 100644
--- a/Web.pm
+++ b/Web.pm
@@ -272,7 +272,11 @@ my($class,%args)=@_;
if ($W->{"detect_js"} && !$W->{"have_js"}) {
# Do not:
# as at least Lynx inhibits any further HTML output.
- $W->{"head"}.=''."\n";
+ # Do not: text/javascript
+ # as it does not look as registered, at least according to: MIME::Types $VERSION 1.15
+ # "application/javascript" so far standardized till 2005-12-08 by:
+ # http://www.ietf.org/internet-drafts/draft-hoehrmann-script-types-03.txt
+ $W->{"head"}.=''."\n";
}
do { _args_check(%$_) if $_; } for ($W->{"args_check"});
@@ -1110,7 +1114,11 @@ my($class)=@_;
if (!$W->{"header_only"}) {
header("Content-Style-Type"=>"text/css");
- header("Content-Script-Type"=>"text/javascript");
+ # Do not: text/javascript
+ # as it does not look as registered, at least according to: MIME::Types $VERSION 1.15
+ # "application/javascript" so far standardized till 2005-12-08 by:
+ # http://www.ietf.org/internet-drafts/draft-hoehrmann-script-types-03.txt
+ header("Content-Script-Type"=>"application/javascript");
# $W->{"r"}->content_languages() ?
do { header("Content-Language"=>$_) if $_; } for $W->{"language"};
}
@@ -1202,8 +1210,12 @@ HERE
if ($W->{"css_inherit"}) {
# Do not:
# as at least Lynx inhibits any further HTML output.
+ # Do not: text/javascript
+ # as it does not look as registered, at least according to: MIME::Types $VERSION 1.15
+ # "application/javascript" so far standardized till 2005-12-08 by:
+ # http://www.ietf.org/internet-drafts/draft-hoehrmann-script-types-03.txt
Wprint <<"HERE";
-
+
HERE
}
}