X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_age;h=77d750c8c95ec2c0386b79f785111df215851e0b;hb=98610392fde2add293bee6199f2de1d6f88559d8;hp=c5009d3bac56498fb0ae9cc5ac78482aa791af40;hpb=aed32e2dcb952bcfc9678eef4125e269f538edf2;p=ypp-sc-tools.web-live.git

diff --git a/yarrg/web/query_age b/yarrg/web/query_age
index c5009d3..77d750c 100644
--- a/yarrg/web/query_age
+++ b/yarrg/web/query_age
@@ -33,6 +33,12 @@
 
 
 </%doc>
+
+<%args>
+$quri
+$dbh
+</%args>
+
 <%once>
 my $meta_prettyprint_age= sub {
     my ($age,$floor,$plus) = @_;
@@ -56,7 +62,6 @@ eval '
 </%once>
 
 <%perl>
-
 my $now= time;
 
 my $row;
@@ -96,10 +101,8 @@ Time since this page loaded:
 <span id="daid_loaded">(not known; times above not updating)</span>
 
 <form action="lookup" method="get">
-% foreach my $a (keys %ARGS) {
-<input type="hidden" name="<% $a |h %>" value="<% $ARGS{$a} |h %>">
-% }
 <input type=submit name=submit value="Reload">
+<& "lookup:formhidden", ours => sub { 0; } &>
 </form>
 
 <&| script &>
@@ -128,5 +131,4 @@ Time since this page loaded:
 <%init>
 use POSIX;
 use CommodsWeb;
-my $dbh= dbw_connect('Midnight');
 </%init>