From 10f756fe6ab500ff66f855688e3a753178ad80a7 Mon Sep 17 00:00:00 2001
From: short <>
Date: Tue, 27 Sep 2005 12:29:15 +0000
Subject: [PATCH] Workaround Lynx incompatible handling of: <script/>

---
 Web.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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
 			}
 		}
-- 
1.8.3.1