# # # patch "database.ml" # from [d54e4865a25cf71403c8fc777a4aa377dcad1ca6] # to [1b9ae88030a71571e23412a593ed034cbb5fa143] # ============================================================ --- database.ml d54e4865a25cf71403c8fc777a4aa377dcad1ca6 +++ database.ml 1b9ae88030a71571e23412a593ed034cbb5fa143 @@ -210,8 +210,8 @@ let fetch_agraph_with_view db base64 (qu let agraph = Sqlite3.fetch_f db "SELECT parent, child \ - FROM %s AS D, revision_ancestry AS A \ - WHERE D.id = A.child AND A.parent != '' AND A.parent NOT IN %s" + FROM %s, revision_ancestry \ + WHERE id = child AND parent != '' AND parent NOT IN %s" view_name_limit view_name_domain process_neighb_in agraph in @@ -219,8 +219,8 @@ let fetch_agraph_with_view db base64 (qu let agraph = Sqlite3.fetch_f db "SELECT parent, child \ - FROM %s AS D, revision_ancestry AS A \ - WHERE D.id = A.parent AND A.child NOT IN %s" + FROM %s, revision_ancestry \ + WHERE id = parent AND child NOT IN %s" view_name_limit view_name_domain (process_neighb_out db) agraph in @@ -228,8 +228,8 @@ let fetch_agraph_with_view db base64 (qu let agraph = Sqlite3.fetch_f db "SELECT parent, child \ - FROM %s AS D1, revision_ancestry AS A, %s AS D2 \ - WHERE D1.id = A.parent AND A.child = D2.id" + FROM %s AS D1, revision_ancestry, %s AS D2 \ + WHERE D1.id = parent AND child = D2.id" view_name_limit view_name_limit process_ancestry agraph in @@ -255,7 +255,7 @@ let fetch_agraph_with_view db base64 (qu AND parent != '' \ AND NOT EXISTS \ (SELECT P.id FROM revision_certs AS C, revision_certs AS P \ - WHERE C.id = A.child AND P.id = A.parent \ + WHERE C.id = child AND P.id = parent \ AND C.name = 'branch' AND P.name = 'branch' \ AND C.value = P.value)" view_name_limit