<%@ sitemap/functions.pl %> <%@ lib/stdlib.pl %> <%@ lib/browser.pl %> <%-- Dieser Abschnitt ist der anspruchsvollste Teil dieser Vorlage: Weil die Sitemap eine Baumstruktur aufweist, muss sie rekursiv erzeugt werden. (Natuerlich koennte man auch einen Stack verwenden.) --%> <% sub print_recurse { my $document = shift; my $document_URI = $document->URI; my $document_Title = $document->Title; my @children = $document->Children; if (not defined $document->{Parent_ID}) { print_root ($document, @children); } elsif (@children) { if (sitemap_is_expanded ($document)) { print_expanded ($document, @children); } else { print_folded ($document); } } else { print_leaf ($document); } } %> <% sub print_leaf { my $document = shift; %>
  • · <%= encode_html ($document->Title) %>
    • <% } %> <% sub print_folded { my $document = shift; %>
  • + <%= encode_html ($document->Title) %>
    • <% } %> <% sub print_root { my $document = shift; my @children = @_; %>
  • · <%= encode_html ($document->Title) %>
    • <% } %> <% sub print_expanded { my $document = shift; my @children = @_; %>
  • - <%= encode_html ($document->Title) %>
    • <% } %> <%* foreach ($document->Ancestors) %><%= encode_html ($_->Title) %> : <%* end-foreach %> <%= encode_html ($document->Title) %> : Sitemap

    Inhalt · Home · Sitemap ·

    <%* foreach ($document->Ancestors) %><%= encode_html ($_->Title) %> > <%* end-foreach %> <%= encode_html ($document->Title) %> > Sitemap

    Sitemap

    Sie können die einzelnen Bereiche der Sitemap auf- und zuklappen, indem Sie auf die Plus [+] und Minus [-] Links klicken.

      <% print_recurse ($root_document) %>