From: short <>
Date: Tue, 27 Sep 2005 12:29:15 +0000 (+0000)
Subject: Workaround Lynx incompatible handling of: <script/>
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=10f756fe6ab500ff66f855688e3a753178ad80a7;hp=c0611b39b54cb3404a14c0f843a1f00941ca207c

Workaround Lynx incompatible handling of: <script/>
---

diff --git a/Web.pm b/Web.pm
index 0401f98..b542180 100644
--- a/Web.pm
+++ b/Web.pm
@@ -268,6 +268,8 @@ my($class,%args)=@_;
 
 	$W->{"have_js"}=($W->{"args"}{"have_js"} ? 1 : 0);
 	if ($W->{"detect_js"} && !$W->{"have_js"}) {
+		# Do not: <script />
+		# as at least Lynx inhibits any further HTML output.
 		$W->{"head"}.='<script type="text/javascript" src="'.uri_escaped(path_web('/My/HaveJS.pm')).'"></script>'."\n";
 		}
 
@@ -1180,8 +1182,10 @@ my($class)=@_;
 HERE
 			}
 		if ($W->{"css_inherit"}) {
+			# Do not: <script />
+			# as at least Lynx inhibits any further HTML output.
 			Wprint <<"HERE";
-<script type="text/javascript" src="@{[ uri_escaped(path_web('/My/css_inherit.js')) ]}" />
+<script type="text/javascript" src="@{[ uri_escaped(path_web('/My/css_inherit.js')) ]}"></script>
 HERE
 			}
 		}