Modul:Datei: Unterschied zwischen den Versionen

258 Bytes hinzugefügt ,  Dienstag um 21:06
+ namespace check
(Dateiinfo Bild-Unterschrift und Info-Box)
(+ namespace check)
 
Zeile 15: Zeile 15:
-- =p.Dateibox{pargs={["fullpagename"]="Datei:test.jpg",["Beschreibung"]="Int. Tag gegen Gewalt an Frauen: Aktive vom ''Unabhängige Frauen Fürth e. V.'' an einem Infostand, Nov. 2019"}}
-- =p.Dateibox{pargs={["fullpagename"]="Datei:test.jpg",["Beschreibung"]="Int. Tag gegen Gewalt an Frauen: Aktive vom ''Unabhängige Frauen Fürth e. V.'' an einem Infostand, Nov. 2019"}}
-- =p.Dateibox{pargs={["fullpagename"]="Datei:test.jpg",["Attribut1"]="Gebäude",["Wert1"]="Wolfringstraße 1",["Attribut2"]="Gebäude",["Wert2"]="Königstraße 86"}}
-- =p.Dateibox{pargs={["fullpagename"]="Datei:test.jpg",["Attribut1"]="Gebäude",["Wert1"]="Wolfringstraße 1",["Attribut2"]="Gebäude",["Wert2"]="Königstraße 86"}}
local frame, pargs = dev.GetFrameAndParentArgs(frame)
local t = ""
local title = pargs["fullpagename"] or wik.fullpagename() -- pargs["fullpagename"] zum Testen/Debuggen
local t, v = "", ""
if wik.namespace() == "Datei" then
 
-- Tabellenkopf
local frame, pargs = dev.GetFrameAndParentArgs(frame)
t = t .. "<table class = \"wikitable\">"
local title = pargs["fullpagename"] or wik.fullpagename() -- pargs["fullpagename"] zum Testen/Debuggen
t = t .. "<th colspan = \"4\">" .. title .. "</th>"
local v = ""
 
-- Genre-Kategorien
-- Tabellenkopf
v = ""
t = t .. "<table class = \"wikitable\">"
for i, g in ipairs(str.splitAndStrip(pargs["Genre"], ";")) do
t = t .. "<th colspan = \"4\">" .. title .. "</th>"
if i > 1 then
v = v .. ", "
-- Genre-Kategorien
v = ""
for i, g in ipairs(str.splitAndStrip(pargs["Genre"], ";")) do
if i > 1 then
v = v .. ", "
end
v = v .. "[[:Kategorie:" .. g .. "|" .. g .. "]]{{#set:Genre=" .. g .. "}}[[Kategorie:" .. g .. "]]"
end
t = t .. p.attrZeile("Genre", v)
-- Freiattribute
local aw = {}
local aw_fail = false
for i = 1, 6 do
local a = pargs["Attribut" .. i] or ""
local w = pargs["Wert" .. i] or ""
if a ~= "" and  w ~= "" then
aw[a] = (aw[a] or "") .. w .. ";" -- Werte zusammenführen
elseif a ~= "" or  w ~= "" then
aw_fail = true
end
end
end
v = v .. "[[:Kategorie:" .. g .. "|" .. g .. "]]{{#set:Genre=" .. g .. "}}[[Kategorie:" .. g .. "]]"
if aw_fail then
end
t = t .. "[[Kategorie:Freiattribut-Fehler]]"
t = t .. p.attrZeile("Genre", v)
 
