#---------- initial checks, startup, main entry form ----------
-die "unknown ocean $a{Ocean} ?"
- unless grep { $_ eq $a{Ocean} } ocean_list();
-
-db_setocean($a{Ocean});
-db_connect();
+dbw_connect($a{Ocean});
</%perl>
<%args>
return $out;
};
+my $dbh= dbw_connect($a{Ocean});
+
$sth= $dbh->prepare("SELECT DISTINCT archipelago FROM islands
ORDER BY archipelago;");
$sth->execute();
use CommodsWeb;
use HTML::Entities;
use URI::Escape;
+use JSON;
</%init>