if (!defined $wtarch) {
error("island from chart not found on ocean page: $island");
} elsif (defined $wiarch and $wtarch ne $wiarch) {
-# error("island in $wtarch on ocean page but".
- warning("island in $wtarch on ocean page but".
+ error("island in $wtarch on ocean page but".
" concluded $wiarch from chart: $island");
}
}