httemplate/elements/coord-links.html

   1 <& /elements/init_overlib.html &>
   2
   3 <& /elements/popup_link.html,
   4      'action'      => $p. 'view/map.html?'. $query,
   5      'label'       => mt('map'),
   6      'actionlabel' => $name,
   7      'width'       => 763,
   8      'height'      => 575,
   9      #'color'
  10 &>
  11
  12 % if ( $origin ) {
  13   <& /elements/popup_link.html,
  14       'action'      => $p. "view/directions.html?origin=$origin;". $query,
  15       'label'       => mt('dir'),
  16       'actionlabel' => $name,
  17       'width'       => 763,
  18       'height'      => 575,
  19   &>
  20 % }
  21
  22 <A HREF="<%$p%>view/kml.cgi?<% $query %>"><% mt('earth') |h %></A>
  23
  24 <%init>
  25
  26 my ($latitude, $longitude, $name, $agentnum) = @_;
  27
  28 my $query = 'name='. uri_escape($name).
  29             ';lat='. $latitude.
  30             ';lon='. $longitude;
  31
  32 my $origin;
  33 #for directions link
  34 if ( $agentnum =~ /^\d+$/ ) {
  35   $origin = FS::Conf->new->config('company_address', $agentnum);
  36   $origin = uri_escape($origin);
  37 }
  38 </%init>