X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_age;h=4f8ba814b7f1e5ddf2b0ce0fc22549ad560b728d;hb=6cc86c4b4db1302d06c6c9571d199ba2ae06c354;hp=fc7999341fee3451976280d98faa00d2770aa1b1;hpb=f6d7a4d627f3ecc0624649bb895dbf8e59afcf47;p=ypp-sc-tools.db-live.git diff --git a/yarrg/web/query_age b/yarrg/web/query_age index fc79993..4f8ba81 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 &> - ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>; - da_ages= <% to_json_protecttags(\%da_ages) %>; - - function da_Refresh() { + function <% $jsprefix %>Refresh() { var now= Date.now(); debug('updating now='+now); - for (var rowid in da_ages) { - var oldage= da_ages[rowid]; - var cellid= 'c'+rowid; - var el= document.getElementById(cellid); + 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','+') %>; -% if ($ARGS{debug}) { - if (cellid == 'cid_loaded') - debug('element rowid='+rowid+' cellid='+cellid - +' oldage='+oldage+' age='+age+': '+newhtml); -% } el.innerHTML= newhtml; } } + <% $jsprefix %>ages= <% to_json_protecttags($id2age) %>; + window.setInterval(<% $jsprefix %>Refresh, 10000); + register_onload(<% $jsprefix %>Refresh); +&> +%method> - function all_onload() { - ts_onload__ts_table(); - da_Refresh(); - } - window.onload= all_onload; - window.setInterval(da_Refresh, 10000); -&script> + + <%init> use POSIX; use CommodsWeb;