X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_age;h=a115bbdd562dd53286be49ff175f5519f366cd28;hb=19669922dd2393c23371ee1532824e528b897de0;hp=a02187eae01d1b85988382f3e82bc538c6ba010f;hpb=767e625796d67e5f5cc94d7e1949b1389f753764;p=ypp-sc-tools.db-test.git diff --git a/yarrg/web/query_age b/yarrg/web/query_age index a02187e..a115bbd 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"); + FROM uploads JOIN islands USING (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> -<& 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) { + if (!<% $jsprefix %>ages.hasOwnProperty(ageid)) continue; + 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;