amalgame/commit

FIXED: process label code was abusing rdf_display_label

authorJacco van Ossenbruggen
Fri Feb 21 16:04:21 2020 +0100
committerJacco van Ossenbruggen
Fri Feb 21 16:04:21 2020 +0100
commit2e61284fc109a1960447d0b5482458b24ccbcfb0
treea0405b1c76774778f28d82883e73546fd6016e5b
parent4ec400d8ed37777511f7623168b87073590aa483
Diff style: patch stat
diff --git a/lib/amalgame/ag_strategy.pl b/lib/amalgame/ag_strategy.pl
index 30c8b58..9be8834 100644
--- a/lib/amalgame/ag_strategy.pl
+++ b/lib/amalgame/ag_strategy.pl
@@ -213,10 +213,10 @@ assert_secondary_inputs([URI|URIs], Process, Type, Strategy) :-
 	assert_secondary_inputs(URIs, Process, Type, Strategy).
 
 assert_process(Process, Type, Graph, Params) :-
-	process_label(Type, Label),
+	process_label_literal(Type, Label),
 	uri_query_components(Search, Params),
 	rdf_assert(Process, rdf:type, Type, Graph),
-	rdf_assert(Process, rdfs:label, literal(Label), Graph),
+	rdf_assert(Process, rdfs:label, Label, Graph),
 	rdf_assert(Process, amalgame:parameters, literal(Search), Graph).
 
 new_output(Type, Process, P, Input, Strategy, OutputURI) :-
@@ -248,9 +248,9 @@ output_type(ProcessType, amalgame:'VirtualConceptScheme') :-
 	!.
 output_type(_ProcessType, amalgame:'Mapping').
 
-process_label(P, Lit) :-
-	(   rdf_display_label(P, L)
-	->  Lit = L
+process_label_literal(P, Lit) :-
+	(   rdf_label(P, Lit)
+	->  true
 	;   rdf_global_id(_:Local, P),
 	    Lit = literal(Local)
 	).