Modul:Datei/Work
Die Dokumentation für dieses Modul kann unter Modul:Datei/Work/Doku erstellt werden
local p = {}
local com = require("Modul:Common")
local dev = require("Modul:Development")
local str = require("Modul:String")
local wik = require("Modul:Wiki")
local lfd = require("Modul:LinkFormDatum")
local wob = require("Modul:Wörterbuch")
local kal = require("Modul:Kalender")
local license_url = {
-- Quelle: https://creativecommons.org/licenses/list.en
["CC BY 3.0"] = "https://creativecommons.org/licenses/by/3.0/de/deed.de",
["CC BY-NC 3.0"] = "https://creativecommons.org/licenses/by-nc/3.0/de/deed.de",
["CC BY-NC-ND 3.0"] = "https://creativecommons.org/licenses/by-nc-nd/3.0/de/deed.de",
["CC BY-NC-SA 3.0"] = "https://creativecommons.org/licenses/by-nc-sa/3.0/de/deed.de",
["CC BY-ND 3.0"] = "https://creativecommons.org/licenses/by-nd/3.0/de/deed.de",
["CC BY-SA 3.0"] = "https://creativecommons.org/licenses/by-sa/3.0/de/deed.de",
["CC BY 4.0"] = "https://creativecommons.org/licenses/by/4.0/deed.de",
["CC BY-NC 4.0"] = "https://creativecommons.org/licenses/by-nc/4.0/deed.de",
["CC BY-NC-ND 4.0"] = "https://creativecommons.org/licenses/by-nc-nd/4.0/deed.de",
["CC BY-NC-SA 4.0"] = "https://creativecommons.org/licenses/by-nc-sa/4.0/deed.de",
["CC BY-ND 4.0"] = "https://creativecommons.org/licenses/by-nd/4.0/deed.de",
["CC BY-SA 4.0"] = "https://creativecommons.org/licenses/by-sa/4.0/deed.de"}
function p.Dateibox(frame)
-- mw.log("Dateibox(frame)")
-- mw.logObject(frame, "frame")
-- Kommando-Zeile zum Debuggen:
-- =p.Dateibox{pargs={["fullpagename"]="Datei:test.jpg",["Genre"]="g1;g2",["Attribut1"]="a1",["Wert1"]="w1;w2"}}
-- =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"}}
local t = ""
if wik.namespace() == "Datei" then
local frame, pargs = dev.GetFrameAndParentArgs(frame)
local title = pargs["fullpagename"] or wik.fullpagename() -- pargs["fullpagename"] zum Testen/Debuggen
local v = ""
-- Tabellenkopf
t = t .. "<table class = \"wikitable\">"
t = t .. "<th colspan = \"4\">" .. title .. "</th>"
-- Genre-Kategorien
v = ""
for _, g in ipairs(str.splitAndStrip(pargs["Genre"], ";")) do
v = str.appendWithComma(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
if aw_fail then
mw.smw.set{["Wartungsmeldung"]="Datei-Freiattribut-Fehler"}
end
for a, w in pairs(aw) do
if a == "Gebäude" then -- zusätzlich Gebäude nach StraßeHnr suchen und hinzufügen
local gebaeude_wert = {}
for _, e in ipairs(str.splitAndStrip(w, ";")) do -- direkt über Wertx angegebene Gebäude
gebaeude_wert[e] = true
end
local gebaeude_query = {}
for g, _ in pairs(gebaeude_wert) do -- über query ermittelte Gebäude
local q = "[[:+]][[Kategorie:Gebäude]]" ..
"[[StraßeHnr::" .. g .. "]]|?#-"
q = mw.smw.ask(q) or {}
for _, qg in ipairs(q) do
qg = qg[1]
if gebaeude_wert[qg] ~= true then -- nur, wenn nicht schon direkt angegeben (auch nil!)
gebaeude_query[qg] = true
end
end
end
v = "" -- jetzt den Anzeigetext zusammenbauen
for g, _ in pairs(gebaeude_wert) do -- erst die direkt angegebenen Gebäude
v = str.appendWithComma(v, "[[" .. a .. "::" .. g .. "]]")
end
local v_query = "" -- dann die via query ermittelten Gebäude
for g, _ in pairs(gebaeude_query) do
v_query = str.appendWithComma(v_query, "[[" .. a .. "::" .. g .. "]]")
end
if v_query ~= "" then
v = v .. "<br>automatisch ermittelt über Straße/Hausnummer: " ..
v_query
end
elseif a == "Straße" then -- Straße als Freiattribute wird zu pargs["Straße"] verschoben
mw.smw.set{["Wartungsmeldung"]="Datei-Freiattribut-Fehler Straßen-Angabe"}
pargs["Straße"] = (pargs["Straße"] or "") .. ";" .. w
v = ""
elseif a == "Ort" then -- Ort als Freiattribute wird zu pargs["Ort"] verschoben
mw.smw.set{["Wartungsmeldung"]="Datei-Freiattribut-Fehler Orts-Angabe"}
pargs["Ort"] = (pargs["Ort"] or "") .. ";" .. w
v = ""
else
v = p.attrValList(a, {[a] = w})
end
t = t .. p.attrZeile(a, v)
end
-- normale Zeilen
t = t .. p.attrZeile("Urheber", p.attrValList("Urheber", pargs),
nil, nil, "fileinfotpl_aut") -- mit Setzen der Medienbetracher-Tags
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 = pargs[a[1]] or ""
if v ~= "" then
local zeige_nicht = pargs[a[2]] or "Nein"
local anmerkung = ""
for _, o in ipairs(str.splitAndStrip(v, ";")) do
if not com.isTrue(zeige_nicht) then
local query = {
"[[Seite::" .. o .. "]]" ..
"[[Seite::" .. wik.fullpagename() .. "]]" ..
"[[ZeigeNichtIn" .. a[1] .. "::Ja]]",
mainlabel = "-",
"?#-",
limit = 1}
query = mw.smw.ask(query)
if query ~= nil then
anmerkung =
" <sup>[[" .. query[1][1] .. "|*)]]</sup>"
zeige_nicht = "Ja"
end
else
break
end
end
t = t .. p.zeile(
"[[Attribut:" .. a[1] .. "|" .. wob.attrText(a[1]) .. "]]",
"[[" .. a[1] .. "::" .. v .. "]]",
"ausgeblendet:",
"[[" .. a[2] .. "::" .. zeige_nicht .. "]]" .. anmerkung)
mw.smw.set{[a[2]] = pargs[a[2]] or "Nein"}
end
end
-- Dateiart/Dateityp
local extension = p.getExtension(title)
local filekind = p.getFilekind(extension)
t = t .. p.attrZeile("Dateiart", "[[Dateiart::" .. filekind .. "]]",
"Dateityp", "[[Dateityp::" .. extension .. "]]")
-- Erstellungsdatum/ÜberDatum
local erstellungsdatum = pargs["Erstellungsdatum"] or ""
if erstellungsdatum ~= "" then
t = t .. p.attrZeile("Erstellungsdatum",
lfd.linkFormDate(erstellungsdatum,
"Erstellungsdatum", "Erstellungstag", "Erstellungsjahr"))
end
ueberdatum = pargs["ÜberDatum"] or ""
if ueberdatum ~= "" then
t = t .. p.attrZeile("ÜberDatum",
lfd.linkFormDate(ueberdatum, "ÜberDatum", "ÜberTag", "ÜberJahr"))
end
-- normale Zeilen
t = t .. p.attrZeile("Seitennummer", p.attrValList("Seitennummer", pargs))
t = t .. p.attrZeile("Signatur", p.attrVal("Signatur", pargs))
t = t .. p.attrZeile("Länge", p.attrVal("Länge", pargs))
-- Lizenz mit Setzen der Medienbetracher-Tags
local lizenz, is_cc_license =
p.ccLicenseCorrection(pargs["Lizenz"] or "") -- ggf. CC-Schreibeweise korrigieren
if not is_cc_license then
lizenz = p.nocNcLicenseCorrection(lizenz) -- ggf. NoC-NC 1.0 Schreibweise korrigieren
end
if not com.isEmpty(lizenz) then -- Spezial-Behandlung für Media Viewer
t = t ..
"<tr>" ..
"<td class=\"fileinfo-paramfield\">'''[[Attribut:Lizenz|Lizenz]]'''</td>" ..
"<td colspan = \"3\">" ..
"<span class=\"licensetpl\">" ..
"<span class=\"licensetpl_short\">" ..
lizenz ..
"</span>" ..
"</span>" ..
"</td>" ..
"</tr>" ..
"{{#set:Lizenz=" .. lizenz .. "}}"
end
-- normale Zeilen
t = t .. p.attrZeile("UploadCommons", p.attrVal("UploadCommons", pargs))
t = t .. p.attrZeile("Beschreibung", p.attrVal("Beschreibung", pargs),
nil, nil, "fileinfotpl_desc") -- mit Setzen der Medienbetracher-Tags
-- Dateiinfo erstellen
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
local urheber = str.splitAndStrip(pargs["Urheber"] or "", ";") -- Urheber
if #urheber > 0 then
for u = 1, #urheber do
if wik.pageExists(urheber[u]) then
urheber[u] = "[[" .. urheber[u] .. "]]"
end
end
if infotext ~= "" then
infotext = infotext .. "<br>"
end
infotext = infotext .. wob.attrText("Urheber") .. ": " ..
table.concat(urheber, ", ")
end
for _, d in ipairs{"Erstellungsdatum", "ÜberDatum"} do -- Erstellungsdatum, ÜberDatum
date = pargs[d] or ""
if date ~= "" then
if infotext ~= "" then
infotext = infotext .. "<br>"
end
end
end
if not com.isEmpty(lizenz) then -- Lizenz
if infotext ~= "" then
infotext = infotext .. "<br>"
end
infotext = infotext .. wob.attrText("Lizenz") .. ": " .. lizenz
end
if infotext ~= "" then
if dateiinfo ~= "" then
dateiinfo = dateiinfo .. " "
end
dateiinfo = dateiinfo .. "{{#info:" .. infotext .. "|note}}"
end
if dateiinfo ~= "" then
t = t .. p.zeile("[[Attribut:Dateiinfo|Dateiinfo]] '''<br>" ..
"(Bild-Unterschrift und Info-Box,<br>automatisch erstellt)''' ",
"[[Dateiinfo::" .. dateiinfo .. "]]")
end
-- Quellangaben plus Hinweis als Medienbetrachter-Zeile
t = t .. p.zeile("Medienbetrachter-Zeile'''<br>(automatisch erstellt)''' ",
(pargs["Quellangaben"] or "") ..
" ▽ mehr Infos ▽", nil, nil, "fileinfotpl_src")
--[[ funktioniert nicht
if is_cc_license then
t = t ..
"<tr>" ..
"<td class=\"fileinfo-paramfield\">'''Lizenz-URL'''<br>(automatisch erstellt)</td>" ..
"<td colspan = \"3\">" ..
"<span class=\"licensetpl\">" ..
"<span class=\"licensetpl_link\">" ..
license_url[lizenz] ..
"</span>" ..
"</span>" ..
"</td>" ..
"</tr>"
end ]]
-- Erstellungsdatum ISO-Notation für Media Viewer
if erstellungsdatum ~= "" then
t = t .. p.zeile("Erstellungsdatum,<br>'''(ISO-Notation automatisch erstellt)''' ",
kal.date2ISO(erstellungsdatum), nil, nil, "fileinfotpl_date")
end
-- Tabellenende mit sem. Browsen und Bilder-Suche
t = t .. p.zeile("[[Bild:IconSearch.svg|16px|Semantisches Browsen|link=Spezial:Durchsuchen/{{FULLPAGENAME}}]]",
"[[Spezial:Durchsuchen/{{FULLPAGENAME}}|Semantisches Browsen]] / " ..
"{{#queryformlink:form=Abfrage Bilder|link text=Bilder-Suche}}")
t = t .. "</table>"
-- Seite setzen
t = t .. "{{#set:Seite=" .. wik.fullpagename() .. "}}"
-- mw.logObject(t, "t")
t = frame:preprocess(t)
end -- if wik.namespace() == "Datei" then
-- mw.logObject(t, "t")
return t
end
function p.getExtension(filename)
local extension = filename:match("^.+%.([^%.]+)$")
return mw.ustring.lower(extension)
end
function p.getFilekind(filetype)
local t = {
["Bild"] = {"webp", "png", "gif", "jpg", "jpeg", "svg"},
["Dokument"] = {"pdf"},
["Audio"] = {"mp3", "ogg", "oga", "flac", "opus", "wav"},
["Midi"] = {"midi", "mid"},
["Video"] = {"webm", "mp4", "m4v", "ogv", "mpg", "mpeg"},
["3D-Modell"] = {"obj", "glb", "gltf"},
}
for key, values in pairs(t) do
for _, value in ipairs(values) do
if value == filetype then
return key -- Bricht beide Schleifen ab und gibt den Key zurück
end
end
end
return "" -- Gib leeren String zurück, wenn nichts gefunden wurde
end
function p.attrVal(a, pargs) -- Wert zu Attribut wandeln
local t = ""
local v = pargs[a] or ""
if v ~= "" then
t = t .. "[[" .. a .. "::" .. v .. "]]"
end
return t
end
function p.attrValList(a, pargs) -- Werteliste zu Attributen wandeln
local t = ""
local l = str.splitAndStrip(pargs[a] or "", ";")
for _, v in ipairs(l) do
t = str.appendWithComma(t, "[[" .. a .. "::" .. v .. "]]")
end
return t
end
function p.attrZeile(a1, v1, a2, v2, id1) -- Tabellenzeile mit max. 2 Attributen
local t = ""
if v1 ~= "" then
a1 = "[[Attribut:" .. a1 .. "|" .. wob.attrText(a1) .. "]]"
if a2 ~= nil and v2 ~= nil and v2 ~= "" then
a2 = "[[Attribut:" .. a2 .. "|" .. wob.attrText(a2) .. "]]"
end
t = t .. p.zeile(a1, v1, a2, v2, id1)
end
return t
end
function p.zeile(a1, v1, a2, v2, id1) -- Tabellenzeile mit max. 2x2 Einträgen
local t = ""
if v1 ~= "" then
t = t .. "<tr>"
if id1 == nil then
t = t .. "<td>'''" .. a1 .. "'''</td>"
else
t = t .. "<td id=\"" .. id1 .. "\" class=\"fileinfo-paramfield\">'''" .. a1 .. "'''</td>"
end
if a2 == nil or v2 == nil or v2 == "" then
t = t .. "<td colspan = \"3\">" .. v1 .. "</td>"
else
t = t .. "<td>" .. v1 .. "</td>"
t = t .. "<td>'''" .. a2 .. "'''</td>"
t = t .. "<td>" .. v2 .. "</td>"
end
t = t .. "</tr>"
end
return t
end
function p.ccLicenseCorrection(lic_text) -- Schreibweise CC-Lizenzen korrigieren
local lic_text_fixed = string.upper(lic_text)
local is_cc_license = false
if string.sub(lic_text_fixed, 1, 3) == "CC " or -- Beginn mit "CC " or "CC-"?
string.sub(lic_text_fixed, 1, 3) == "CC-" then
is_cc_license = true
if string.sub(lic_text_fixed, 3, 3) == "-" then -- Bindestrich hinter "CC" entfernen
lic_text_fixed = "CC " .. string.sub(lic_text_fixed, 4)
end
local version_hyphen_start, version_hyphen_end = -- Bindestrich vor Version entfernen
string.find(lic_text_fixed,"-%d")
if version_hyphen_start ~= nil then
lic_text_fixed =
string.sub(lic_text_fixed, 1, version_hyphen_start - 1) ..
" " .. string.sub(lic_text_fixed, version_hyphen_start + 1)
end
else
lic_text_fixed = lic_text
end
return lic_text_fixed, is_cc_license
end
function p.nocNcLicenseCorrection(lic_text) -- Schreibweise NoC-NC 1.0 Lizenz korrigieren
local lic_text_fixed = lic_text
if string.upper(lic_text) == "NOC-NC-1.0" or
string.upper(lic_text) == "NOC-NC 1.0" then
lic_text_fixed = "NoC-NC 1.0"
end
return lic_text_fixed
end
function p.LicenseCorrection(frame) -- Schreibweise CC- und NoC-NC 1.0 Lizenz korrigieren
local lizenz = frame.args["Lizenz"] or ""
lizenz = p.ccLicenseCorrection(lizenz)
lizenz = p.nocNcLicenseCorrection(lizenz)
return lizenz
end
function p.FormularZeigeNichtInStrasse()
return p.FormularZeigeNichtDatei("Straße")
end
function p.FormularZeigeNichtInOrt()
return p.FormularZeigeNichtDatei("Ort")
end
function p.FormularZeigeNichtDatei(zeige_nicht_in)
local t = ""
local spalten = 10
local lemma = wik.subpagename()
local page_selector =
"[[Datei:+]]" ..
"[[" .. zeige_nicht_in .. "::" .. lemma .. "]]" ..
"[[ZeigeNichtIn" .. zeige_nicht_in .. "::Nein]]"
local query = {page_selector, format = "count"}
query = mw.smw.ask(query)
t = t .. "<br><big><b>" .. query .. " Bilder gefunden</b></big><br>"
local query = { page_selector, "?#-", "?Erstellungsdatum#-F[Y]",
sort = "Erstellungsdatum", order = "desc",
mainlabel = "-", limit = 10000}
query = mw.smw.ask(query)
t = t ..
"{{{for template|Datei/ZeigeNichtIn" .. zeige_nicht_in .. "/Work}}}\n" ..
"<table class=\"formtable\">\n"
local datei, datum, jahr, jahrtext
for i, d in ipairs(query) do
datei = string.gsub(d[1], "Datei:", "")
erstellungsjahr = d["Erstellungsdatum"] or 0
if erstellungsjahr ~= jahr then
jahr = erstellungsjahr
if erstellungsjahr ~= 0 then
jahrtext = jahr
else
jahrtext = "Ohne Erstellungsdatum"
end
t = t ..
"<tr>\n" ..
" <th colspan=" .. (3 * spalten) .. " style=\"text-align:center; background-color:#D6EEEE;\">" ..
"<big>" .. jahrtext .. "</big>" ..
" </th>\n" ..
"</tr>\n"
end
if (i - 1) % spalten == 0 then
t = t .. "<tr>\n"
end
t = t ..
" <td> </td>" ..
"<td>{{{field|" .. datei .. "|input type=checkbox}}}</td>\n" ..
" <td>[[Datei:" .. datei .. "|120x120px]]</td>\n"
if (i - 1) % spalten == (spalten - 1) then
t = t .. "</tr>\n"
end
end
t = t .. "</table>\n"
t = t .. "{{{end template}}}\n"
return t
end
function p.ZeigeNichtDatei(frame)
local t = ""
local lemma = wik.subpagename()
local zeige_nicht_in = frame.args[1]
t = t ..
"<br>'''Hier können Sie per Formular die Dateien auswählen," ..
"die im Artikel " .. lemma .. " nicht angezeigt werden sollen.'''" ..
"<br><br>" ..
"'''Es werden nicht angezeigt:'''" ..
"<gallery mode=\"packed-hover\">\n"
local zeige_nicht_dateien = {lemma}
for d, z in pairs(frame:getParent().args) do
if z == "Ja" then
table.insert(zeige_nicht_dateien, "Datei:" .. d)
t = t .. d .. "|<small>[[:Datei:" .. d .. "|" .. d .. "]]</small>\n"
end
end
t = t .. "</gallery>\n"
t = t .. "{{#default_form:Datei/ZeigeNichtIn" .. zeige_nicht_in .. "/Work}}"
t = frame:preprocess(t)
mw.smw.set{
["Seite"] = zeige_nicht_dateien,
["ZeigeNichtIn" .. zeige_nicht_in] = "Ja"}
return t
end
return p