--- web/googlemap.cgi 2007/12/07 15:53:41 30
+++ web/googlemap.cgi 2007/12/08 20:37:50 31
@@ -47,11 +47,6 @@
-name => 'show',
-value => 'Show trace'
),
- ' Export to ',
- $q->submit(
- -name => 'export',
- -value => 'KML'
- ),
$q->br,
'Draw ',
$q->popup_menu(
@@ -76,7 +71,7 @@
-onChange => 'trace_frm.submit()',
),
' placemarks',
- $q->end_form,
+ $q->br,
);
@@ -198,9 +193,9 @@
);
if ( my $export = $q->param('export') ) {
- if ( $export eq 'KML' ) {
+ if ( $export =~ m/KML/i ) {
print $q->header(
- -type => 'application/xhtml+xml',
+ -type => 'application/vnd.google-earth.kml+xml',
),
KML->output( placemarks => \@filtered_placemarks );
exit;
@@ -227,6 +222,11 @@
$#points + 1, ' points from ', $q->param('trace'), ' showing ',
$points ? $points . ' points' . ( $placemarks ? ' and ' : '' ) : '',
$placemarks ? $placemarks . ' placemarks' : '',
+ ' export to ',
+ $q->submit(
+ -name => 'export',
+ -value => 'KML'
+ ),
qq{
$map_div
$map_script
@@ -244,6 +244,7 @@
$html .= 'No points found for ' . $q->param('trace') . '';
}
+ $html .= $q->end_form;
}
print $q->header;