Changeset 730

Timestamp:

12/21/05 18:16:36 (3 years ago)

Author:

dom

Message:

Add initial google maps support, see #46 but this isn't yet a complete
implementation so leaving the bug open for now.

Location:

trunk

Files:

• Build.PL (modified) (1 diff)
• Changes (modified) (1 diff)
• lib/OpenGuides.pm (modified) (4 diffs)
• lib/OpenGuides/CGI.pm (modified) (6 diffs)
• lib/OpenGuides/Config.pm (modified) (4 diffs)
• lib/OpenGuides/Template.pm (modified) (2 diffs)
• lib/OpenGuides/Utils.pm (modified) (3 diffs)
• preferences.cgi (modified) (3 diffs)
• t/28_wgs84_coords.t (added)
• templates/header.tt (modified) (1 diff)
• templates/node.tt (modified) (1 diff)
• templates/preferences.tt (modified) (2 diffs)

trunk/Build.PL

@@ -77 +77 @@
    admin_pass stylesheet_url site_name navbar_on_home_page home_name
    site_desc default_city default_country contact_email default_language
-   formatting_rules_node backlinks_in_title
+   formatting_rules_node backlinks_in_title gmaps_api_key centre_long
+   centre_lat default_gmaps_zoom default_gmaps_search_zoom force_wgs84
   ) ) {
     my $q_method = $var . "__qu";

trunk/Changes

@@ -8 +8 @@
         Fix missing bracket in node.tt.
         Add custom_node template just below main content in node.tt.
+        Google Maps support! There is a new index type,
+        wiki.cgi?action=index;format=map, and maps appear in the node listings
+        (the latter feature is user-configurable).
         Fix <link> in RSS to point to RecentChanges page, not the feed itself.
         #67 Default website for a page is now http://

trunk/lib/OpenGuides.pm

@@ -172 +172 @@
     my %metadata   = %{$node_data{metadata}};
 
+    my ($wgs84_long, $wgs84_lat) = OpenGuides::Utils->get_wgs84_coords(
+                                        longitude => $metadata{longitude}[0],
+                                        latitude => $metadata{latitude}[0],
+                                        config => $config);
     if ($args{format} && $args{format} eq 'raw') {
       print "Content-Type: text/plain\n\n";
@@ -193 +197 @@
                    language      => $config->default_language,
                    oldid         => $oldid,
+                   enable_gmaps  => 1,
+                   display_google_maps => $self->get_cookie("display_google_maps"),
+                   wgs84_long    => $wgs84_long,
+                   wgs84_lat     => $wgs84_lat
                );
 
@@ -543 +551 @@
             $template = "plain_index.tt";
             $conf{content_type} = "text/plain";
+        } elsif ( $args{format} eq "map" ) {
+            my $q = CGI->new;
+            $tt_vars{zoom} = $q->param('zoom') || '';
+            $tt_vars{lat} = $q->param('lat') || '';
+            $tt_vars{long} = $q->param('long') || '';
+            $tt_vars{centre_long} = $self->config->centre_long;
+            $tt_vars{centre_lat} = $self->config->centre_lat;
+            $tt_vars{default_gmaps_zoom} = $self->config->default_gmaps_zoom;
+            $tt_vars{enable_gmaps} = 1;
+            $tt_vars{display_google_maps} = 1; # override for this page
+            $template = "map_index.tt";
+            
         }
     } else {
@@ -929 +949 @@
 }
 
-
 =back
 

trunk/lib/OpenGuides/CGI.pm

@@ -2 +2 @@
 use strict;
 use vars qw( $VERSION );
-$VERSION = '0.06';
+$VERSION = '0.07';
 
 use Carp qw( croak );
@@ -39 +39 @@
       cookie_expires             => "never",
       track_recent_changes_views => 1,
+      display_google_maps        => 1
   );
 
@@ -83 +84 @@
       cookie_expires             => "never",
       track_recent_changes_views => 1,
+      display_google_maps        => 1
   );
 
@@ -125 +127 @@
                     exp        => $args{cookie_expires},
                     trackrc    => $args{track_recent_changes_views} || 0,
+                    gmaps      => $args{display_google_maps} || 0
                   },
         -expires => $expires,
@@ -162 +165 @@
              cookie_expires             => $data{exp}        || "month",
              track_recent_changes_views => $data{trackrc}    || 0,
+             display_google_maps        => $data{gmaps}      || 0
            );
 }
