Much tidying; preserve query type etc. in query_commod

[ypp-sc-tools.db-live.git] / yarrg / web / routetrade

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index d0d4a76624c99a5d89e2c844926b04d826f03563..4475d27197915154c8cc4204556c10259dd355b2 100644 (file)
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -14,7 +14,7 @@ Route is as follows:
 %   $islandid= '<undef>' unless defined $islandid;
 %   $archipelago= '<undef>' unless defined $archipelago;
 %
-  islandid=<% $islandid %>  archipelago=<% $archipelago %>
+  islandid=<% $islandid |h %>  archipelago=<% $archipelago |h %>
 %
 % }
 
@@ -22,6 +22,5 @@ Route is as follows:
 
 <%init>
 use CommodsWeb;
-db_setocean('Midnight');
-db_connect();
+my $dbh= dbw_connect('Midnight');
 </%init>