Test code to create tree

gistfile1.erl

fill_elem_tree(C, AppIntId, ElemId) ->
    case db:get(C, AppIntId, ElemId) of 
	{error, not_found} ->
	    {error, {?MODULE, no_value}};				  
	Value ->  
	    ResultRec = wac_lib:from_binary(term, Value),
	    ChildsRec = [fill_elem_tree(C, AppIntId, ChildElId) || 
			    ChildElId <- ResultRec#elem.childs],
	    #elem_info{id           = ResultRec#elem.id,
		       name         = ResultRec#elem.name,
		       element_type = ResultRec#elem.element_type,
		       description  = ResultRec#elem.description,
		       var_type     = ResultRec#elem.var_type,
		       permissions  = ResultRec#elem.permissions,
		       timeout      = ResultRec#elem.timeout,
		       childs       = ChildsRec,
		       name_tree    = ResultRec#elem.tree}
     end.