added debug output for checking foreign keys

yariv · Nov 20, 2007 · 4178120 · 4178120
1 parent 3675a4d
commit 4178120
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/erlydb/erlydb.erl b/src/erlydb/erlydb.erl
@@ -97,6 +97,11 @@
     code_gen/3,
     code_gen/4]).
 
+-import(erlyweb_util, [log/5]).
+-define(Debug(Msg, Params), log(?MODULE, ?LINE, debug, Msg, Params)).
+-define(Info(Msg, Params), log(?MODULE, ?LINE, info, Msg, Params)).
+-define(Error(Msg, Params), log(?MODULE, ?LINE, error, Msg, Params)).
+
 %% useful for debugging
 -define(L(Obj), io:format("LOG ~w ~p\n", [?LINE, Obj])).
 -define(S(Obj), io:format("LOG ~w ~s\n", [?LINE, Obj])).
@@ -954,6 +959,7 @@ get_rel_options(Module, OtherModule, TablesData, ReverseFieldOrder) ->
 			end,
 		{OtherMod1, Alias1, PkFks1}
 	end,
+    ?Debug("Checking foreign keys for ~w\t->\t~w", [Module, OtherMod]),
     verify_field_mappings(Module, OtherMod,
 			  TablesData, PkFks, ReverseFieldOrder),
     Res.