-- Freiattribute
local aw = {}
local aw_fail = false
for i = 1, 6 do
local a = pargs["Attribut" .. i] or ""
local w = pargs["Wert" .. i] or ""
if a ~= "" and  w ~= "" then
aw[a] = (aw[a] or "") .. w .. ";" -- Werte zusammenführen
elseif a ~= "" or  w ~= "" then
aw_fail = true
end
end
end
for a, w in pairs(aw) do
if aw_fail then
if a == "Gebäude" then -- zusätzlich Gebäude nach StraßeHnr suchen und hinzufügen
t = t .. "[[Kategorie:Freiattribut-Fehler]]"
local gebaeude_wert = {}
end
for _, e in ipairs(str.splitAndStrip(w, ";")) do -- direkt über Wertx angegebene Gebäude
for a, w in pairs(aw) do
gebaeude_wert[e] = true
if a == "Gebäude" then -- zusätzlich Gebäude nach StraßeHnr suchen und hinzufügen
end
local gebaeude_wert = {}
local gebaeude_query = {}
for _, e in ipairs(str.splitAndStrip(w, ";")) do -- direkt über Wertx angegebene Gebäude
for g, _ in pairs(gebaeude_wert) do -- über query ermittelte Gebäude
gebaeude_wert[e] = true
local q = "[[:+]][[Kategorie:Gebäude]][[StraßeHnr::" .. g .. "]]|?#-"
end
q = mw.smw.ask(q) or {}
local gebaeude_query = {}
for _, qg in ipairs(q) do
for g, _ in pairs(gebaeude_wert) do -- über query ermittelte Gebäude
qg = qg[1]
local q = "[[:+]][[Kategorie:Gebäude]][[StraßeHnr::" .. g .. "]]|?#-"
if gebaeude_wert[qg] ~= true then -- nur, wenn nicht schon direkt angegeben (auch nil!)
q = mw.smw.ask(q) or {}
gebaeude_query[qg] = true
for _, qg in ipairs(q) do
end
qg = qg[1]
end
if gebaeude_wert[qg] ~= true then -- nur, wenn nicht schon direkt angegeben (auch nil!)
end
gebaeude_query[qg] = true
v = "" -- jetzt den Anzeigetext zusammenbauen
for g, _ in pairs(gebaeude_wert) do -- erst die direkt angegebenen Gebäude
if v ~= "" then
v = v .. ", "
end
end
v = v .. "[[" .. a .. "::" .. g .. "]]"
end
end
end
local v_query = ""     -- dann die via query ermittelten Gebäude
v = "" -- jetzt den Anzeigetext zusammenbauen
for g, _ in pairs(gebaeude_query) do
for g, _ in pairs(gebaeude_wert) do -- erst die direkt angegebenen Gebäude
if v_query ~= "" then
if v ~= "" then
v_query = v_query .. ", "
v = v .. ", "
end
v_query = v_query .. "[[" .. a .. "::" .. g .. "]]"
end
end
v = v .. "[[" .. a .. "::" .. g .. "]]"
end
local v_query = ""     -- dann die via query ermittelten Gebäude
for g, _ in pairs(gebaeude_query) do
if v_query ~= "" then
if v_query ~= "" then
v_query = v_query .. ", "
v = v .. "<br>automatisch ermittelt über Straße/Hausnummer: " .. v_query
end
end
v_query = v_query .. "[[" .. a .. "::" .. g .. "]]"
else
v = p.attrValList(a, {[a] = w})
end
end
if v_query ~= "" then
t = t .. p.attrZeile(a, v)
v = v .. "<br>automatisch ermittelt über Straße/Hausnummer: " .. v_query
end
-- normale Zeilen
t = t .. p.attrZeile("Urheber", p.attrValList("Urheber", pargs))
t = t .. p.attrZeile("Quellangaben", p.attrVal("Quellangaben", pargs))
-- Ort/Straße mit Ausblendung
for _, a in ipairs{{"Straße", "ZeigeNichtInStraße"}, {"Ort", "ZeigeNichtInOrt"}} do
v = p.attrValList(a[1], pargs)
if v ~= "" then
t = t .. p.zeile("[[Attribut:" .. a[1] .. "|" .. wob.attr_text(a[1]) .. "]]", v, "ausgeblendet:",
"[[" .. a[2] .. "::" .. (pargs[a[2]] or "Nein") .. "]]")
end
end
else
v = p.attrValList(a, {[a] = w})
end
end
t = t .. p.attrZeile(a, v)
end
-- Dateiart/Dateityp
 
local extension = p.getExtension(title)
-- normale Zeilen
local filekind = p.getFilekind(extension)
t = t .. p.attrZeile("Urheber", p.attrValList("Urheber", pargs))
t = t .. p.attrZeile("Dateiart", "[[Dateiart::" .. filekind .. "]]",  
t = t .. p.attrZeile("Quellangaben", p.attrVal("Quellangaben", pargs))
"Dateityp", "[[Dateityp::" .. extension .. "]]")
 
