From: cascade <cascade@opencascade.com>
Date: Fri, 28 Nov 2008 18:57:12 +0000 (+0000)
Subject: OCCTR20503 OCCT 6.3.0 Doxygen documentation is broken for Graphic3d package
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=8036b86a965541ac6253804918de18f0ecc32d53;p=occt-wok.git

OCCTR20503 OCCT 6.3.0 Doxygen documentation is broken for Graphic3d package
---

diff --git a/src/WOKTclLib/OCCTDocumentation.tcl b/src/WOKTclLib/OCCTDocumentation.tcl
index 58bb151..dd1b4eb 100755
--- a/src/WOKTclLib/OCCTDocumentation.tcl
+++ b/src/WOKTclLib/OCCTDocumentation.tcl
@@ -987,10 +987,27 @@ proc OCCTDoc_ProcessPackagesHTML {OCCTDoc_DocLocation isSearch moduleName toolki
 	close $file_hierarchyHTML
 	# Corrected accordning to the SZV request - alphabetical order
 	set listClassName [lsort $listClassName]
-	set listLinkPath [lsort $listLinkPath]
+	# OCCTR20503
+	# set listLinkPath [lsort $listLinkPath]
+	# OCCTR20503 - end
 	for {set indexOfList 0} {$indexOfList < [llength $listClassName]} {incr indexOfList 1} {
 	    set className [lindex $listClassName $indexOfList]
-	    set linkPath [lindex $listLinkPath $indexOfList]
+	    # OCCTR20503
+	    # set linkPath [lindex $listLinkPath $indexOfList]
+	    set linkPath ""
+	    set currentPackageName [string trim [string range $className 0 [expr {[string first _ $className] - 1}]]]
+	    set currentPackageClassName [string trim [string range $className [expr {[string first _ $className] + 1}] [string length $className]]]
+	    set currentFileName "${currentPackageName}__${currentPackageClassName}.html"
+	    if {[string compare [string range $currentFileName 0 0] "_"] == 0} {
+		set currentFileName "${className}.html"
+	    }
+	    for {set indexOfLinkList 0} {$indexOfLinkList < [llength $listLinkPath]} {incr indexOfLinkList 1} {
+		set currentLinkPath [lindex $listLinkPath $indexOfLinkList]
+		if {[regexp $currentFileName $currentLinkPath] == 1} {
+		    set linkPath $currentLinkPath
+		}
+	    }
+	    # OCCTR20503 - end
 	    puts $file_packageHTML "<li><a class=\"el\" href=\"../$linkPath\">$className</a>"
 	}
 	# ------------------------------------------------------------