X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fscript;h=05ba792a96055f16f89f33e9f1486860f4665ec1;hb=6c9a152ce924835192b2877fbba36071b5e69032;hp=b8e7d03364827e39ed4f05e1d697f7a489dfef05;hpb=fd6bf359d9051fe0c6d269a44bcc08cc53aa2fea;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/web/script b/yarrg/web/script
index b8e7d03..05ba792 100644
--- a/yarrg/web/script
+++ b/yarrg/web/script
@@ -36,14 +36,16 @@
     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>
-<%init>
-my $ct= $m->content;
-
-die "bad script content $&"
-    if $ct =~ m,\<\/|--\>,;
-</%init>
+% }