<& /elements/header-popup.html, {
title => '',#$name,
head => $head,
etc => 'onload="html_googlemaps_initialize()"',
nobr => 1,
}
&>
<% $map_div %>
<%init>
my $name = js_string( scalar($cgi->param('name')) );
my $point = [ map scalar($cgi->param($_)), qw( longitude latitude ) ];
my( $head, $map_div ) = onload_render(
$name,
map scalar($cgi->param($_)), qw( lat lon )
);
#false laziness w/Mason.pm
sub js_string {
my $string = shift;
$string =~ s/(['\\])/\\$1/g;
$string =~ s/\r/\\r/g;
$string =~ s/\n/\\n/g;
$string = "'". $string. "'";
return $string;
}
#subroutines below derived from HTML::GoogleMapsV3, but without using
#Geo::Coder::Google or GPS::Point
sub onload_render
{
## my $self = shift;
my( $name, $latitude, $longitude ) = @_;
#map_canvas { height: 100% }
my $header='
';
#my $div = '';
my $div = '';
$header .= "";
return ($header,$div)
}