X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_age;h=efd709692a855426a1ae3f7ca819a2f009ce8b4f;hp=88bc7ea16b73fa686bb30628761a725c4bd242c3;hb=ad29b01fe6470a4b3bb108a8f485657927175e24;hpb=248bc67115c51a597d806d3de9171df17a9915c0 diff --git a/yarrg/web/query_age b/yarrg/web/query_age index 88bc7ea..efd7096 100644 --- a/yarrg/web/query_age +++ b/yarrg/web/query_age @@ -46,31 +46,41 @@ $dbh <%perl> my $now= time; -my $row; my $sth= $dbh->prepare("SELECT archipelago, islandid, islandname, timestamp FROM uploads NATURAL JOIN islands - ORDER BY archipelago, islandid"); + ORDER BY archipelago, islandname"); $sth->execute(); %perl> +
Archipelago | Island | Age - |
---|---|---|
<% $row->{'archipelago'} |h %> | <% $row->{'islandname'} |h - %> | <% prettyprint_age($age) %> | <% prettyprint_age($age) %> % $rowix++; % } |
+% print $m->content(); Time since this page loaded: (not known; times above not updating) -
+%method> <%method dataages> <%args> $id2age $elemidprefix => '' + $jsprefix => 'da_' %args> <&| script &> - da_ages= <% to_json_protecttags($id2age) %>; - function da_Refresh() { + function <% $jsprefix %>Refresh() { var now= Date.now(); debug('updating now='+now); - for (var ageid in da_ages) { - var oldage= da_ages[ageid]; + for (var ageid in <% $jsprefix %>ages) { + var oldage= <% $jsprefix %>ages[ageid]; var el= document.getElementById(<% $elemidprefix %>ageid); var age= oldage + (now - da_pageload) / 1000; var newhtml= <% meta_prettyprint_age('age','Math.floor','+') %>; el.innerHTML= newhtml; } } - window.setInterval(da_Refresh, 10000); + <% $jsprefix %>ages= <% to_json_protecttags($id2age) %>; + window.setInterval(<% $jsprefix %>Refresh, 10000); + register_onload(<% $jsprefix %>Refresh); &> %method> -<& SELF:dataages, id2age => \%da_ages, elemidprefix => "'c'+" &> - -<&| script &> - ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>; - - function all_onload() { - ts_onload__ts_table(); - da_Refresh(); - } - window.onload= all_onload; -&script> + + <%init> use POSIX; use CommodsWeb;