where-vessels: subclass smasher works; need to reorg to be a grid like Show

[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>
+<%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>
+% }