amalgame/commit

IMPROVED: assert external scheme type in strategy graph

authorJacco van Ossenbruggen
Thu May 14 17:29:12 2015 +0200
committerJacco van Ossenbruggen
Thu May 14 17:29:12 2015 +0200
commiteae1644710774d23c11f7b4a65aeb4a47e6cda50
treeb5f9039ef7f4822f94270298252f61bb72e14604
parent959aa78cffa93675d9c6c71f2a389c510e074046
Diff style: patch stat
diff --git a/lib/amalgame/ag_strategy.pl b/lib/amalgame/ag_strategy.pl
index 3abdc54..70e497f 100644
--- a/lib/amalgame/ag_strategy.pl
+++ b/lib/amalgame/ag_strategy.pl
@@ -94,7 +94,9 @@ lang_used(Strategy, Voc, Langs) :-
 %	Adds Vocabulary as an included scheme in Strategy.
 
 strategy_add_vocabulary(Strategy, Vocabulary) :-
-	rdf_assert(Strategy, amalgame:includes, Vocabulary, Strategy).
+	rdf_assert(Strategy, amalgame:includes, Vocabulary, Strategy),
+	rdf_assert(Vocabulary, rdf:type, skos:'ConceptScheme', Strategy).
+
 
 %%	new_process(+Process, +Strategy, +Source, +Target, +Input,
 %%	+SecInputs, +Params, -NewFocus)