chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow downloading of database tree source code via dictup CGI scripts
[ypp-sc-tools.main.git]
/
yarrg
/
web
/
query_age
diff --git
a/yarrg/web/query_age
b/yarrg/web/query_age
index f9466d385f0fd5198135ef4a8e2aa7fac51c000a..fd2044d97b4463457d88776b71dc0000b45590ea 100644
(file)
--- 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();
</%perl>
$sth->execute();
</%perl>
+<div class="results">
<& SELF:pageload &>
<%method pageload>
<& SELF:pageload &>
<%method pageload>
@@
-69,12
+70,11
@@
$sth->execute();
$now
$fetchrow
</%args>
$now
$fetchrow
</%args>
-<table
id="ts_table
">
+<table
class="data" id="ts_table" rules="groups
">
<tr>
<th>Archipelago
<th>Island
<th>Age
<tr>
<th>Archipelago
<th>Island
<th>Age
-</tr>
% my $row;
% my %da_ages;
% my %ts_sortkeys;
% my $row;
% my %da_ages;
% my %ts_sortkeys;
@@
-102,7
+102,7
@@
$sth->execute();
{}, {},
{ DoReverse => 1,
Numeric => 1,
{}, {},
{ DoReverse => 1,
Numeric => 1,
- SortKey => "da_ages[rowid]" }]
+ SortKey => "da
t
_ages[rowid]" }]
&>
ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>;
</&tabsort>
&>
ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>;
</&tabsort>
@@
-142,6
+142,7
@@
Time since this page loaded:
<& "lookup:formhidden", ours => sub { 0; } &>
</form>
<& "lookup:formhidden", ours => sub { 0; } &>
</form>
+</div>
<%init>
use POSIX;
use CommodsWeb;
<%init>
use POSIX;
use CommodsWeb;