diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 22:18:24 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 22:18:24 +0200 |
| commit | fd7590d71aeee380e7c87ed77de592df1f30f5ef (patch) | |
| tree | 16884f61fbf6b75246784f8209cfa08786157fd4 /Xerl/Page/Menu.pm | |
| parent | 340aa6d143806c2c800d0cb44e0e3ed5dd6e3a15 (diff) | |
Some small refactoring
Diffstat (limited to 'Xerl/Page/Menu.pm')
| -rw-r--r-- | Xerl/Page/Menu.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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)$/; |