You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2002/05/14 07:15:41 UTC
cvs commit: modperl-docs/tmpl/custom/html menu_main
stas 02/05/13 22:15:41
Modified: tmpl/custom/html menu_main
Log:
align properly
Revision Changes Path
1.7 +6 -5 modperl-docs/tmpl/custom/html/menu_main
Index: menu_main
===================================================================
RCS file: /home/cvs/modperl-docs/tmpl/custom/html/menu_main,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- menu_main 13 Apr 2002 14:56:29 -0000 1.6
+++ menu_main 14 May 2002 05:15:41 -0000 1.7
@@ -6,20 +6,21 @@
# collect the top level data
# first go up to the absolute root
l = nav; # remember last valid node
+
p = nav.up;
WHILE p;
- l = p;
- p = p.up;
+ l = p;
+ p = p.up;
END;
p = l; # last valid node
IF p.parent_rel_path.defined;
- prefix = p.parent_rel_path;
+ prefix = p.parent_rel_path;
ELSE;
- prefix = ".";
+ prefix = ".";
END;
IF rel_doc_root.defined;
- prefix = "$prefix/$rel_doc_root";
+ prefix = "$prefix/$rel_doc_root";
END;
# walk through the top level nodes
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org