</%perl>
-<script type="text/javascript">
+<&| script &>
da_pageload= Date.now();
da_ages= { };
function da_Refresh() {
el.innerHTML= newhtml;
}
}
-</script>
+</&script>
<table>
<tr>
<tr> <td><% $row->{'archipelago'} |h
%> <td><% $row->{'islandname'} |h
%> <td id="<% $elid %>"><% $prettyprint_age->($age) %> </tr>
-<script type="text/javascript"> da_ages['<% $elid %>']= <% $age %>; </script>
+<&| script &> da_ages['<% $elid %>']= <% $age %>; </&script>
% }
</table>
<input type=submit name=submit value="Reload">
</form>
-<script type="text/javascript">
+<&| script &>
da_ages['daid_loaded']= 0;
window.onload= da_Refresh;
window.setInterval(da_Refresh, 10000);
-</script>
+</&script>
<%init>
use POSIX;