%# the actual page <& /elements/header-popup.html, { title => '',#$name, head => include('.head'), etc => 'onload="initialize()"', nobr => 1, } &>
<%def .head> % my $lat = $cgi->param('lat'); % my $lon = $cgi->param('lon'); %def> <%shared> my ($lat, $lon, $name, $origin); my $conf = new FS::Conf; my $apikey = $conf->config('google_maps_api_key'); %shared> <%init> $name = $cgi->param('name'); $lat = $cgi->param('lat'); $lon = $cgi->param('lon'); $lat =~ /^-?\d+(\.\d+)?$/ or die "bad latitude: $lat"; $lon =~ /^-?\d+(\.\d+)?$/ or die "bad longitude: $lat"; $origin = $cgi->param('origin') or die "no origin specified"; %init>