Ужос

Janek 23.10.2009 14:32 / 23.10.2009 14:33

Здравствуйте

Спасибо за польезный совет.
Я исправил мой метод find. Как вам теперь? Уже нет ужос? Или только меньшый ужос?

@find[basepath][locals]
$basepath[^basepath.trim[both;/]]
^if(def $basepath){
	$tBasepath[^basepath.split[/]]
	^tBasepath.menu{
		$sHashPath[${sHashPath}[$tBasepath.piece].]
	}
	$sHashPath[^sHashPath.trim[end;.]]
	$result[^process{^$hTree.root.$sHashPath}]
}{
	$result[$hTree.root]
}

---