amalgame/commit
augment mappings with info from reference alignment for the detail view like we do on the initial mapping table. This is needed to be able to pre-fill in the evaluation form
author | Jacco van Ossenbruggen |
---|---|
Sun Aug 3 13:08:04 2014 +0200 | |
committer | Jacco van Ossenbruggen |
Sun Aug 3 13:08:04 2014 +0200 | |
commit | fb65ed2f113bcef0708a2dc9f932194efce2de66 |
tree | ea31920fd1a83bd9a834682f96403100818f51ce |
parent | 9dc992244b28b9ed5aa900aa0132231d562451bc |
Diff style: patch stat
diff --git a/api/correspondence.pl b/api/correspondence.pl index 86ea89b..7175a71 100644 --- a/api/correspondence.pl +++ b/api/correspondence.pl @@ -44,9 +44,12 @@ http_correspondence(Request) :- description('Include all target')]) ]), find_correspondences(Mapping, Strategy, Source, Target, AllSource, AllTarget, Cs), - html_current_option(content_type(Type)), + augment_relations(Strategy, Mapping, Cs, CS_augmented, []), + findall(R-L, mapping_relation(L, R), Relations), - phrase(html_correspondences(Cs, [relations(Relations), mode(Mode)]), HTML), + phrase(html_correspondences(CS_augmented, [relations(Relations), mode(Mode)]), HTML), + + html_current_option(content_type(Type)), format('Content-type: ~w~n~n', [Type]), print_html(HTML).