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=7cfe54e291799e6c8daa53ec0207c0f4d37eeead;hb=ad29b01fe6470a4b3bb108a8f485657927175e24;hpb=1da4d6e0bbabfb308c1cc5d1e08a2712ce647259 diff --git a/yarrg/web/query_age b/yarrg/web/query_age index 7cfe54e..efd7096 100644 --- a/yarrg/web/query_age +++ b/yarrg/web/query_age @@ -52,6 +52,7 @@ my $sth= $dbh->prepare("SELECT archipelago, islandid, islandname, timestamp $sth->execute(); +
<& SELF:pageload &> <%method pageload> @@ -69,19 +70,17 @@ $sth->execute(); $now $fetchrow - +
% my $row; % my %da_ages; % my %ts_sortkeys; % $da_ages{'id_loaded'}= 0; % my $rowix= 0; % while ($row= $fetchrow->()) { -% print STDERR "$row\n"; % my $rowid= "id_$row->{'islandid'}"; % my $cellid= "c$rowid"; % my $age= $now - $row->{'timestamp'}; @@ -142,6 +141,7 @@ Time since this page loaded: <& "lookup:formhidden", ours => sub { 0; } &> + <%init> use POSIX; use CommodsWeb;
Archipelago Island Age -