function jmod
{
	(( $# != 1 )) && return 64
	typeset m=$(jr && pwd)/modules/apps
	typeset d=$(find $m -maxdepth 2 -mindepth 2 -type d -iregex ".*/.*$1$")
	[[ -z $d ]] && return 1
	if (( $(print $d | wc -w) > 1 ))
	then
		select d in $d
		do
			break
		done
	fi
	print ${d##*/} && cd $d
}