Changeset 563


Ignore:
Timestamp:
Nov 26, 2004, 12:21:35 PM (17 years ago)
Author:
kake
Message:

Move show_backlinks to OpenGuides.pm

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r562 r563  
    372372}
    373373
     374=item B<show_backlinks>
     375
     376  $guide->show_backlinks( id => "Calthorpe Arms" );
     377
     378As with other methods, parameters C<return_tt_vars> and
     379C<return_output> can be used to return these things instead of
     380printing the output to STDOUT.
     381
     382=cut
     383
     384sub show_backlinks {
     385    my ($self, %args) = @_;
     386    my $wiki = $self->wiki;
     387    my $formatter = $wiki->formatter;
     388
     389    my @backlinks = $wiki->list_backlinks( node => $args{id} );
     390    my @results = map {
     391        { url   => CGI->escape($formatter->node_name_to_node_param($_)),
     392          title => CGI->escapeHTML($_)
     393        }             } sort @backlinks;
     394    my %tt_vars = ( results       => \@results,
     395                    num_results   => scalar @results,
     396                    not_deletable => 1,
     397                    deter_robots  => 1,
     398                    not_editable  => 1 );
     399    return %tt_vars if $args{return_tt_vars};
     400    my $output = OpenGuides::Template->output(
     401                                               node    => $args{id},
     402                                               wiki    => $wiki,
     403                                               config  => $self->config,
     404                                               template=>"backlink_results.tt",
     405                                               vars    => \%tt_vars,
     406                                             );
     407    return $output if $args{return_output};
     408    print $output;
     409}
     410
    374411=item B<show_index>
    375412
  • trunk/wiki.cgi

    r562 r563  
    6767        do_search($search_terms);
    6868    } elsif ($action eq 'show_backlinks') {
    69         show_backlinks($node);
     69        $guide->show_backlinks( id => $node );
    7070    } elsif ($action eq 'show_wanted_pages') {
    7171        show_wanted_pages();
     
    292292}
    293293
    294 sub show_backlinks {
    295     my $node = shift;
    296     my @backlinks = $wiki->list_backlinks( node => $node );
    297     my @results = map {
    298         { url   => $q->escape($formatter->node_name_to_node_param($_)),
    299           title => $q->escapeHTML($_)
    300         }             } sort @backlinks;
    301     my %tt_vars = ( results       => \@results,
    302                     num_results   => scalar @results,
    303                     not_deletable => 1,
    304                     deter_robots  => 1,
    305                     not_editable  => 1 );
    306     process_template("backlink_results.tt", $node, \%tt_vars);
    307 }
    308 
    309294sub show_wanted_pages {
    310295    my @dangling = $wiki->list_dangling_links;
Note: See TracChangeset for help on using the changeset viewer.