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