File Coverage

blib/lib/WE_Frontend/Plugin/Breadcrumb.pm

Criterion	Covered	Total	%
statement	18	29	62.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	26	39	66.6

# -*- perl -*-

#
# $Id: Breadcrumb.pm,v 1.7 2004/01/12 16:33:20 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2003 Slaven Rezic.
# This is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License, see the file COPYING.

#
# Mail: [e-mail]
# WWW:  http://we-framework.sourceforge.net
#

package WE_Frontend::Plugin::Breadcrumb;
use base qw(Template::Plugin);

use HTML::Entities;

use WE::Util::LangString qw(langstring);
use WE_Frontend::Plugin::WE_Navigation;

use strict;
use vars qw($VERSION);
$VERSION = sprintf("%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/);

=head1 NAME

WE_Frontend::Plugin::Breadcrumb - insert a "breadcrumb"

=head1 SYNOPSIS

    my $t = Template->new({PLUGIN_BASE => "WE_Frontend::Plugin"});

    [% USE Breadcrumb %]
    [% Breadcrumb.out() %]

=head1 DESCRIPTION

Create a HTML breadcrumb.

=head2 METHODS

=over

=cut

sub new {
    my($class, $context, $params) = @_;
    my $n = WE_Frontend::Plugin::WE_Navigation->new($context, $params);
    my $self = { WE_Navigation => $n };
    bless $self, $class;
}

=item out()

Format and output a breadcrumb for the current object id. The
following classes are used:

=over

=item breadcrumb

the overall breadcrumb (in a  element)

=item breadcrum_link

links in the breadcrumb

=back

The links are masked with  to help F.

=cut

sub out {
    my($self) = @_;
    my $ancestors = $self->{WE_Navigation}->ancestors;
    # XXX classes ueberdenken
    '' .
    join(" > ", map {
	my $o = $_;
	my $url   = $o->relurl;
	my $title = $o->lang_title;
	'' . HTML::Entities::encode($title) . "";
    } @$ancestors) . '';
}

1;

__END__