From fd7590d71aeee380e7c87ed77de592df1f30f5ef Mon Sep 17 00:00:00 2001 From: "Paul Buetow (pluto.buetow.org)" Date: Sat, 28 Sep 2013 22:18:24 +0200 Subject: Some small refactoring --- Xerl/Page/Menu.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Xerl/Page/Menu.pm') diff --git a/Xerl/Page/Menu.pm b/Xerl/Page/Menu.pm index 80923ce..62cb58d 100644 --- a/Xerl/Page/Menu.pm +++ b/Xerl/Page/Menu.pm @@ -35,6 +35,7 @@ sub generate($;$) { for my $s (@site) { $content .= "$s.sub/"; $siteadd .= "$s/"; + $menuelem = $self->get_menu( $content, $siteadd, shift @compare ); $self->push_array($menuelem) if $menuelem->first_array()->array_length() > 1; @@ -46,6 +47,7 @@ sub generate($;$) { sub get_menu($$$$) { my Xerl::Page::Menu $self = $_[0]; my Xerl::Page::Configure $config = $self->get_config(); + my ( $content, $siteadd, $compare ) = ( @_[ 1 ... 2 ], lc $_[3] ); my $issubsection = $content =~ m{\.sub/$}; my $pattern = qr/\.(?:xml)|(?:sub)$/; -- cgit v1.2.3