MyDDAS: bug fix on db_update/2

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1530 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
tiagosoares 2006-01-30 17:55:40 +00:00
parent a4eaafaef3
commit 5f56e91375

View File

@ -298,7 +298,7 @@
'$get_values_for_set'(FieldList,ValueList,FieldValueList). '$get_values_for_set'(FieldList,ValueList,FieldValueList).
'$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))],[' ',Field,' = "',Atom,'" ']). '$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))],[' ',Field,' = "',Atom,'" ']).
'$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))|Comp],[' ',Field,' = "',Atom,'" '|Rest]):- '$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))|Comp],[' ',Field,' = "',Atom,'" AND '|Rest]):-
'$get_values_for_where'(Comp,Rest). '$get_values_for_where'(Comp,Rest).
'$build_set_condition'([Field,Value|FieldValues],[SQLFirst|SQLRest]):- '$build_set_condition'([Field,Value|FieldValues],[SQLFirst|SQLRest]):-