X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fweb%2Flookup;h=2f67760c487d6f1281b37bcb819ca6a7b2dd3d01;hp=ec72a6ee5c37e974efb7286d4537f05404ab120e;hb=a1fb96b672d234f5961a397215c19c2c631c5cc3;hpb=db998ff5d636967de9de9218ff0b940a4feb9a6d

diff --git a/yarrg/web/lookup b/yarrg/web/lookup
index ec72a6e..2f67760 100755
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -58,6 +58,7 @@ my %styles;
 		Values => [	[ 'route', 'Trades for route' ],
 				[ 'commod', 'Prices for commodity' ],
 				[ 'offers', 'Offers at location' ],
+				[ 'routesearch', 'Find profitable route' ],
 				[ 'age', 'Data age' ] ]
 	}, {	Name => 'BuySell',
 		Before => '',
@@ -79,6 +80,12 @@ my %styles;
 				[ 1, 'Show individual stalls' ],
 			],
 		QuerySpecific => 1,
+	}, {	Name => 'RouteSearchType',
+		Before => 'Type of routes to search for: ',
+		Values => [	[ 0, 'Open-ended' ],
+				[ 1, 'Circular' ],
+			],
+		QuerySpecific => 1,
 	});
 
 foreach my $var (@vars) {
@@ -142,11 +149,11 @@ tr.datarow1 { background: #ffffff; }
 <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>
 
@@ -158,8 +165,8 @@ foreach my $var (@vars) {
 
 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 |
@@ -247,7 +254,7 @@ $debug => 0
 <hr>
 
 <& "query_$styles{Query}", %baseqf, %queryqf, %styles,
-    quri => $quri, dbh => $dbh,
+    quri => $quri, dbh => $dbh, queryqf => \%queryqf, allargs => \%ARGS,
     prselector => $prselector,
     someresults => $someresults,
     emsgokorprint => sub {