diff --git a/SIS/clarin/model/centre.xqm b/SIS/clarin/model/centre.xqm index 69e779b..be6e1a0 100644 --- a/SIS/clarin/model/centre.xqm +++ b/SIS/clarin/model/centre.xqm @@ -48,4 +48,8 @@ declare function centre:get-centre-by-research-infrastructure($ri as xs:string, declare function centre:get-distinct-research-infrastructures(){ fn:distinct-values($centre:centres/nodeInfo/ri) +}; + +declare function centre:get-deposition-centres($ri){ + $centre:centres[nodeInfo/ri=$ri and @deposition=1] }; \ No newline at end of file diff --git a/SIS/clarin/modules/centre.xql b/SIS/clarin/modules/centre.xql index b919f59..99cf526 100644 --- a/SIS/clarin/modules/centre.xql +++ b/SIS/clarin/modules/centre.xql @@ -21,6 +21,10 @@ declare function cm:get-centre-by-research-infrastructure($ri as xs:string, $sta centre:get-centre-by-research-infrastructure($ri, $status) }; +declare function cm:get-deposition-centres($ri as xs:string){ + centre:get-deposition-centres($ri) +}; + declare function cm:count-number-of-centres-with-recommendations($centres) { let $centre-with-recommendations := for $c in $centres diff --git a/SIS/clarin/modules/menu.xql b/SIS/clarin/modules/menu.xql index a14ab3f..0e539fa 100644 --- a/SIS/clarin/modules/menu.xql +++ b/SIS/clarin/modules/menu.xql @@ -10,20 +10,37 @@ import module namespace centre = "http://clarin.ids-mannheim.de/standards/centre :) declare function menu:setResearchInfrastructure() { -, + + + Show all info regardless research infrastructures. + + , for $ri in centre:get-distinct-research-infrastructures() return - + + Switch to {$ri} environment and show only + relevant info to {$ri}, e.g. format recommendations by {$ri} centres. + + + ) }; declare function menu:view() { +
+ + {menu:setResearchInfrastructure()} +
,