You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@myfaces.apache.org by lu...@apache.org on 2014/02/10 23:37:25 UTC
svn commit: r1566776 - /myfaces/site/cms-site/trunk/lib/view.pm
Author: lu4242
Date: Mon Feb 10 22:37:25 2014
New Revision: 1566776
URL: http://svn.apache.org/r1566776
Log:
test how to fix documentation
Modified:
myfaces/site/cms-site/trunk/lib/view.pm
Modified: myfaces/site/cms-site/trunk/lib/view.pm
URL: http://svn.apache.org/viewvc/myfaces/site/cms-site/trunk/lib/view.pm?rev=1566776&r1=1566775&r2=1566776&view=diff
==============================================================================
--- myfaces/site/cms-site/trunk/lib/view.pm (original)
+++ myfaces/site/cms-site/trunk/lib/view.pm Mon Feb 10 22:37:25 2014
@@ -52,6 +52,7 @@ sub single_narrative {
if ($hindex == 0) {
my $headerKey = substr($key, 4);
my $command = ${args{headers}}{$headerKey};
+ # TODO: parse parameter here
if ($command = "pagetree") {
my($ptfile, $ptdir, $ptext) = fileparse($args{path}, qr/\.[^.]*/);
my $basePath = "$ptdir$ptfile";
@@ -60,6 +61,14 @@ sub single_narrative {
}
$args{$headerKey} = pagetree("content$basePath/", $basePath, -1);
}
+ if ($command = "pagetree(1)") {
+ my($ptfile, $ptdir, $ptext) = fileparse($args{path}, qr/\.[^.]*/);
+ my $basePath = "$ptdir$ptfile";
+ if (!(-d "content$basePath/")){
+ $basePath = "$ptdir";
+ }
+ $args{$headerKey} = pagetree("content$basePath/", $basePath, 1);
+ }
if ($command = "pagetree(2)") {
my($ptfile, $ptdir, $ptext) = fileparse($args{path}, qr/\.[^.]*/);
my $basePath = "$ptdir$ptfile";