-- Ort/Straße mit Ausblendung
-- Erstellungsdatum/ÜberDatum
for _, a in ipairs{{"Straße", "ZeigeNichtInStraße"}, {"Ort", "ZeigeNichtInOrt"}} do
for _, d in ipairs{
v = p.attrValList(a[1], pargs)
{"Erstellungsdatum", "Erstellungstag", "Erstellungsjahr"},
if v ~= "" then
{"ÜberDatum", "ÜberTag", "ÜberJahr"}} do
t = t .. p.zeile("[[Attribut:" .. a[1] .. "|" .. wob.attr_text(a[1]) .. "]]", v, "ausgeblendet:",
local date = pargs[d[1]] or ""
"[[" .. a[2] .. "::" .. (pargs[a[2]] or "Nein") .. "]]")
if date ~= "" then
t = t .. p.attrZeile(d[1], lfd.linkFormDate(date, d[1], d[2], d[3]))
end
end
end
end
 
-- normale Zeilen
-- Dateiart/Dateityp
t = t .. p.attrZeile("Seitennummer", p.attrValList("Seitennummer", pargs))
local extension = p.getExtension(title)
t = t .. p.attrZeile("Signatur", p.attrVal("Signatur", pargs))
local filekind = p.getFilekind(extension)
t = t .. p.attrZeile("Länge", p.attrVal("Länge", pargs))
t = t .. p.attrZeile("Dateiart", "[[Dateiart::" .. filekind .. "]]",  
t = t .. p.attrZeile("Lizenz", p.attrVal("Lizenz", pargs))
"Dateityp", "[[Dateityp::" .. extension .. "]]")
t = t .. p.attrZeile("UploadCommons", p.attrVal("UploadCommons", pargs))
 
t = t .. p.attrZeile("Beschreibung", p.attrVal("Beschreibung", pargs))
-- Erstellungsdatum/ÜberDatum
for _, d in ipairs{
-- Dateiinfo erstellen
{"Erstellungsdatum", "Erstellungstag", "Erstellungsjahr"},
local dateiinfo, infotext = "", ""
{"ÜberDatum", "ÜberTag", "ÜberJahr"}} do
if not com.isEmpty(pargs["Beschreibung"]) then -- Beschreibung
local date = pargs[d[1]] or ""
dateiinfo = dateiinfo .. wik.wikiTextLimit(pargs["Beschreibung"], 100) -- max. Zeichenanzahl Bild-Unterschrift
if date ~= "" then
if mw.ustring.len(dateiinfo) ~= mw.ustring.len(pargs["Beschreibung"]) then
t = t .. p.attrZeile(d[1], lfd.linkFormDate(date, d[1], d[2], d[3]))
dateiinfo = dateiinfo .. " ..."
infotext = infotext .. pargs["Beschreibung"]
end
end
end
end
local urheber = str.splitAndStrip(pargs["Urheber"] or "", ";") -- Urheber
 
if #urheber > 0 then
-- normale Zeilen
for u = 1, #urheber do
t = t .. p.attrZeile("Seitennummer", p.attrValList("Seitennummer", pargs))
if wik.pageExists(urheber[u]) then
t = t .. p.attrZeile("Signatur", p.attrVal("Signatur", pargs))
urheber[u] = "[[" .. urheber[u] .. "]]"
t = t .. p.attrZeile("Länge", p.attrVal("Länge", pargs))
end
t = t .. p.attrZeile("Lizenz", p.attrVal("Lizenz", pargs))
end
t = t .. p.attrZeile("UploadCommons", p.attrVal("UploadCommons", pargs))
if infotext ~= "" then
t = t .. p.attrZeile("Beschreibung", p.attrVal("Beschreibung", pargs))
infotext = infotext .. "<br>"
 
