Generalise route[text]string

[ypp-sc-tools.web-live.git] / yarrg / web / lookup

diff --git a/yarrg/web/lookup b/yarrg/web/lookup
index 751a99aa1a6916382c3843c610eda6691a02868b..0106684af46e5ba515d69b9b3aa4a92be2fc9d19 100755 (executable)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -56,6 +56,7 @@ my @vars;
        }, {    Name => 'Query',
                Before => 'Query: ',
                Values => [     [ 'route', 'Trades for route' ],
+                               [ 'commod', 'Prices for commodity' ],
                                [ 'age', 'Data age' ] ]
        });
 
@@ -152,7 +153,7 @@ $debug => 0
 
 <hr>
 
-<& "query_$a{Query}", %baseqf, %queryqf, quri => $quri, a => \%a &>
+<& "query_$a{Query}", %baseqf, %queryqf, quri => $quri, qa => \%a &>
 
 <p>