X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=393e7a668755145d05262a56b56ed005330669c1;hp=ee457f57abd41502ad3d54f58385b16638e8ced5;hb=59bee7afb77216585b904bd20f17e71005e9778c;hpb=f3fdcfd6d9e7d88fbc97f9294c302c338d2500b5 diff --git a/yarrg/web/query_route b/yarrg/web/query_route index ee457f5..393e7a6 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -86,10 +86,10 @@ Enter route (islands, or archipelagoes, separated by |s or commas; % } else { #---------- dropdowns, user selects from menus ---------- -$startform->(grep { - defined %ARGS{"archipelago$dd"} || - defined %ARGS{"islandid$dd"} - } (0..$qa->{Dropdowns}-1)); +% $startform->(grep { +% defined $ARGS{"archipelago$_"} || +% defined $ARGS{"islandid$_"} +% } (0..$qa->{Dropdowns}-1)); <%perl> my ($sth,$row);