Différences entre versions de « Module:Carrousel »

Version actuelle datée du 28 octobre 2021 à 13:56

La documentation pour ce module peut être créée à Module:Carrousel/doc

--[[
-- Debug console

frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
 title = 'Adrien IV' ,
 args = { 
 iri = 'https://gregorius.dsi.universite-paris-saclay.fr/wiki/Adrien_VI',
["Wikidata ID"] = 'Q132845'
}
}
mw.log(p.pape( newFrame ) )

]]

local p = {}

function p.pape(f)
    local linkedwiki = require 'linkedwiki'
    linkedwiki.setCurrentFrame(mw.getCurrentFrame())
    --linkedwiki.setDebug(true)
    
   local subject = f.args.iri or linkedwiki.getCurrentIRI();
   -- select distinct  ( COALESCE(?nomPrecedent, "")  as ?nomp ) ( COALESCE(?nomSuivant, "")  as ?noms )
   local idConfigWikidata ='http://www.wikidata.org' 
   linkedwiki.setConfig(idConfigWikidata)

  local queryStr = [[
PREFIX p: <http://www.wikidata.org/prop/> 
PREFIX pq: <http://www.wikidata.org/prop/qualifier/> 
PREFIX rdfs: <http://www.w3.org/2000/01/rdf-schema#> 
PREFIX wd: <http://www.wikidata.org/entity/> 

select distinct ?precedent ( COALESCE(?nomPrecedent, "")  as ?nomp ) ?suivant ( COALESCE(?nomSuivant, "")  as ?noms )
where { 

    OPTIONAL {
          <http://www.wikidata.org/entity/]] .. f.args['Wikidata ID'] ..   [[> p:P39 ?stat .
          ?stat pq:P1365 ?precedent .
          ?precedent rdfs:label ?nomPrecedent .
          FILTER (langMatches(lang(?nomPrecedent), "fr"))
    }
    OPTIONAL {
          <http://www.wikidata.org/entity/]] .. f.args['Wikidata ID'] ..   [[> p:P39 ?stat .
          ?stat pq:P1366 ?suivant .
          ?suivant rdfs:label ?nomSuivant .
          FILTER (langMatches(lang(?nomSuivant), "fr"))
    }
  }
  ]]
   
  local result = linkedwiki.query(queryStr)
  --linkedwiki.print_r(result)
   
	local newline = [[

]]

local wikitext = ''
local rows = result['result']['rows']
for key,value in pairs(rows) do --actualcode
    local suivantStr =  rows[key]['noms'] 
	local precedentStr =   rows[key]['nomp'] 
	wikitext = wikitext .. '{| class="wikitable" style="float:right;clear: right;width: 350px;"'..newline
          .. '|- '..newline
          .. '| style="width:150px;text-align:left;border: none;"| '
	if not linkedwiki.isEmpty(precedentStr) then
		 wikitext = wikitext .. '[['.. precedentStr .. '|< '.. precedentStr .. ']] [[File:Notification-icon-Wikidata-logo.svg|16px|link='.. rows[key]['precedent'] .. ']]'
	end
	wikitext = wikitext ..newline
          .. '| style="width:150px;text-align:right;border: none;"| '
	if not linkedwiki.isEmpty(suivantStr) then
		wikitext = wikitext .. '[[File:Notification-icon-Wikidata-logo.svg|16px|link='.. rows[key]['suivant'] .. ']] [[' .. suivantStr ..'|' .. suivantStr ..' > ]]'
	end
	wikitext = wikitext ..newline
          .. '|}'..newline
end
 return wikitext
end
return p

Différences entre versions de « Module:Carrousel »

Version actuelle datée du 28 octobre 2021 à 13:56

Menu de navigation

Rechercher

@@ Ligne 6 : / Ligne 6 : @@
   title = 'Adrien IV' ,
   args = {
-  iri = 'https://gregorius.dsi.universite-paris-saclay.fr/wiki/Adrien_VI' ,
+  iri = 'https://gregorius.dsi.universite-paris-saclay.fr/wiki/Adrien_VI',
- 'Adrien IV',  'Pie  VII' }
+["Wikidata ID"] = 'Q132845'
 }
-mw.log(p.carrousel( newFrame ) )
+}
+mw.log(p.pape( newFrame ) )
 ]]
@@ Ligne 15 : / Ligne 16 : @@
 local p = {}
-function p.dump(o)
+function p.pape(f)
-   if type(o) == 'table' then
-      local s = '{ '
-      for k,v in pairs(o) do
-         if type(k) ~= 'number' then k = '"'..k..'"' end
-         s = s .. '['..k..'] = ' .. ','
-      end
-      return s .. '} '
-   else
-      return tostring(o)
-   end
-end
-function p.carrousel(f)
      local linkedwiki = require 'linkedwiki'
      linkedwiki.setCurrentFrame(mw.getCurrentFrame())
