File Coverage

blib/lib/WE_Frontend/Plugin/WE_Navigation/Object.pm

Criterion	Covered	Total	%
statement	9	69	13.0
branch	0	30	0.0
condition	0	38	0.0
subroutine	3	15	20.0
pod	10	10	100.0
total	22	162	13.5

# -*- perl -*-

#
# $Id: Object.pm,v 1.15 2004/11/03 21:56:19 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2002 Online Office Berlin. All rights reserved.
# Copyright (C) 2002,2004 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::WE_Navigation::Object;

use base qw(WE_Frontend::Plugin::Navigation::Object);

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

=head1 NAME

WE_Frontend::Plugin::WE_Navigation::Object - object for WE_Navigation plugin

=head1 SYNOPSIS

    Normally not instantiated.

=head1 DESCRIPTION

This is a specialization of
L. This class has additional
methods for retrieving language titles, relative and absolute urls.

=head2 METHODS

=over 4

=item ext

Return default extension (by default ".html"). May be overwritten in a
subclass.

=cut

sub ext { ".html" }

sub _set_lang {
    my $self = shift;
    if (!defined $_[0]) {
	$_[0] = $self->Navigation->{Context}->stash->get("lang") || "en";
    }
}

=item lang_title([lang])

The language dependent title. C is optional. English will be
used if other means to determine the language fail.

=cut

sub lang_title {
    my($self, $lang) = @_;
    $self->_set_lang($lang);
    require WE::Util::LangString;
    WE::Util::LangString::get($self->_obj_version_proxy("title")->o->{Title}, $lang);
}

=item lang_short_title([lang])

Short title. (NYI)

=cut

sub lang_short_title {
    shift->lang_title(@_);
}

=item relurl

Return a relative URL to the object.

Use the name from NameDB if available. See also the C<$IGNORE_NAME_DB>
variable to turn this feature of.

If the object is an folder, then the C doc is used instead
for the URL. If C is undefined, then the C
feature handling fires. This feature may be turned off by
C<$DONT_USE_INDEXDOC>.

=cut

sub relurl {
    my $self = shift;
    my $n = $self->Navigation;
    my $config = $n->{Config};
    my $objdb  = $n->{ObjDB};
    my $o = $self->_obj_version_proxy("url")->o;

    # Resolve id for folders
    my $id = defined $o->Version_Parent ? $o->Version_Parent : $o->Id;
    if (!$DONT_USE_INDEXDOC && $o->can("IndexDoc")) {
	if (defined $o->IndexDoc && $o->IndexDoc ne "") {
	    $id = $o->IndexDoc;
	} elsif ($config &&
		 $config->project &&
		 $config->project->can("features") &&
		 $config->project->features &&
		 $config->project->features->{autoindexdoc} &&
		 $config->project->features->{autoindexdoc} eq 'first') {
	    # XXX code doubled in WebEditor::OldController!
	    my(@children_ids) = $objdb->get_released_children($id);
	    if (@children_ids) {
		$id = $children_ids[0]->Id;
	    }
	}
    }

    # Prefer name over numerical id
    my $rootdb = $n->{RootDB};
    if ($rootdb && !$IGNORE_NAME_DB) {
	my $namedb = $rootdb->NameDB;
	if ($namedb) {
	    my @names = $namedb->get_names($id);
	    if (@names) {
		return $names[0] . $self->ext;
	    }
	}
    }

    if ($objdb->is_root_object($id)) {
	"index" . $self->ext;
    } else {
	$id . $self->ext;
    }
}

=item halfabsurl

Return a half-absolute URL (without scheme, host and port part) to the
object.

=cut


sub halfabsurl {
    my($self, $lang) = @_;
    $self->_set_lang($lang);
    my $config = $self->Navigation->{Config};
    $config->paths->rooturl . "/html/$lang/" . $self->relurl;
}

=item absurl

Return an absolute URL (with scheme, host and port part) to the
object.

=cut

sub absurl {
    my($self, $lang) = @_;
    $self->_set_lang($lang);
    my $config = $self->Navigation->{Config};
    $config->paths->absoluteurl . "/html/$lang/" . $self->relurl;
}

=item target

Return the window target to the object. Currently this is always
"_self".

=cut

sub target {
    "_self";
}

=item include_in_navigation

Return true if the object should be included to the navigation. The
following cases cause the object to be excluded from the navigation:

=over

=item * The object's attribute C is not C

=item * The object's attribute C is C

=item * The object is not ready to be published as determined by
C and C. The current date can be adjusted by
setting the C template variable to a unix epoch time.

