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

Move show_backlinks to OpenGuides.pm

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.