case.erl

format_query({parts, Table, Columns, Op, Ord})-> 
    case {Table, Columns, Op, Ord} of 
        {{table, Name}, {columns, all}, Op, Ord} ->
	    format_query({parts, {Table, initcap(Name) ++ " || ", Op, Ord}});
        {{table, Name}, Columns, Op, Ord} ->
	    format_query({parts, 
			  {initcap(Name) ++ " <- mnesia:table(" ++ string:to_lower(Name) ++ ")", 
			   Columns, 
			   Op, 
			   Ord}})
        %% ... other cases ... 
    end.