From beff42c07503b7a74bd455d1c299341d16a493cd Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 12 Aug 2009 12:15:54 +0100
Subject: [PATCH] Fix nonunique island/arch name reporting

---
 yarrg/web/routetextstring | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/yarrg/web/routetextstring b/yarrg/web/routetextstring
index 70d6144..4cec5f9 100644
--- a/yarrg/web/routetextstring
+++ b/yarrg/web/routetextstring
@@ -46,23 +46,23 @@ foreach my $each (split m#[/|,]#, $string) {
 		$output_wrong->($msg);
 		$m->abort();
 	};
-	my @m;
+	my %m;
 	my $results;
 	foreach my $pat ("$each\%", "\%$each\%") {
 		$sth->execute($pat,$pat);
 		$results= $sth->fetchall_arrayref();
 		last if @$results==1;
-		push @m, @$results;
+		map { $m{ $_->[2] }=1 } @$results;
 		$results= undef;
 	}
 	if (!$results) {
-		if (!@m) {
+		if (!%m) {
 			$err->('no island or arch matches "%s"');
-		} elsif (@m > 3) {
+		} elsif (%m > 5) {
 			$err->('&nbsp;');
 		} else {
 			$err->('ambiguous island or arch "%s", could be '.
-				join(', ', map { $_->[2] } @m));
+				join(', ', sort keys %m));
 		}
 	}
 	push @results, $results->[0];
-- 
2.30.2