<% $t->{'section'}{showtag} = 0; $t->{'title'}{testcode} = sub { my ($node, $t) = @_; if ($node->getParentNode->getName eq 'section') { $t->{pre} = '

'; $t->{post} = '

'; } elsif ($node->getParentNode->getName eq 'subsection') { $t->{pre} = '

'; $t->{post} = '

'; } else { $t->{showtag} = 1; } return 1; }; $t->{'ulink'}{testcode} = sub { my ($node, $t) = @_; my $url = $node->getAttribute('url'); $t->{pre} = ""; $t->{post} = ""; return 1; }; $t->{'para'}{pre} = '

'; $t->{'para'}{post} = '

'; $t->{'emphasis'}{pre} = ''; $t->{'emphasis'}{post} = ''; %> <%= findvalue('/webpage/head/title/text()') %>

<%= spacer(10,1) %>

http://axkit.org/ :: <% { my $uri = $r->uri; $uri =~ s/^\///; my ($file) = $uri =~ /([^\/]+)$/; $uri =~ s/\Q$file\E$//; my $local = ''; foreach my $part (split('/', $uri)) { $local .= "/$part/index.xml"; my $title = findvalue("document('$local')/descendant::title[1]"); if ($title eq 'Index') { print $part, " :: "; } else { print "", $title, " :: "; } $local =~ s/\/index\.xml$//; } if ($file ne 'index.xml') { my $location = "/$file"; $location = "/$uri$file" if $uri; print "", findvalue("document('$location')/descendant::title[1]"), " :: "; } } %>

<%= spacer(20,1) %>

<% if ($r->uri eq '/index.xml') { %> <% } %>

<%= apply_templates('/webpage/body/*') %>

<%= apply_templates('document("news.xml")') %>

<%= spacer(20,1) %>

<%= spacer(10,1) %>