git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
c0611b3
)
Workaround Lynx incompatible handling of: <script/>
author
short
<>
Tue, 27 Sep 2005 12:29:15 +0000
(12:29 +0000)
committer
short
<>
Tue, 27 Sep 2005 12:29:15 +0000
(12:29 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
0401f98
..
b542180
100644
(file)
--- 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"}) {
$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";
}
$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"}) {
HERE
}
if ($W->{"css_inherit"}) {
+ # Do not: <script />
+ # as at least Lynx inhibits any further HTML output.
Wprint <<"HERE";
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
}
}
HERE
}
}