=back

=cut

sub include_in_navigation {
    my($self) = @_;
    my $o = $self->_obj_version_proxy("navigation")->o;
    return 0 if ((defined $o->{Navigation}  && $o->{Navigation} eq 'hidden') ||
		 (!defined $o->Release_State || $o->Release_State ne 'released'));
    if (defined $o->TimeOpen || defined $o->TimeExpire) {
	my $n = $self->Navigation;
	my $now = $n->{LocalConfig}{now};
	$now = time if !defined $now;
	return 0 if $o->is_time_restricted($now);
    }
    1;
}

=item obj_proxy($caller)

Some objects may not have content of their own and use the first child
in their collection instead for getting attributes like Title etc. By
default, this method just returns the object itself, but may be
overriden. See C for an example.

C<$caller> will be set to a symbolic name of the caller: C (for </td>
</tr>

<tr>
<td  class="h" >
<a name="223">223</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> methods like C<lang_title>), C<url> (for methods like C<relurl>), or </td>
</tr>

<tr>
<td  class="h" >
<a name="224">224</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<navigation>) (for C<include_in_navigation> and similar methods). If </td>
</tr>

<tr>
<td  class="h" >
<a name="225">225</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> you need the real caller function name, then use the standard C<caller> </td>
</tr>

<tr>
<td  class="h" >
<a name="226">226</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> function. </td>
</tr>

<tr>
<td  class="h" >
<a name="227">227</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="228">228</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="229">229</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="230">230</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-WE_Frontend-Plugin-WE_Navigation-Object-pm--subroutine.html#230-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-WE_Frontend-Plugin-WE_Navigation-Object-pm--subroutine.html#230-1"> 
1
 </a> 
</td>

<td >

 

</td>

<td class="s"> sub obj_proxy { $_[0] } </td>
</tr>

<tr>
<td  class="h" >
<a name="231">231</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="232">232</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item version_proxy($caller) </td>
</tr>

<tr>
<td  class="h" >
<a name="233">233</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="234">234</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For a given object, determine which version of the object should be </td>
</tr>

<tr>
<td  class="h" >
<a name="235">235</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> used. The default implementation of I<version_proxy> is to return the </td>
</tr>

<tr>
<td  class="h" >
<a name="236">236</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> last released version (using I<get_released_object> from </td>
</tr>

<tr>
<td  class="h" >
<a name="237">237</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> L<WE::DB::Obj>), or, if no object is released, the latest version. </td>
</tr>

<tr>
<td  class="h" >
<a name="238">238</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Subclasses are free to override this method. </td>
</tr>

<tr>
<td  class="h" >
<a name="239">239</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="240">240</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="241">241</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="242">242</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub version_proxy { </td>
</tr>

<tr>
<td  class="h" >
<a name="243">243</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-WE_Frontend-Plugin-WE_Navigation-Object-pm--subroutine.html#243-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-WE_Frontend-Plugin-WE_Navigation-Object-pm--subroutine.html#243-1"> 
1
 </a> 
</td>

<td >

 

</td>

<td class="s">     my($self, $caller) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="244">244</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $n = $self->Navigation; </td>
</tr>

<tr>
<td  class="h" >
<a name="245">245</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $objdb  = $n->{ObjDB}; </td>
</tr>

<tr>
<td  class="h" >
<a name="246">246</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $relobj = $objdb->get_released_object($self->o->Id); </td>
</tr>

<tr>
<td  class="h" >
<a name="247">247</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-WE_Frontend-Plugin-WE_Navigation-Object-pm--branch.html#247-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if (!defined $relobj) { </td>
</tr>

<tr>
<td  class="h" >
<a name="248">248</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	return $self; </td>
</tr>

<tr>
<td  class="h" >
<a name="249">249</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="250">250</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $ret = (ref $self)->new($relobj, $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="251">251</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $ret; </td>
</tr>

<tr>
<td  class="h" >
<a name="252">252</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="253">253</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="254">254</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Call obj_proxy and version_proxy. Only for internal use. </td>
</tr>

<tr>
<td  class="h" >
<a name="255">255</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub _obj_version_proxy { </td>
</tr>

<tr>
<td  class="h" >
<a name="256">256</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-WE_Frontend-Plugin-WE_Navigation-Object-pm--subroutine.html#256-1"> 
0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my($self, $caller) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="257">257</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->obj_proxy($caller)->version_proxy($caller); </td>
</tr>

<tr>
<td  class="h" >
<a name="258">258</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="259">259</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="260">260</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> __END__ </td>
</tr>

</table>

</body>
</html>