Before => 'Query: ',
Values => [ [ 'route', 'Trades for route' ],
[ 'commod', 'Prices for commodity' ],
+ [ 'offers', 'Offers at location' ],
+ [ 'routesearch', 'Find profitable route' ],
[ 'age', 'Data age' ] ]
}, { Name => 'BuySell',
Before => '',
<a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
Yet Another Revenue Research Gatherer
|
-<a href="devel">development</a>
-|
<a href="intro">introduction</a>
|
<a href="docs">documentation</a>
+|
+<a href="devel">development</a>
<p>
<%perl>
foreach my $var (keys %ARGS) {
next unless $var =~
- m/^(?: (?:route|commod|capacity|capital)string |
- lossperleague |
+ m/^(?: (?:route|commod|capacity|capital|island)string |
+ lossperleague | distance |
commodid |
islandid \d |
archipelago \d |
<hr>
<& "query_$styles{Query}", %baseqf, %queryqf, %styles,
- quri => $quri, dbh => $dbh,
+ quri => $quri, dbh => $dbh, queryqf => \%queryqf,
prselector => $prselector,
someresults => $someresults,
emsgokorprint => sub {