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

authorJacco van Ossenbruggen
Sun Aug 3 13:08:04 2014 +0200
committerJacco van Ossenbruggen
Sun Aug 3 13:08:04 2014 +0200
commitfb65ed2f113bcef0708a2dc9f932194efce2de66
treeea31920fd1a83bd9a834682f96403100818f51ce
parent9dc992244b28b9ed5aa900aa0132231d562451bc
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).