:- module(conf_waisda,
	  [ load_data/0
	  ]).

:- use_module(library(http/http_dispatch)).
:- use_module(library(semweb/rdf_db)).
:- use_module(library(semweb/rdfs)).
:- use_module(library(semweb/rdf_zlib_plugin)).
:- use_module(library(semweb/rdf_library)).
:- use_module(config_available(skos)).
:- use_module(config_available(yaz)).
:- use_module(applications(yaz_home)).

/** <module> Management of user-generated metadata for Waisda video labeling game
*/

:- rdf_register_ns(gtaa, 'http://data.beeldengeluid.nl/gtaa/').
:- rdf_register_ns(cornetto, 'http://purl.org/vocabularies/cornetto/').

/* RDF data
   We assume the Waisda rdf is available at ../rdf
   We assume vocabularies are available above the root directory in ../vocs
*/

:- rdf_attach_library('../rdf').
:- rdf_attach_library('../vocs').

/* Home page
   We set it to the YAZ start page
*/

:- http_handler(cliopatria(home), home, []).

home(Request) :-
        http_yaz_home(Request).


%%	load_data
%
%	Load all data to run the Waisda UGM managment demo.

load_data :-
	rdf_load_library(waisdadump),
	rdf_load_library(gtaa),
	rdf_load_library(cornetto).


:- multifile
	yaz:tag_type/2.

yaz:tag_type(person, R) :-
	rdf(R, skos:inScheme, gtaa:'Persoonsnamen').
yaz:tag_type(person, R) :-
	rdf(R, skos:inScheme, gtaa:'Namen').
yaz:tag_type(location, R) :-
	rdf(R, skos:inScheme, gtaa:'GeografischeNamen').
yaz:tag_type(subject, R) :-
	rdf(R, skos:inScheme, gtaa:'OnderwerpenBenG').
yaz:tag_type(subject, R) :-
	rdf(R, skos:inScheme, gtaa:'Subjects').
yaz:tag_type(subject, Tag) :-
	rdfs_individual_of(Tag, cornetto:'Synset').