@@ -256 +260 @@
 =head1 COPYRIGHT
 
-     Copyright (C) 2003-2004 The OpenGuides Project.  All Rights Reserved.
+     Copyright (C) 2003-2005 The OpenGuides Project.  All Rights Reserved.
 
 This module is free software; you can redistribute it and/or modify it

trunk/lib/OpenGuides/Config.pm

@@ -10 +10 @@
    admin_pass stylesheet_url site_name navbar_on_home_page home_name
    site_desc default_city default_country contact_email default_language
-   formatting_rules_node formatting_rules_link backlinks_in_title template_path custom_template_path
-   geo_handler ellipsoid
+   formatting_rules_node formatting_rules_link backlinks_in_title template_path
+   custom_template_path geo_handler ellipsoid gmaps_api_key centre_long
+   centre_lat default_gmaps_zoom default_gmaps_search_zoom force_wgs84
 );
 my @questions = map { $_ . "__qu" } @variables;
@@ -77 +78 @@
                      backlinks_in_title => 0,
                      geo_handler => 1,
-                     ellipsoid => "International"
+                     ellipsoid => "International",
+                     centre_long => 0,
+                     centre_lat => 0,
+                     default_gmaps_zoom => 5,
+                     default_gmaps_search_zoom => 3,
+                     force_wgs84 => 0
                    );
 
@@ -135 +141 @@
         backlinks_in_title => "Make node titles link to node backlinks (C2 style)?",
         ellipsoid => "Which ellipsoid do you want to use? (eg 'Airy', 'WGS-84')",
+        gmaps_api_key => "Do you have a Google Maps API key to use with this guide? If you enter it here the Google Maps functionality will be automatically enabled.",
+        centre_long => "What is the longitude of the centre point of a map to draw for your guide? (This question can be ignored if you aren't using Google Maps)",
+        centre_lat => "What is the latitude of the centre point of a map to draw for your guide? (This question can be ignored if you aren't using Google Maps)",
+        default_gmaps_zoom => "What default zoom level shall we use for Google Maps? (This question can be ignored if you aren't using Google Maps)",
+        default_gmaps_search_zoom => "What default zoom level shall we use for Google Maps in the search results? (This question can be ignored if you aren't using Google Maps)",
+        force_wgs84 => "Forcibly treat stored lat/long data as if they used the WGS84 ellipsoid?"
     );
 
@@ -223 +235 @@
 =item * ellipsoid (default: C<International>)
 
+=item * gmaps_api_key
+
+=item * centre_long
+
+=item * centre_lat
+
+=item * default_gmaps_zoom
+
+=item * default_gmaps_search_zoom
+
+=item * force_wgs84
+
 =back
 

trunk/lib/OpenGuides/Template.pm

@@ -86 +86 @@
 
 =item * C<home_name>
+
+=item * C<gmaps_api_key>
 
 =back
@@ -154 +156 @@
         language              => $config->default_language,
         default_city          => $default_city,
+        gmaps_api_key         => $config->gmaps_api_key
     };
 

trunk/lib/OpenGuides/Utils.pm

@@ -3 +3 @@
 use strict;
 use vars qw( $VERSION );
-$VERSION = '0.08';
+$VERSION = '0.09';
 
 use Carp qw( croak );
@@ -217 +217 @@
 }
 
+=item B<get_wgs84_coords>
+
+Returns coordinate data suitable for use with Google Maps (and other GIS
+systems that assume WGS-84 data).
+
+    my ($wgs84_long, $wgs84_lat) = OpenGuides::Utils->get_wgs84_coords(
+                                        longitude => $longitude,
+                                        latitude => $latitude,
+                                        config => $config
+                                   );
+
+=cut
+
+sub get_wgs84_coords {
+    my ($self, %args) = @_;
+    my ($longitude, $latitude, $config) = ($args{longitude}, $args{latitude},
+                                           $args{config})
+       or croak "No longitude supplied to get_wgs84_coords";
+    croak "geo_handler not defined!" unless $config->geo_handler;
+    if ($config->force_wgs84) {
+        # Only as a rough approximation, good enough for large scale guides
+        return ($longitude, $latitude);
+    } elsif ($config->geo_handler == 1) {
+        # Do conversion here
+        return undef;
+    } elsif ($config->geo_handler == 2) {
+        # Do conversion here
+        return undef;
+    } elsif ($config->geo_handler == 3) {
+        if ($config->ellipsoid eq "WGS-84") {
+            return ($longitude, $latitude);
+        } else {
+            # Do conversion here
+            return undef;
+        }
+    } else {
+        croak "Invalid geo_handler config option $config->geo_handler";
+    }
+}
 
 =back
