<input type="text" name="routestring" size=80
onchange="textRoute_element= event.currentTarget; textRoute_Needed();"
onkeydown="textRoute_element= event.currentTarget; textRoute_Later();"><br>
-<div name="routeresults"></div><br/>
+<div name="routeresults"> </div><br/>
% } else {
</%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;
})};
$output_wrong= sub { print to_json({
success => 0,
- show => encode_entities($_[0]),
+ show => $_[0],
})};
}
if (!@$results) {
$err->('no island or arch matches "%s"');
} elsif (@$results > 3) {
- $err->('');
+ $err->(' ');
} elsif (@$results > 1) {
my @m= map { $_->[2] } @$results;
$err->('ambiguous island or arch "%s", could be '.