;; | ---------------------------------------------------------------------------
;; | BLi_GetAttFromLookup
;; | ---------------------------------------------------------------------------
;; | Function : Internal Block library function
;; |            Return the name of a corresponding block attribute tag from a tag
;; |            lookup list.
;; | Argument : -as specified-
;; | Returns  : The complete list of the block tag information
;; | Updated  : February 18, 2006
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------

(defun BLi_GetAttFromLookup ( TagName AttLst AttMap / TagInfo )

(if AttMap
(progn
	(setq TagName (assoc TagName AttMap))
	(if TagName
	(setq
		TagName (nth 1 TagName)
		TagInfo (assoc TagName AttLst)
	)
	(setq TagInfo nil)
	)
)
(setq TagInfo nil)
)
TagInfo
)