-     linkedwiki.setDebug(true)
+     --linkedwiki.setDebug(true)
     local subject = f.args.iri or linkedwiki.getCurrentIRI();
     -- select distinct  ( COALESCE(?nomPrecedent, "")  as ?nomp ) ( COALESCE(?nomSuivant, "")  as ?noms )
---	local idConfigWikidata ='http://www.wikidata.org'
+   local idConfigWikidata ='http://www.wikidata.org'
---	linkedwiki.setConfig(idConfigWikidata)
+   linkedwiki.setConfig(idConfigWikidata)
    local queryStr = [[
 PREFIX p: <http://www.wikidata.org/prop/>
@@ Ligne 44 : / Ligne 32 : @@
 PREFIX wd: <http://www.wikidata.org/entity/>
-select distinct  ?nomPrecedent ?nomSuivant
+select distinct ?precedent ( COALESCE(?nomPrecedent, "")  as ?nomp ) ?suivant ( COALESCE(?nomSuivant, "")  as ?noms )
 where {
-  <]] .. subject ..   [[>
-  <http://gregorius.dsi.universite-paris-saclay.fr/wiki/Property:WikidataID> ?idWikidata .
-  SERVICE <https://query.wikidata.org/sparql> {
+    OPTIONAL {
-           <http://www.wikidata.org/entity/Q57087> p:P39 ?stat .
+           <http://www.wikidata.org/entity/]] .. f.args['Wikidata ID'] ..   [[> p:P39 ?stat .
+           ?stat pq:P1365 ?precedent .
-           ?stat pq:P1365 ?precedent ;
+          ?precedent rdfs:label ?nomPrecedent .
-              pq:P1366 ?suivant .
+          FILTER (langMatches(lang(?nomPrecedent), "fr"))
+    }
-            ?precedent rdfs:label ?nomPrecedent .
+    OPTIONAL {
-            ?suivant rdfs:label ?nomSuivant .
+          <http://www.wikidata.org/entity/]] .. f.args['Wikidata ID'] ..   [[> p:P39 ?stat .
+          ?stat pq:P1366 ?suivant .
-             FILTER (langMatches(lang(?nomPrecedent), "fr")
+          ?suivant rdfs:label ?nomSuivant .
-                    && langMatches(lang(?nomSuivant), "fr")
+          FILTER (langMatches(lang(?nomSuivant), "fr"))
-                    )
+    }
    }
-}
    ]]
    local result = linkedwiki.query(queryStr)
---linkedwiki.print_r(result)
+  --linkedwiki.print_r(result)
 	local newline = [[
@@ Ligne 72 : / Ligne 57 : @@
 ]]
- --local suivant =   result['result']['rows']['0']['nomSuivant']
+local wikitext = ''
- --local precedent =   result['result']['rows']['0']['nomPrecedent']
+local rows = result['result']['rows']
+for key,value in pairs(rows) do --actualcode
+    local suivantStr =  rows[key]['noms']
--- 	return '{| class="wikitable" align="right"'..newline
+	local precedentStr =   rows[key]['nomp']
---           .. '|- '..newline
+	wikitext = wikitext .. '{| class="wikitable" style="float:right;clear: right;width: 350px;"'..newline
---           .. '| style="width:150px;text-align:left;"|  [['.. precedent .. '|< '.. precedent .. ']] '..newline
+           .. '|- '..newline
---           .. '| style="width:150px;text-align:right;"| [[' .. suivant ..'|' .. suivant ..' > ]]'..newline
+           .. '| style="width:150px;text-align:left;border: none;"| '
---           .. '|}'
+	if not linkedwiki.isEmpty(precedentStr) then
+		 wikitext = wikitext .. '[['.. precedentStr .. '|< '.. precedentStr .. ']] [[File:Notification-icon-Wikidata-logo.svg|16px|link='.. rows[key]['precedent'] .. ']]'
--- -- --
+	end
-     return queryStr
+	wikitext = wikitext ..newline
+           .. '| style="width:150px;text-align:right;border: none;"| '
+	if not linkedwiki.isEmpty(suivantStr) then
+		wikitext = wikitext .. '[[File:Notification-icon-Wikidata-logo.svg|16px|link='.. rows[key]['suivant'] .. ']] [[' .. suivantStr ..'|' .. suivantStr ..' > ]]'
+	end
+	wikitext = wikitext ..newline
+           .. '|}'..newline
+end
+  return wikitext
 end
 return p