X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_age;h=fd2044d97b4463457d88776b71dc0000b45590ea;hp=f9466d385f0fd5198135ef4a8e2aa7fac51c000a;hb=eb4dd353926d8d5f38ea442ee172ce0b2bb5925e;hpb=fdf4e5538945f9d058f3ad54ddfe707b0977e1d4 diff --git a/yarrg/web/query_age b/yarrg/web/query_age index f9466d3..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; @@ -102,7 +102,7 @@ $sth->execute(); {}, {}, { DoReverse => 1, Numeric => 1, - SortKey => "da_ages[rowid]" }] + SortKey => "dat_ages[rowid]" }] &> ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>; @@ -142,6 +142,7 @@ Time since this page loaded: <& "lookup:formhidden", ours => sub { 0; } &> + <%init> use POSIX; use CommodsWeb;
Archipelago Island Age -