From 64bc4a3add1caac7692268a7fe0889e024bbd487 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 23 Aug 2009 16:05:07 +0100
Subject: [PATCH] Better title for routetrade results

---
 yarrg/web/lookup      | 4 +++-
 yarrg/web/query_route | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

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,
-- 
2.30.2