--- 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;