Ignore:
Timestamp:
Oct 12, 2004, 1:31:11 AM (17 years ago)
Author:
Earle Martin
Message:

remove dependency on CGI::Wiki::Plugin::GeoCache?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r530 r531  
    55use CGI;
    66use CGI::Wiki::Plugin::Diff;
    7 use CGI::Wiki::Plugin::GeoCache;
    87use CGI::Wiki::Plugin::Locator::UK;
    98use OpenGuides::CGI;
     
    179178                 %metadata_vars,
    180179                 content       => $content,
    181                  geocache_link => $self->make_geocache_link($id),
    182180                 last_modified => $modified,
    183181                 version       => $node_data{version},
     
    705703}
    706704
    707 sub make_geocache_link {
    708     my $self = shift;
    709     my $wiki = $self->wiki;
    710     my $config = $self->config;
    711     return "" unless $self->get_cookie( "include_geocache_link" );
    712     my $node = shift || $config->{_}->{home_name};
    713     my %current_data = $wiki->retrieve_node( $node );
    714     my %criteria     = ( name => $node );
    715     my %node_data    = $wiki->retrieve_node( %criteria );
    716     my %metadata     = %{$node_data{metadata}};
    717     my $latitude     = $metadata{latitude}[0];
    718     my $longitude    = $metadata{longitude}[0];
    719     my $geocache     = CGI::Wiki::Plugin::GeoCache->new();
    720     my $link_text    = "Look for nearby geocaches";
    721 
    722     if ($latitude && $longitude) {
    723         my $cache_url    = $geocache->make_link(
    724                                         latitude  => $latitude,
    725                                         longitude => $longitude,
    726                                         link_text => $link_text
    727                                 );
    728         return $cache_url;
    729     }
    730     else {
    731         return "";
    732     }
    733 }
    734705
    735706=back
Note: See TracChangeset for help on using the changeset viewer.