@@ -226 +265 @@
 =head1 COPYRIGHT
 
-     Copyright (C) 2003-2004 The OpenGuides Project.  All Rights Reserved.
+     Copyright (C) 2003-2005 The OpenGuides Project.  All Rights Reserved.
 
 This module is free software; you can redistribute it and/or modify it

trunk/preferences.cgi

@@ -34 +34 @@
     my $expires      = $cgi->param("cookie_expires")             || "month";
     my $track_rc     = $cgi->param("track_recent_changes_views") || 0;
+    my $gmaps        = $cgi->param("display_google_maps")        || 0;
     my $prefs_cookie = OpenGuides::CGI->make_prefs_cookie(
         config => $config,
@@ -45 +46 @@
         cookie_expires         => $expires,
         track_recent_changes_views => $track_rc,
+        display_google_maps    => $gmaps
     );
     my @cookies = ( $prefs_cookie );
@@ -72 +74 @@
                       cookie_expires             => $expires,
                       track_recent_changes_views => $track_rc,
+                      display_google_maps        => $gmaps
                     }
     );

trunk/templates/header.tt

@@ -29 +29 @@
     <meta name="robots" content="noindex,nofollow" />
   [% END %]
+  [% IF enable_gmaps AND display_google_maps AND gmaps_api_key %]
+    <script src="http://maps.google.com/maps?file=api&amp;v=1&amp;key=[% gmaps_api_key %]" type="text/javascript"></script>
+  [% END %]
 </head>
 <body>
+  [% IF enable_gmaps AND display_google_maps AND gmaps_api_key %]
+    <script defer="defer" type="text/javascript">
+      //<![CDATA[
+        var baseIcon = new GIcon();
+        baseIcon.image = "http://www.google.com/mapfiles/marker.png";
+        baseIcon.shadow = "http://www.google.com/mapfiles/shadow50.png";
+        baseIcon.iconSize = new GSize(10, 17);
+        baseIcon.shadowSize = new GSize(20, 17);
+        baseIcon.iconAnchor = new GPoint(5, 17);
+        baseIcon.infoWindowAnchor = new GPoint(9, 2);
+        baseIcon.infoShadowAnchor = new GPoint(9, 12);
+      //]]>
+    </script>
+  [% END %]

trunk/templates/node.tt

@@ -7 +7 @@
 [% IF oldid %]
 <div id="redirect_message">(redirected from <a href="[% full_cgi_url %]?id=[% oldid %];redirect=0">[% oldid.replace('_', ' ') %]</a>)</div>
+[% END %]
+
+[% IF wgs84_lat AND wgs84_long AND display_google_maps and gmaps_api_key %]
+  <div id="map" style="float:right; width: 300px; height: 200px"></div>
+  <script defer="defer" type="text/javascript">
+  //<![CDATA[
+    var map = new GMap(document.getElementById("map"));
+    map.addControl(new GSmallMapControl());
+    map.centerAndZoom(new GPoint([% longitude %], [% latitude %]), 3);
+    var point0 = new GPoint([% wgs84_long %], [% wgs84_lat %]);
+    var marker0 = new GMarker(point0,baseIcon);
+    GEvent.addListener(marker0, "click", function() {
+      marker0.openInfoWindowHtml("[% node_name %]");
+      });
+    map.addOverlay(marker0);
+  //]]>
+  </script>
 [% END %]
 

trunk/templates/preferences.tt

@@ -76 +76 @@
     </p>
 
+    [% IF gmaps_api_key %]
+      <p>
+        [% IF display_google_maps %]
+          <input type="checkbox" id="display_google_maps" name="display_google_maps" value="1" checked="1" />
+        [% ELSE %]
+          <input type="checkbox" id="display_google_maps" name="display_google_maps" value="1" />
+        [% END %]
+        <label for="display_google_maps">Display Google Maps.</label>
+      </p>
+    [% END %]
+
     <p>
       <label for="default_edit_type">Default edit type:</label>
@@ -151 +162 @@
   be tracked.</p>
 
+  [% IF gmaps_api_key %]
+    <p>Google Maps will
+      [% UNLESS display_google_maps %] not [% END %]
+    be displayed.</p>
+  [% END %]
+
   <p>Default edit type set to
     [% IF default_edit_type == 'normal' %]