From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 23 Aug 2009 15:05:07 +0000 (+0100)
Subject: Better title for routetrade results
X-Git-Tag: 3.4~133
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=64bc4a3add1caac7692268a7fe0889e024bbd487

Better title for routetrade results
---

diff --git a/yarrg/web/lookup b/yarrg/web/lookup
index cfffd14..e3c6770 100755
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -209,7 +209,9 @@ my $results_head_done=0;
 my $someresults= sub {
 	return if $results_head_done;
 	$results_head_done=1;
-	print "\n<h1>Results</h1>\n";
+	my ($h)= @_;
+	$h= 'Results' if !$h;
+	print "\n<h1>$h</h1>\n";
 };
 
 </%perl>
diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index adcb89d..be1196e 100644
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -205,7 +205,7 @@ for my $dd (0..$qa->{Dropdowns}-1) {
 </%perl>
 
 % if (@islandids) {
-%	$someresults->();
+%	$someresults->('Relevant trades');
 <& routetrade,
    dbh => $dbh,
    islandids => \@islandids,