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' => $js_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('directions'),
  16       'actionlabel' => $js_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_utf8($name).
  29             ';lat='. $latitude.
  30             ';lon='. $longitude;
  31
  32 my $js_name = $name;
  33 $js_name =~ s/[<>"]/ /g;
  34 $m->interp->apply_escapes($js_name, 'js_string');
  35 $js_name =~ s/^'//;
  36 $js_name =~ s/'$//;
  37
  38 my @origin;
  39 my $origin;
  40 #for directions link
  41 if ( $agentnum =~ /^\d+$/ ) {
  42   @origin = FS::Conf->new->config('company_address', $agentnum);
  43   $origin = join (/,/,@origin);
  44   $origin = uri_escape($origin);
  45 }
  46 </%init>