if (!defined $wtarch) {
error("island from chart not found on ocean page: $island");
} elsif (defined $wiarch and $wtarch ne $wiarch) {
if (!defined $wtarch) {
error("island from chart not found on ocean page: $island");
} elsif (defined $wiarch and $wtarch ne $wiarch) {