r73275 - in /trunk/libhtml-widgets-navmenu-perl: ./ debian/ lib/HTML/Widgets/ lib/HTML/Widgets/NavMenu/ lib/HTML/Widgets/NavMenu/Iterator/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Apr 23 17:47:55 UTC 2011
Author: gregoa
Date: Sat Apr 23 17:47:36 2011
New Revision: 73275
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73275
Log:
New upstream release.
Added:
trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu/Iterator/JQTreeView.pm
- copied unchanged from r73274, branches/upstream/libhtml-widgets-navmenu-perl/current/lib/HTML/Widgets/NavMenu/Iterator/JQTreeView.pm
trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu/JQueryTreeView.pm
- copied unchanged from r73274, branches/upstream/libhtml-widgets-navmenu-perl/current/lib/HTML/Widgets/NavMenu/JQueryTreeView.pm
Modified:
trunk/libhtml-widgets-navmenu-perl/Changes
trunk/libhtml-widgets-navmenu-perl/MANIFEST
trunk/libhtml-widgets-navmenu-perl/META.yml
trunk/libhtml-widgets-navmenu-perl/debian/changelog
trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu.pm
trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu/Iterator/SiteMap.pm
trunk/libhtml-widgets-navmenu-perl/t/04nav-menu.t
Modified: trunk/libhtml-widgets-navmenu-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-widgets-navmenu-perl/Changes?rev=73275&op=diff
==============================================================================
--- trunk/libhtml-widgets-navmenu-perl/Changes (original)
+++ trunk/libhtml-widgets-navmenu-perl/Changes Sat Apr 23 17:47:36 2011
@@ -1,4 +1,9 @@
Revision history for Perl extension Shlomif::NavMenu.
+
+1.0600 Sat Apr 16 19:05:23 IDT 2011
+ - Add HTML::Widgets::NavMenu::JQueryTreeView for generating navigation
+ menu that this jQuery plugin can handle well:
+ - http://bassistance.de/jquery-plugins/jquery-plugin-treeview/
1.0501 Sun Nov 14 12:11:19 IST 2010
- Now generating the Makefile.PL from the Build.PL using
Modified: trunk/libhtml-widgets-navmenu-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-widgets-navmenu-perl/MANIFEST?rev=73275&op=diff
==============================================================================
--- trunk/libhtml-widgets-navmenu-perl/MANIFEST (original)
+++ trunk/libhtml-widgets-navmenu-perl/MANIFEST Sat Apr 23 17:47:36 2011
@@ -13,9 +13,11 @@
lib/HTML/Widgets/NavMenu/HeaderRole.pm
lib/HTML/Widgets/NavMenu/Iterator/Base.pm
lib/HTML/Widgets/NavMenu/Iterator/Html.pm
+lib/HTML/Widgets/NavMenu/Iterator/JQTreeView.pm
lib/HTML/Widgets/NavMenu/Iterator/NavMenu/HeaderRole.pm
lib/HTML/Widgets/NavMenu/Iterator/NavMenu.pm
lib/HTML/Widgets/NavMenu/Iterator/SiteMap.pm
+lib/HTML/Widgets/NavMenu/JQueryTreeView.pm
lib/HTML/Widgets/NavMenu/Object.pm
lib/HTML/Widgets/NavMenu.pm
lib/HTML/Widgets/NavMenu/Predicate.pm
Modified: trunk/libhtml-widgets-navmenu-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-widgets-navmenu-perl/META.yml?rev=73275&op=diff
==============================================================================
--- trunk/libhtml-widgets-navmenu-perl/META.yml (original)
+++ trunk/libhtml-widgets-navmenu-perl/META.yml Sat Apr 23 17:47:36 2011
@@ -42,7 +42,7 @@
provides:
HTML::Widgets::NavMenu:
file: lib/HTML/Widgets/NavMenu.pm
- version: 1.0501
+ version: 1.0600
HTML::Widgets::NavMenu::Error:
file: lib/HTML/Widgets/NavMenu.pm
HTML::Widgets::NavMenu::Error::Redirect:
@@ -61,12 +61,16 @@
file: lib/HTML/Widgets/NavMenu/Iterator/Html.pm
HTML::Widgets::NavMenu::Iterator::Html::Item:
file: lib/HTML/Widgets/NavMenu/Iterator/Html.pm
+ HTML::Widgets::NavMenu::Iterator::JQTreeView:
+ file: lib/HTML/Widgets/NavMenu/Iterator/JQTreeView.pm
HTML::Widgets::NavMenu::Iterator::NavMenu:
file: lib/HTML/Widgets/NavMenu/Iterator/NavMenu.pm
HTML::Widgets::NavMenu::Iterator::NavMenu::HeaderRole:
file: lib/HTML/Widgets/NavMenu/Iterator/NavMenu/HeaderRole.pm
HTML::Widgets::NavMenu::Iterator::SiteMap:
file: lib/HTML/Widgets/NavMenu/Iterator/SiteMap.pm
+ HTML::Widgets::NavMenu::JQueryTreeView:
+ file: lib/HTML/Widgets/NavMenu/JQueryTreeView.pm
HTML::Widgets::NavMenu::LeadingPath::Component:
file: lib/HTML/Widgets/NavMenu.pm
HTML::Widgets::NavMenu::NodeDescription:
@@ -96,4 +100,4 @@
homepage: http://web-cpan.berlios.de/modules/HTML-Widgets-NavMenu/
license: http://www.opensource.org/licenses/mit-license.php
repository: http://svn.berlios.de/svnroot/repos/web-cpan/nav-menu/
-version: 1.0501
+version: 1.0600
Modified: trunk/libhtml-widgets-navmenu-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-widgets-navmenu-perl/debian/changelog?rev=73275&op=diff
==============================================================================
--- trunk/libhtml-widgets-navmenu-perl/debian/changelog (original)
+++ trunk/libhtml-widgets-navmenu-perl/debian/changelog Sat Apr 23 17:47:36 2011
@@ -1,3 +1,9 @@
+libhtml-widgets-navmenu-perl (1.0600-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sat, 23 Apr 2011 19:47:07 +0200
+
libhtml-widgets-navmenu-perl (1.0501-1) unstable; urgency=low
* New upstream release
Modified: trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu.pm?rev=73275&op=diff
==============================================================================
--- trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu.pm (original)
+++ trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu.pm Sat Apr 23 17:47:36 2011
@@ -3,7 +3,7 @@
package HTML::Widgets::NavMenu;
-our $VERSION = '1.0501';
+our $VERSION = '1.0600';
package HTML::Widgets::NavMenu::Error;
@@ -792,10 +792,21 @@
sub render
{
my $self = shift;
-
my %args = (@_);
- my $iterator = $self->_get_nav_menu_traverser();
+ return $self->_render_generic(
+ { %args , _iter_method => '_get_nav_menu_traverser',}
+ );
+}
+
+sub _render_generic
+{
+ my $self = shift;
+ my $args = shift;
+
+ my $method = $args->{_iter_method};
+
+ my $iterator = $self->$method();
$iterator->traverse();
my $html = $iterator->get_results();
@@ -1069,6 +1080,12 @@
=back
+=head2 $results = $nav_menu->render_jquery_treeview()
+
+Renders a fully expanded tree suitable for input to JQuery's treeview plugin:
+L<http://bassistance.de/jquery-plugins/jquery-plugin-treeview/> - otherwise
+the same as render() .
+
=head2 $text = $nav_menu->gen_site_map()
This function can be called to generate a site map based on the tree of
Modified: trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu/Iterator/SiteMap.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu/Iterator/SiteMap.pm?rev=73275&op=diff
==============================================================================
--- trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu/Iterator/SiteMap.pm (original)
+++ trunk/libhtml-widgets-navmenu-perl/lib/HTML/Widgets/NavMenu/Iterator/SiteMap.pm Sat Apr 23 17:47:36 2011
@@ -7,13 +7,14 @@
=head1 NAME
-HTML::Widgets::NavMenu::Iterator::Html - an iterator for HTML.
+HTML::Widgets::NavMenu::Iterator::SiteMap - a site-map iterator.
=head1 SYNOPSIS
For internal use only.
=head1 METHODS
+
=cut
sub _start_root
Modified: trunk/libhtml-widgets-navmenu-perl/t/04nav-menu.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-widgets-navmenu-perl/t/04nav-menu.t?rev=73275&op=diff
==============================================================================
--- trunk/libhtml-widgets-navmenu-perl/t/04nav-menu.t (original)
+++ trunk/libhtml-widgets-navmenu-perl/t/04nav-menu.t Sat Apr 23 17:47:36 2011
@@ -4,10 +4,11 @@
use lib './t/lib';
-use Test::More tests => 26;
+use Test::More tests => 28;
use HTML::Widgets::NavMenu;
use HTML::Widgets::NavMenu::HeaderRole;
+use HTML::Widgets::NavMenu::JQueryTreeView;
use HTML::Widgets::NavMenu::Test::Data;
@@ -983,3 +984,91 @@
test_nav_menu($rendered, $expected_string,
"Nav Menu with an empty header role.");
}
+
+# Test HTML::Widgets::NavMenu::JQueryTreeView .
+{
+ my $nav_menu = HTML::Widgets::NavMenu::JQueryTreeView->new(
+ 'path_info' => "/me/bio/test.html",
+ @{$test_data->{'selective_expand'}},
+ 'ul_classes' => [ "one", "two", "three" ],
+ );
+
+ my $rendered =
+ $nav_menu->render();
+
+ my $expected_string = <<"EOF";
+<ul class="one">
+<li>
+<a href="./../../">Home</a>
+</li>
+<li class="open">
+<a href="./../" title="About Myself">About Me</a>
+<br />
+<ul class="two">
+<li>
+<a href="./../group-hug/">Group Hug</a>
+</li>
+<li>
+<a href="./../cool-io/">Cool I/O</a>
+</li>
+<li>
+<a href="./../../resume.html">Resume</a>
+</li>
+</ul>
+</li>
+<li>
+<a href="./../../halifax/">Halifax</a>
+</li>
+<li>
+<a href="./../../open-source/" title="Open Source Software I Wrote">Software</a>
+<br />
+<ul class="two">
+<li>
+<a href="./../../open-source/fooware/">Fooware</a>
+</li>
+<li>
+<a href="./../../open-source/condor-man/" title="Kwalitee">Condor-Man</a>
+</li>
+</ul>
+</li>
+</ul>
+EOF
+
+ # TEST
+ test_nav_menu($rendered, $expected_string, "HTML::Widgets::NavMenu::JQueryTreeView #1");
+}
+
+# Test HTML::Widgets::NavMenu::JQueryTreeView with hidden.
+{
+ my $nav_menu = HTML::Widgets::NavMenu::JQueryTreeView->new(
+ 'path_info' => "/me/",
+ @{$test_data->{'hidden_item'}},
+ 'ul_classes' => [ "one", "two", "three" ],
+ );
+
+ my $rendered =
+ $nav_menu->render();
+
+ my $expected_string = <<"EOF";
+<ul class="one">
+<li>
+<a href="../">Home</a>
+</li>
+<li class="open">
+<b>About Me</b>
+<br />
+<ul class="two">
+<li>
+<a href="visible/">Visible</a>
+</li>
+<li>
+<a href="visible-too/">Visible Too</a>
+</li>
+</ul>
+</li>
+</ul>
+EOF
+
+ # TEST
+ test_nav_menu($rendered, $expected_string, "JQTreeView Nav Menu with Hidden Item");
+}
More information about the Pkg-perl-cvs-commits
mailing list