goba Sun Apr 10 12:19:55 2005 EDT
Modified files:
/phpdoc/dsssl html-common.dsl
Log:
handle the few exceptions when a function id is less then 14 chars, and this
printed an error
http://cvs.php.net/diff.php/phpdoc/dsssl/html-common.dsl?r1=1.17&r2=1.18&ty=u
Index: phpdoc/dsssl/html-common.dsl
diff -u phpdoc/dsssl/html-common.dsl:1.17 phpdoc/dsssl/html-common.dsl:1.18
--- phpdoc/dsssl/html-common.dsl:1.17 Sun Apr 10 12:04:50 2005
+++ phpdoc/dsssl/html-common.dsl Sun Apr 10 12:19:55 2005
@@ -1,6 +1,6 @@
;; -*- Scheme -*-
;;
-;; $Id: html-common.dsl,v 1.17 2005/04/10 16:04:50 goba Exp $
+;; $Id: html-common.dsl,v 1.18 2005/04/10 16:19:55 goba Exp $
;;
;; Returns the depth of the auto-generated TOC (table of
@@ -305,7 +305,9 @@
;; not function pages themselfs)
(element (refnamediv refname)
(let ((refid (attribute-string (normalize "id") (parent (parent
(current-node))))))
- (if (not (string=? (substring refid 0 14) "reference.pcre"))
+ (if (not (string=?
+ (substring refid 0 (if (<= (string-length refid) 14) (string-length
refid) 14))
+ "reference.pcre"))
(make sequence
(make element gi: "P"
(literal " (")
