Modul:Datei: Unterschied zwischen den Versionen

Aus FürthWiki

2.791 Bytes hinzugefügt ,  Sonntag um 17:56
Dateiinfo Bild-Unterschrift und Info-Box
(Kategorie:Freiattribut-Fehler)
(Dateiinfo Bild-Unterschrift und Info-Box)
 
(22 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
local p = {}
local p = {}
local c = require("Module:Common")


function p.daten(frame, args)
local com = require("Modul:Common")
local title = mw.title.getCurrentTitle().text
local dev = require("Modul:Development")
local extension = p.getExtension(title)
local str = require("Modul:String")
local filekind = p.getFilekind(extension)
local wik = require("Modul:Wiki")
local a, w, z
local lfd = require("Modul:LinkFormDatum")
local wob = require("Modul:Wörterbuch")
local t = '<table class="wikitable">' ..
 
'<th colspan="4">' .. title .. '</th>'
function p.Dateibox(frame)
-- mw.log("Dateibox(frame)")
if not c.isEmpty(args.Genre) then
-- mw.logObject(frame, "frame")
t = t .. '<tr>'..
-- Kommando-Zeile zum Debuggen:
'<td>[[Attribut:Genre|Genre]]</td>' ..
-- =p.Dateibox{pargs={["fullpagename"]="Datei:test.jpg",["Genre"]="g1;g2",["Attribut1"]="a1",["Wert1"]="w1;w2"}}
'<td colspan="3">'..frame:callParserFunction(
-- =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"}}
'#arraymap', args.Genre, ';', 'x', '[[:Kategorie:x|x]] [[Kategorie:x]]') .. '</td>' ..
-- =p.Dateibox{pargs={["fullpagename"]="Datei:test.jpg",["Attribut1"]="Gebäude",["Wert1"]="Wolfringstraße 1",["Attribut2"]="Gebäude",["Wert2"]="Königstraße 86"}}
'</tr>'
local frame, pargs = dev.GetFrameAndParentArgs(frame)
local title = pargs["fullpagename"] or wik.fullpagename() -- pargs["fullpagename"] zum Testen/Debuggen
local t, v = "", ""
 
-- Tabellenkopf
t = t .. "<table class = \"wikitable\">"
t = t .. "<th colspan = \"4\">" .. title .. "</th>"
 
-- 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
end
t = t .. p.attrZeile("Genre", v)
-- Liste Freiattribute und Werte auf
 
-- Freiattribute
local aw = {}
local aw_fail = false
for i = 1, 6 do
for i = 1, 6 do
a = 'Attribut'..i
local a = pargs["Attribut" .. i] or ""
w = 'Wert'..i
local w = pargs["Wert" .. i] or ""
if not c.isEmpty(args[a]) then
if a ~= "" and  w ~= "" then
if not c.isEmpty(args[w]) then
aw[a] = (aw[a] or "") .. w .. ";" -- Werte zusammenführen
t=t..'<tr>'..
elseif a ~= "" or  w ~= "" then
'<td>[[Attribut:'..args[a]..'|'..args[a]..']]</td>'..
aw_fail = true
'<td colspan="3">'
end
if args[a] == 'Gebäude' then
end
t=t..p.gebaeude(frame, args[w])
if aw_fail then
else
t = t .. "[[Kategorie:Freiattribut-Fehler]]"
t=t..frame:callParserFunction(
end
'#arraymap', args[w], ';', 'x', '[['..args[a]..'::x]]')
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
if v ~= "" then
v = v .. ", "
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
v_query = v_query .. ", "
end
end
t=t..'</td>'..
v_query = v_query .. "[[" .. a .. "::" .. g .. "]]"
'</tr>'
end
else
if v_query ~= "" then
frame:callParserFunction('[[Kategorie:Freiattribut-Fehler]]')
v = v .. "<br>automatisch ermittelt über Straße/Hausnummer: " .. v_query
end
end
else
v = p.attrValList(a, {[a] = w})
end
end
t = t .. p.attrZeile(a, v)
end
end
 
if not c.isEmpty(args.Urheber) then
-- normale Zeilen
t = t .. '<tr>'..
t = t .. p.attrZeile("Urheber", p.attrValList("Urheber", pargs))
'<td>[[Attribut:Urheber|Urheber]]</td>' ..
t = t .. p.attrZeile("Quellangaben", p.attrVal("Quellangaben", pargs))
'<td colspan="3">'..frame:callParserFunction(
 
'#arraymap', args['Urheber'], ';', 'x', '[[Urheber::x]]')..
-- Ort/Straße mit Ausblendung
'</td>'..
for _, a in ipairs{{"Straße", "ZeigeNichtInStraße"}, {"Ort", "ZeigeNichtInOrt"}} do
'</tr>'
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
end
 
if not c.isEmpty(args.Quellangaben) then
-- Dateiart/Dateityp
t = t .. '<tr>'..
local extension = p.getExtension(title)
    '<td>[[Attribut:Quellangaben|Quellangaben]]</td>'..
local filekind = p.getFilekind(extension)
    '<td colspan="3">[[Quellangaben::'..args.Quellangaben..']]</td>'..
t = t .. p.attrZeile("Dateiart", "[[Dateiart::" .. filekind .. "]]",
'</tr>'
"Dateityp", "[[Dateityp::" .. extension .. "]]")
 
-- Erstellungsdatum/ÜberDatum
for _, d in ipairs{
{"Erstellungsdatum", "Erstellungstag", "Erstellungsjahr"},
{"ÜberDatum", "ÜberTag", "ÜberJahr"}} do
local date = pargs[d[1]] or ""
if date ~= "" then
t = t .. p.attrZeile(d[1], lfd.linkFormDate(date, d[1], d[2], d[3]))
end
end
end
 
if not c.isEmpty(args.Ort) then
-- normale Zeilen
t = t .. '<tr>'..
t = t .. p.attrZeile("Seitennummer", p.attrValList("Seitennummer", pargs))
'<td>[[Attribut:Ort|Ort]]</td>'..
t = t .. p.attrZeile("Signatur", p.attrVal("Signatur", pargs))
'<td>' .. frame:callParserFunction(
t = t .. p.attrZeile("Länge", p.attrVal("Länge", pargs))
'#arraymap', args.Ort, ';', 'x', '[[Ort::x]]') ..'</td>'..
t = t .. p.attrZeile("Lizenz", p.attrVal("Lizenz", pargs))
'<td><b>ausblenden:</b></td>'
t = t .. p.attrZeile("UploadCommons", p.attrVal("UploadCommons", pargs))
z = '<td>[[ZeigeNichtInOrt::Nein]]</td>'
t = t .. p.attrZeile("Beschreibung", p.attrVal("Beschreibung", pargs))
if not c.isEmpty(args.ZeigeNichtInOrt) then
 
z = '<td>[[ZeigeNichtInOrt::'..args.ZeigeNichtInOrt..']]</td>'
-- 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
t = t .. z ..'</tr>'
end
end
local urheber = str.splitAndStrip(pargs["Urheber"] or "", ";") -- Urheber
if not c.isEmpty(args['Straße']) then
if #urheber > 0 then
t = t .. '<tr>' ..
for u = 1, #urheber do
'<td>[[Attribut:Straße|Straße]]</td>' ..
if wik.pageExists(urheber[u]) then
'<td>' .. frame:callParserFunction(
urheber[u] = "[[" .. urheber[u] .. "]]"
'#arraymap', args['Straße'], ';', 'x', '[[Straße::x]]')
end
t = t .. '</td>' ..
end
'<td><b>ausblenden:</b></td>'
if infotext ~= "" then
z = '<td>[[ZeigeNichtInStraße::Nein]]</td>'
infotext = infotext .. "<br>"
if not c.isEmpty(args['ZeigeNichtInStraße']) then
z = '<td>[[ZeigeNichtInStraße::'..args['ZeigeNichtInStraße']..']]</td>'
end
end
t = t .. z .. '</tr>'
infotext = infotext .. wob.attr_text("Urheber") .. ": " .. table.concat(urheber, ", ")
end
end
for _, d in ipairs{"Erstellungsdatum", "ÜberDatum"} do -- Erstellungsdatum, ÜberDatum
if not c.isEmpty(extension) then
date = pargs[d] or ""
t=t..'<tr>'..
if date ~= "" then
'<td>[[Attribut:Dateiart|Dateiart]]</td>'..
if infotext ~= "" then
'<td>[[Dateiart::' .. filekind .. ']]</td>'..
infotext = infotext .. "<br>"
'<td>[[Attribut:Dateityp|Dateityp]]</td>'..
end
'<td>[[Dateityp::' .. extension .. ']]</td>'..
infotext = infotext .. wob.attr_text(d) .. ": " .. lfd.linkFormDate(date)
'</tr>'
end
end
if not c.isEmpty(args.Erstellungsdatum) then
t = t .. '<tr>' ..
'<td>[[Attribut:Erstellungsdatum|Erstellungsdatum]]</td>' ..
'<td colspan="3">' .. frame:expandTemplate{title='LinkFormDatum', args={
args.Erstellungsdatum,
'Erstellungsdatum',
'Erstellungstag',
'Erstellungsjahr'}} .. '</td>' ..
'</tr>'
end
end
if not com.isEmpty(pargs["Lizenz"]) then -- Lizenz
if not c.isEmpty(args['ÜberDatum']) then
if infotext ~= "" then
t=t..'<tr>'..
infotext = infotext .. "<br>"
'<td>[[Attribut:ÜberDatum|Über Datum]]</td>'..
end
'<td colspan="3">'..frame:expandTemplate{title='LinkFormDatum', args={
infotext = infotext .. wob.attr_text("Lizenz") .. ": " .. pargs["Lizenz"]
args['ÜberDatum'],
'ÜberDatum',
'ÜberTag',
'ÜberJahr'}}..'</td>'..
'</tr>'
end
end
if infotext ~= "" then
if not c.isEmpty(args.Seitennummer) then
if dateiinfo ~= "" then
t=t..'<tr>'..
dateiinfo = dateiinfo .. " "
'<td>[[Attribut:Seitennummer|Seitennummer]]</td>'..
end
'<td colspan="3">'..frame:callParserFunction(
dateiinfo = dateiinfo .. "{{#info:" .. infotext .. "|note}}"
'#arraymap', args.Seitennummer, ';', 'x', '[[Seitennummer::x]]') ..'</td>'..
'</tr>'
end
end
if dateiinfo ~= "" then
if not c.isEmpty(args.Signatur) then
t = t .. p.zeile("[[Attribut:Dateiinfo|Dateiinfo]] '''<br>(Bild-Unterschrift und Info-Box,<br>automatisch erstellt)''' ", "[[Dateiinfo::" .. dateiinfo .. "]]")
t=t..'<tr>'..
'<td>[[Attribut:Signatur|Signatur]]</td>'..
'<td colspan="3">[[Signatur::'..args.Signatur..']]</td>'..
'</tr>'
end
end
-- Tabellenende mit sem. Browsen
t = t .. p.zeile("[[Bild:IconSearch.svg|16px|semantisches Browsen|link=Spezial:Durchsuchen/{{FULLPAGENAME}}]]",
"[[Spezial:Durchsuchen/{{FULLPAGENAME}}|semantisches Browsen]]")
t = t .. "</table>"
if not c.isEmpty(args['Länge']) then
-- Seite setzen
t=t..'<tr>'..
t = t .. "{{#set:Seite=" .. wik.fullpagename() .. "}}"
'<td>[[Attribut:Länge|Länge]]</td>'..
'<td colspan="3">'..'[[Länge::'..args['Länge']..']]</td>'..
'</tr>'
end


if not c.isEmpty(args.Lizenz) then
-- mw.logObject(t, "t")
t=t..'<tr>'..
t = frame:preprocess(t)
'<td>[[Attribut:Lizenz|Lizenz]]</td>'..
-- mw.logObject(t, "t")
'<td colspan="3">[[Lizenz::' .. args.Lizenz .. ']]</td>'..
'</tr>'
end
if not c.isEmpty(args.UploadCommons) then
t=t..'<tr>'..
'<td>[[Attribut:UploadCommons|Upload zu Commons]]</td>'..
'<td colspan="3">[[UploadCommons::' .. args.UploadCommons .. ']]</td>'..
'</tr>'
end
 
if not c.isEmpty(args.Beschreibung) then
t=t..'<tr>'..
'<td>[[Attribut:Beschreibung|Beschreibung]]</td>'..
'<td colspan="3">[[Beschreibung::' ..args.Beschreibung .. ']]</td>'..
'</tr>'
end
t=t..'<tr>'..
'<td>[[Bild:IconSearch.svg|16px|semantisches Browsen|link=Spezial:Durchsuchen/{{NAMESPACE}}:{{PAGENAME}}]]</td>'..
'<td colspan="3">[[Spezial:Durchsuchen/{{NAMESPACE}}:{{PAGENAME}}|semantisches Browsen]]</td>'..
'</tr>'
t=t..'</table>'
return t
return t
end
function p.GetExtension(frame)
-- #invoke wrapper
return p.getExtension(frame.args[1])
end
end


Zeile 175: Zeile 188:
local extension = filename:match("^.+%.([^%.]+)$")
local extension = filename:match("^.+%.([^%.]+)$")
     return mw.ustring.lower(extension)
     return mw.ustring.lower(extension)
end
function p.GetFilekind(frame)
-- #invoke wrapper
return p.getFilekind(frame.args[1])
end
end


Zeile 201: Zeile 209:
end
end


function p.gebaeude(frame, wert)
function p.attrVal(a, pargs) -- Wert zu Attribut wandeln
    return frame:expandTemplate{title='Datei/Gebäude', args = {wert=wert} }
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 i, v in ipairs(l) do
if i > 1 then
t = t .. ", "
end
t = t .. "[[" .. a .. "::" .. v .. "]]"
end
return t
end
function p.attrZeile(a1, v1, a2, v2) -- Tabellenzeile mit max. 2 Attributen
local t = ""
if v1 ~= "" then
a1 = "[[Attribut:" .. a1 .. "|" .. wob.attr_text(a1) .. "]]"
if a2 ~= nil and v2 ~= nil and v2 ~= "" then
a2 = "[[Attribut:" .. a2 .. "|" .. wob.attr_text(a2) .. "]]"
end
t = t .. p.zeile(a1, v1, a2, v2)
end
return t
end
 
function p.zeile(a1, v1, a2, v2) -- Tabellenzeile mit max. 2x2 Einträgen
local t = ""
if v1 ~= "" then
t = t .. "<tr>"
t = t .. "<td>'''" .. a1 .. "'''</td>"
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
end


return p
return p