chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
printable trading plans
[ypp-sc-tools.db-live.git]
/
yarrg
/
web
/
script
diff --git
a/yarrg/web/script
b/yarrg/web/script
index b8e7d03364827e39ed4f05e1d697f7a489dfef05..05ba792a96055f16f89f33e9f1486860f4665ec1 100644
(file)
--- a/
yarrg/web/script
+++ b/
yarrg/web/script
@@
-36,14
+36,16
@@
http://www.htmlhelp.com/tools/validator/problems.html#script
</%doc>
http://www.htmlhelp.com/tools/validator/problems.html#script
</%doc>
+<%perl>
+my $ct= $m->content;
+
+die "bad script content $&"
+ if $ct =~ m,\<\/|--\>,;
+</%perl>
+% if (!printable($m)) {
<script type="text/javascript">
<!--
<% $ct %>
// -->
</script>
<script type="text/javascript">
<!--
<% $ct %>
// -->
</script>
-<%init>
-my $ct= $m->content;
-
-die "bad script content $&"
- if $ct =~ m,\<\/|--\>,;
-</%init>
+% }