Antonio, please replace this modified function to helpchm.prg
static function ExtHtm( cTopic ) //modified to accept anchors (z.B. cTopic#one or cTopic.htm#one )
//from byte-one, 2009
local nPos,cTemp
if at("#",cTopic) > 0 //if anchor in cTopic
nPos := at("#",cTopic)
cTemp := subs(cTopic,1,nPos-1) //extract string before "#"
cTemp += if(".htm" $ lower( cTemp ),"",".htm") //add ".htm" if not exist
cTopic := cTemp + subs(cTopic,nPos,len(cTopic)) //add "#anchor" to cTopic
else
cTopic += if(".htm" $ lower( cTopic ),"",".htm") //add ".htm" if not exist
endif
return (cTopic)
