</%doc>
<%args>
$quri
-$qa
$routestring => '';
</%args>
<%perl>
my @islandids;
my %islandid2;
+my $qa= \%ARGS;
</%perl>
%#---------- textbox, user enters route as string ----------
if (!$qa->{Dropdowns}) {
if (length $routestring) {
$results_head->();
- my ($emsg,$canonstring,$results)= $m->comp('check_routestring',
+ my ($emsg,$canonstring,$results)= $m->comp('qtextstringcheck',
+ what => 'routestring',
ocean => $qa->{Ocean},
string => $routestring,
format => 'return'
print encode_entities($emsg);
} else {
foreach my $entry (@$results) {
- push @archipelagoes,
- defined $entry->[1] ? undef : $entry->[0];
push @islandids, $entry->[1];
+ push @archipelagoes,
+ defined $entry->[1] ? undef : $entry->[2];
}
}
}