X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Froutetextstring;h=b84fd8447708e70b4b463ab10fdf2719545cc1d0;hp=0e4ae6eaf2b37d5786c05800ab1497dd7d1c6302;hb=7031695ce7767c196f2ef0f279bf4e3c7931c211;hpb=007700c6236644463a0e78724b8260f14be4bedd

diff --git a/yarrg/web/routetextstring b/yarrg/web/routetextstring
index 0e4ae6e..b84fd84 100644
--- a/yarrg/web/routetextstring
+++ b/yarrg/web/routetextstring
@@ -6,6 +6,10 @@ $string
 </%args>
 <%perl>
 
+# typical url for this script:
+#  http://www.chiark.greenend.org.uk/ucgi/~clareb/mason/pirates/routetextstring?format=json&ocean=Midnight&string=d
+
+
 use CommodsWeb;
 use HTML::Entities;
 use JSON;
@@ -29,7 +33,7 @@ if ($format =~ 'json') {
 	})};
 	$output_wrong= sub { print to_json({
 		success => 0,
-		show => encode_entities($_[0]),
+		show => $_[0],
 	})};
 }		
 
@@ -47,7 +51,7 @@ foreach my $each (split m#[/|,]#, $string) {
 	if (!@$results) {
 		$err->('no island or arch matches "%s"');
 	} elsif (@$results > 3) {
-		$err->('');
+		$err->('&nbsp;');
 	} elsif (@$results > 1) {
 		my @m= map { $_->[2] } @$results;
 		$err->('ambiguous island or arch "%s", could be '.