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=fd2044d97b4463457d88776b71dc0000b45590ea;hp=7cfe54e291799e6c8daa53ec0207c0f4d37eeead;hb=efd685a5df610ffefc545a41be67e2e0d4b69c7c;hpb=6302552bfa5844eddb7c26386c9995733f0a5174 diff --git a/yarrg/web/query_age b/yarrg/web/query_age index 7cfe54e..fd2044d 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,12 +70,11 @@ $sth->execute(); $now $fetchrow - +
% my $row; % my %da_ages; % my %ts_sortkeys; @@ -142,6 +142,7 @@ Time since this page loaded: <& "lookup:formhidden", ours => sub { 0; } &> + <%init> use POSIX; use CommodsWeb;
Archipelago Island Age -