Revision 2280
Added by sgarg over 20 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 1196 | 1196 |
$cov .= "<geographicDescription>".normalize($FORM::geogdesc)."</geographicDescription>\n"; |
| 1197 | 1197 |
} |
| 1198 | 1198 |
|
| 1199 |
if($FORM::latDeg1 != 0 && $FORM::longDeg1 != 0) {
|
|
| 1199 |
if($latDeg1 != 0 && $longDeg1 != 0) {
|
|
| 1200 | 1200 |
$cov .= "<boundingCoordinates>\n"; |
| 1201 | 1201 |
# if the second latitude is missing, then set the second lat/long pair |
| 1202 | 1202 |
# equal to the first this makes a point appear like a rectangle |
| 1203 |
if ($FORM::latDeg2 == 0 && $FORM::latMin2 == 0 && $FORM::latSec2 == 0) {
|
|
| 1203 |
if ($FORM::useSiteCoord || ($FORM::latDeg2 == 0 && $FORM::latMin2 == 0 && $FORM::latSec2 == 0)) {
|
|
| 1204 | 1204 |
|
| 1205 | 1205 |
$latDeg2 = $latDeg1; |
| 1206 | 1206 |
$latMin2 = $latMin1; |
Also available in: Unified diff
Fixed a bug in creation of EML documents when coordinates from the site_list have to be used.