end
-- Dateiinfo erstellen
infotext = infotext .. wob.attr_text("Urheber") .. ": " .. table.concat(urheber, ", ")
local dateiinfo, infotext = "", ""
if not com.isEmpty(pargs["Beschreibung"]) then -- Beschreibung
dateiinfo = dateiinfo .. wik.wikiTextLimit(pargs["Beschreibung"], 100) -- max. Zeichenanzahl Bild-Unterschrift
if mw.ustring.len(dateiinfo) ~= mw.ustring.len(pargs["Beschreibung"]) then
dateiinfo = dateiinfo .. " ..."
infotext = infotext .. pargs["Beschreibung"]
end
end
end
for _, d in ipairs{"Erstellungsdatum", "ÜberDatum"} do -- Erstellungsdatum, ÜberDatum
local urheber = str.splitAndStrip(pargs["Urheber"] or "", ";") -- Urheber
date = pargs[d] or ""
if #urheber > 0 then
if date ~= "" then
for u = 1, #urheber do
if infotext ~= "" then
if wik.pageExists(urheber[u]) then
infotext = infotext .. "<br>"
urheber[u] = "[[" .. urheber[u] .. "]]"
end
infotext = infotext .. wob.attr_text(d) .. ": " .. lfd.linkFormDate(date)
end
end
end
end
if infotext ~= "" then
if not com.isEmpty(pargs["Lizenz"]) then -- Lizenz
infotext = infotext .. "<br>"
end
infotext = infotext .. wob.attr_text("Urheber") .. ": " .. table.concat(urheber, ", ")
end
for _, d in ipairs{"Erstellungsdatum", "ÜberDatum"} do -- Erstellungsdatum, ÜberDatum
date = pargs[d] or ""
if date ~= "" then
if infotext ~= "" then
if infotext ~= "" then
infotext = infotext .. "<br>"
infotext = infotext .. "<br>"
end
end
infotext = infotext .. wob.attr_text(d) .. ": " .. lfd.linkFormDate(date)
infotext = infotext .. wob.attr_text("Lizenz") .. ": " .. pargs["Lizenz"]
end
end
end
if not com.isEmpty(pargs["Lizenz"]) then -- Lizenz
if infotext ~= "" then
if infotext ~= "" then
infotext = infotext .. "<br>"
if dateiinfo ~= "" then
dateiinfo = dateiinfo .. " "
end
dateiinfo = dateiinfo .. "{{#info:" .. infotext .. "|note}}"
end
end
infotext = infotext .. wob.attr_text("Lizenz") .. ": " .. pargs["Lizenz"]
end
if infotext ~= "" then
if dateiinfo ~= "" then
if dateiinfo ~= "" then
dateiinfo = dateiinfo .. " "
t = t .. p.zeile("[[Attribut:Dateiinfo|Dateiinfo]] '''<br>(Bild-Unterschrift und Info-Box,<br>automatisch erstellt)''' ", "[[Dateiinfo::" .. dateiinfo .. "]]")
end
end
dateiinfo = dateiinfo .. "{{#info:" .. infotext .. "|note}}"
end
-- Tabellenende mit sem. Browsen
if dateiinfo ~= "" then
t = t .. p.zeile("[[Bild:IconSearch.svg|16px|semantisches Browsen|link=Spezial:Durchsuchen/{{FULLPAGENAME}}]]",
t = t .. p.zeile("[[Attribut:Dateiinfo|Dateiinfo]] '''<br>(Bild-Unterschrift und Info-Box,<br>automatisch erstellt)''' ", "[[Dateiinfo::" .. dateiinfo .. "]]")
"[[Spezial:Durchsuchen/{{FULLPAGENAME}}|semantisches Browsen]]")
end
t = t .. "</table>"
-- Seite setzen
t = t .. "{{#set:Seite=" .. wik.fullpagename() .. "}}"
-- mw.logObject(t, "t")
t = frame:preprocess(t)


-- Tabellenende mit sem. Browsen
end -- if wik.namespace() == "Datei" then
t = t .. p.zeile("[[Bild:IconSearch.svg|16px|semantisches Browsen|link=Spezial:Durchsuchen/{{FULLPAGENAME}}]]",
"[[Spezial:Durchsuchen/{{FULLPAGENAME}}|semantisches Browsen]]")
t = t .. "</table>"
-- Seite setzen
t = t .. "{{#set:Seite=" .. wik.fullpagename() .. "}}"


-- mw.logObject(t, "t")
t = frame:preprocess(t)
-- mw.logObject(t, "t")
-- mw.logObject(t, "t")
return t
return t