amalgame/commit

fix strategy hack in prov

diff --git a/lib/amalgame/ag_evaluation.pl b/lib/amalgame/ag_evaluation.pl
index 6ef1985..9cf31a8 100644
--- a/lib/amalgame/ag_evaluation.pl
+++ b/lib/amalgame/ag_evaluation.pl
@@ -52,7 +52,7 @@ create_evaluation_graph(Strategy, Mapping, EvalGraph) :-
 	),
 	rdf_assert(EvalGraph, rdfs:comment, literal(Comment),	 Strategy),
 	provenance_graph(Strategy, ProvGraph),
-	prov_was_generated_by(EvalProcess, [EvalGraph], ProvGraph, Options).
+	prov_was_generated_by(EvalProcess, [EvalGraph], ProvGraph, [strategy(Strategy)|Options]).
 
 
 delete_empty_eval_graphs(Strategy) :-
diff --git a/lib/amalgame/ag_provenance.pl b/lib/amalgame/ag_provenance.pl
index ffc8297..9e62bba 100644
--- a/lib/amalgame/ag_provenance.pl
+++ b/lib/amalgame/ag_provenance.pl
@@ -89,7 +89,7 @@ add_amalgame_prov(Strategy, Process, Results) :-
 	    pairs_keys(Results, Artifacts)
 	),
 
-	prov_was_generated_by(Process, Artifacts, ProvGraph, []),
+	prov_was_generated_by(Process, Artifacts, ProvGraph, [strategy(Strategy)]),
 
 	% Generate prov:wasDerivedFrom triples between Mappings
 	findall(rdf(Target, ProvWDF, Source),
@@ -143,6 +143,7 @@ remove_old_prov(Process, ProvGraph) :-
 %	derived from the given list of source entities
 %	* request(Request) to record information about the request URI
 %	used in the web service to create Entities.
+%	* strategy(Strategy)
 
 prov_was_generated_by(_, [], _, _) :- !.
 prov_was_generated_by(Process, Artifacts, Graph, Options) :-
@@ -156,7 +157,7 @@ prov_was_generated_by(Process, Artifacts, Graph, Options) :-
 	prov_program(Graph, Program),
 	prov_person(Graph, Person),
 
-	provenance_graph(Strategy, Graph),
+	option(strategy(Strategy), Options),
 	prov_association(Program, Strategy, Graph, ProgramAssociation),
 	prov_association(Person,  Strategy, Graph, PersonAssociation),