X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_age;h=efd709692a855426a1ae3f7ca819a2f009ce8b4f;hp=d9b234dd559e074353641f7c1ccd5fae7f9b4916;hb=1f6f88af87868d6e059be154ed6b56dd9ea7ac6c;hpb=872e647cac241531e4599c8b8b330d8772020253 diff --git a/yarrg/web/query_age b/yarrg/web/query_age index d9b234d..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 - |
---|
+% print $m->content(); +Time since this page loaded: +(not known; times above not updating) + +%method> -<& SELF:dataages, id2age => \%da_ages, elemidprefix => "'c'+" &> <%method dataages> <%args> $id2age $elemidprefix => '' + $jsprefix => 'da_' %args> <&| script &> - 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; } } - da_ages= <% to_json_protecttags($id2age) %>; - window.setInterval(da_Refresh, 10000); - register_onload(da_Refresh); + <% $jsprefix %>ages= <% to_json_protecttags($id2age) %>; + window.setInterval(<% $jsprefix %>Refresh, 10000); + register_onload(<% $jsprefix %>Refresh); &> %method> -<&| tabsort, table => 'ts_table', rowclass => 'datarow', cols => [ - {}, {}, - { DoReverse => 1, - Numeric => 1, - SortKey => "da_ages[rowid]" }] - &> - ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>; -&tabsort> - -
-Time since this page loaded: -(not known; times above not updating) -
+ <%init> use POSIX; use CommodsWeb;