Ignore:
Timestamp:
Oct 2, 2004, 7:47:44 AM (17 years ago)
Author:
kake
Message:

Replace find_within_distance with redirect to supersearch.cgi

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r523 r524  
    356356    my $node = $args{id};
    357357    my $metres = $args{metres};
    358     my $formatter = $self->wiki->formatter;
    359     my @finds = $self->locator->find_within_distance(
    360                                                       node   => $node,
    361                                                       metres => $metres,
    362                                                     );
    363     my @nodes;
    364     foreach my $find ( @finds ) {
    365         my $distance = $self->locator->distance(
    366                                                  from_node => $node,
    367                                                  to_node   => $find,
    368                                                  unit      => "metres"
    369                                                );
    370         push @nodes, {
    371                        name     => $find,
    372                        param    => $formatter->node_name_to_node_param($find),
    373                        distance => $distance,
    374                      };
    375     }
    376     @nodes = sort { $a->{distance} <=> $b->{distance} } @nodes;
    377 
    378     my %tt_vars = (
    379                     nodes        => \@nodes,
    380                     origin       => $node,
    381                     origin_param => $formatter->node_name_to_node_param($node),
    382                     limit        => "$metres metres",
    383                   );
    384 
    385     print $self->process_template(
    386                                    id       => "index", # KLUDGE
    387                                    template => "site_index.tt",
    388                                    tt_vars  => \%tt_vars,
    389                                  );
     358    my %data = $self->wiki->retrieve_node( $node );
     359    my $lat = $data{metadata}{latitude}[0];
     360    my $long = $data{metadata}{longitude}[0];
     361    my $script_url = $self->config->{_}{script_url};
     362    print CGI->redirect( $script_url . "supersearch.cgi?lat=$lat;long=$long;distance_in_metres=$metres" );
    390363}
    391364
Note: See TracChangeset for help on using the changeset viewer.