relatedSelect(Variables, Options) ->
error_logger:error_report( ["Variables:", Variables, "Options:", Options] ),
string:join(lists:map(fun(Module) -> io_lib:format("<option value='~p'>~p</option>", [Module,Module]) end, boss_db:find (list_to_atom(binary_to_list(proplists:get_value(model, Variables))),[])), "").string:join(lists:map(fun(Module) -> io_lib:format("<option value='~s'>~s</option>", [Module:id(),Module:name()]) end, boss_db:find(list_to_atom(binary_to_list(proplists:get_value(model, Variables))),[])), "").