https://www.homowiki.de/index.php?action=history&feed=atom&title=Modul%3AZitation Modul:Zitation - Versionsgeschichte 2026-04-30T09:35:17Z Versionsgeschichte dieser Seite in HomoWiki MediaWiki 1.41.0 https://www.homowiki.de/index.php?title=Modul:Zitation&diff=18745&oldid=prev Fg68at: Die Seite wurde neu angelegt: „ local p = {} -- Ergänzt bei Titelformatierungen in Abhängigkeit der letzten Zeichen ein Punkt am Ende des Titels hinzu oder nicht. Test für Vorlage:Inte…“ 2014-03-26T11:28:49Z <p>Die Seite wurde neu angelegt: „ local p = {} -- Ergänzt bei Titelformatierungen in Abhängigkeit der letzten Zeichen ein Punkt am Ende des Titels hinzu oder nicht. Test für Vorlage:Inte…“</p> <p><b>Neue Seite</b></p><div> local p = {}<br /> -- Ergänzt bei Titelformatierungen in Abhängigkeit der letzten Zeichen ein Punkt am Ende des Titels hinzu oder nicht. Test für Vorlage:Internetquelle / Vorlage:TitelFormat<br /> -- Aufruf: {{#invoke:Zitation|TitelFormat|titel=IrgendeinTitel}}<br /> function p.TitelFormat(frame)<br /> local titel = frame.args[1] or frame.args.titel<br /> if (titel == &#039;&#039;) or (titel == nil) then<br /> return &#039;&#039;<br /> elseif (mw.ustring.find(titel, &#039;[\.!?．！？。…][%]»«›‹‘’”“&quot;\&#039;]*$&#039;)) or (mw.ustring.find(titel, &#039;[\.!?．！？。…]&lt;/[%s%w]*&gt;$&#039;)) then<br /> return &#039;&lt;i&gt;&#039; .. titel .. &#039;&lt;/i&gt;&#039;<br /> else<br /> return &#039;&lt;i&gt;&#039; .. titel .. &#039;.&lt;/i&gt;&#039;<br /> end<br /> end<br /> <br /> -- Entscheidet anhand der letzten Zeichen, ob ein Punkt gesetzt wird oder nicht. Test für Vorlage:Internetquelle<br /> -- Aufruf: {{#invoke:Zitation|Endpunkt|titel=IrgendeinTitel}}<br /> function p.Endpunkt(frame)<br /> local titel = frame.args[1] or frame.args.titel<br /> if (titel == &#039;&#039;) or (mw.ustring.find(titel, &#039;[\.!?．！？。…][%]»«›‹‘’”“&quot;\&#039;]*$&#039;)) or (mw.ustring.find(titel, &#039;[\.!?．！？。…]&lt;/[%s%w]*&gt;$&#039;)) then<br /> return &#039;&#039;<br /> else<br /> return &#039;.&#039;<br /> end<br /> end<br /> <br /> -- Funktion zum Ersetzen von ausgewählten Elementen der Wiki-Syntax. Wird benötigt, um die durch Vorlage:Coins eingebundnenen Datensätze frei von Wiki-Syntax zu halten.<br /> -- Aufruf: {{#invoke:Zitation|RemoveWikiSyntax|text=IrgendeinTitel}}<br /> -- derzeit funktioniert die Ersetzung nicht, da die eingegeben Zeichenkette statt &lt;math&gt;..&lt;/math&gt; einen UNIQ..QINU String enhält, vgl. http://www.mediawiki.org/wiki/QINU_fix<br /> function p.RemoveWikiSyntax(frame)<br /> local text = frame.args[1] or frame.args.text<br /> text = mw.ustring.gsub(text,&#039;(UNIQ.+QINU)&#039;,&quot;FEHLER %1&quot;)<br /> --text = &quot;Test - Electroweak corrections to the charm quark contribution to &lt;math&gt;K&lt;/math&gt;&quot; <br /> -- internen Link entfernen (z. B. bei Autorenartikelverknüpfungen)<br /> text = mw.ustring.gsub(text,&#039;%[%[([^%[%]]*)%]%]&#039;,&quot;%1&quot;)<br /> -- math-Tag in TeX-Math-Umgebung umwandeln, u.a. weil math-Tags zu fehlenden COinS-Tags führen<br /> text = mw.ustring.gsub(text,&#039;(&lt;%s*/*%s*math[^&gt;]*&gt;)&#039;,&quot;$&quot;)<br /> return text<br /> end<br /> <br /> -- Funktion zum Bereinigen von ISBN-Angaben. Wird benötigt, um unnötige Fehler durch Bindestriche oder Leerzeichen bei der Nutrzung der Vorlage:bibISBN zu umgehen.<br /> -- Aufruf: {{#invoke:Zitation|CleanISBN|isbn=IrgendeinTitel}}<br /> function p.CleanISBN(frame)<br /> local isbn = frame.args[1] or frame.args.isbn<br /> isbn = mw.ustring.gsub(isbn,&#039;[- ]+&#039;,&quot;&quot;)<br /> return isbn<br /> end<br /> <br /> -- Test einer Umsetzung von Vorlage:Literatur in Lua, Ziel: Abschätzung des Ressourcenverbrauchs.<br /> -- Aufruf: {{#invoke:Zitation|Literatur|Autor, Herausgeber, Titel, TitelErg, Sammelwerk, WerkErg, Reihe, Band, Nummer, Auflage, Verlag, Ort, Jahr, Monat, Tag, Datum, Kapitel, Seiten, Spalten, ISBN, ISBNistFormalFalsch, ISSN, Kommentar, Originaltitel, Originalsprache, Uebersetzer, DOI, PMID, DB, DBcode, Online, Zugriff, Typ}}<br /> -- Änderungen:<br /> -- 10. April 2013: erste Testversion<br /> -- 11. April 2013: Korrektur der Ausgabe von Band und Nummer<br /> -- 21. April 2013: Flexibilisierung des Parameters-Auflage (Ergänzung von &quot;Auflage&quot; nur bei Bedarf)<br /> -- 22. April 2013: Ausgabe des abschließenden Punktes korrigiert<br /> -- 30. April 2013: Umstellung der Abfrage für Trennzeichen<br /> <br /> function p.Literatur(frame)<br /> function AddDelimiterIfNeeded(text, delimiter)<br /> --local text = frame.args[1] or frame.args.text<br /> if delimiter == nil then<br /> delimiter = &#039;.&#039;<br /> end<br /> <br /> if (text == &#039;&#039;) or (mw.ustring.find(text, &#039;[\.:!?．：！？。…][%]»«›‹‘’”“&quot;\&#039;]*[%s(&amp;#160;)]*$&#039;)) or (mw.ustring.find(text, &#039;[\.:!?．：！？。…]&lt;/[%s%w]*&gt;$&#039;)) then<br /> return &#039;&#039;<br /> else<br /> return delimiter<br /> end<br /> end<br /> <br /> function FormatDate(Datum)<br /> if not mw.ustring.find(frame:expandTemplate{ title = &#039;FormatDate&#039;, args = {Datum} }, &#039;Fehler&#039;) then<br /> return frame:expandTemplate{ title = &#039;FormatDate&#039;, args = {Datum} } --{{#iferror: {{FormatDate|&#039; .. Datum .. &#039;}}|&#039; .. Datum .. &#039;}}<br /> else<br /> return Datum<br /> end<br /> end<br /> <br /> local args = frame.args<br /> local Autor = args.Autor or &#039;&#039;<br /> local Herausgeber = args.Herausgeber or &#039;&#039;<br /> local Titel = args.Titel or &#039;&#039;<br /> local TitelErg = args.TitelErg or &#039;&#039;<br /> local Sammelwerk = args.Sammelwerk or &#039;&#039;<br /> local WerkErg = args.WerkErg or &#039;&#039;<br /> local Reihe = args.Reihe or &#039;&#039;<br /> local Band = args.Band or &#039;&#039;<br /> local Nummer = args.Nummer or &#039;&#039;<br /> local Auflage = args.Auflage or &#039;&#039;<br /> local Verlag = args.Verlag or &#039;&#039;<br /> local Ort = args.Ort or &#039;&#039;<br /> local Jahr = args.Jahr or &#039;&#039;<br /> local Monat = args.Monat or &#039;&#039;<br /> local Tag = args.Tag or &#039;&#039;<br /> local Datum = args.Datum or &#039;&#039;<br /> local Kapitel = args.Kapitel or &#039;&#039;<br /> local Seiten = args.Seiten or &#039;&#039;<br /> local Spalten = args.Spalten or &#039;&#039;<br /> local ISBN = args.ISBN or &#039;&#039;<br /> local ISBNistFormalFalsch = args.ISBNistFormalFalsch or &#039;&#039;<br /> local ISSN = args.ISSN or &#039;&#039;<br /> local Kommentar = args.Kommentar or &#039;&#039;<br /> local Originaltitel = args.Originaltitel or &#039;&#039;<br /> local Originalsprache = args.Originalsprache or &#039;&#039;<br /> local Uebersetzer = args.Uebersetzer or &#039;&#039;<br /> local DOI = args.DOI or &#039;&#039;<br /> local PMID = args.PMID or &#039;&#039;<br /> local DB = args.DB or &#039;&#039;<br /> local DBcode = args.DBcode or &#039;&#039;<br /> local Online = args.Online or &#039;&#039;<br /> local Zugriff = args.Zugriff or &#039;&#039;<br /> local Typ = args.Typ or &#039;&#039;<br /> <br /> local Ausgabe = &#039;&#039;<br /> <br /> if (Autor ~= &#039;&#039;) and (Typ ~= &#039;wl&#039;) then<br /> if (Sammelwerk == &#039;&#039;) and (Herausgeber ~= &#039;&#039;) then<br /> Ausgabe = Autor .. &#039;, &#039; .. Herausgeber .. &#039;&amp;#160;(Hrsg.):&#039;<br /> else<br /> Ausgabe = Autor .. &#039;:&#039;<br /> end<br /> elseif (Sammelwerk == &#039;&#039;) and (Herausgeber ~= &#039;&#039;) then<br /> Ausgabe = Herausgeber .. &#039;&amp;#160;(Hrsg.):&#039;<br /> end<br /> <br /> if Titel ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. &#039; &lt;i&gt;&#039; .. Titel .. &#039;&lt;/i&gt;&#039;<br /> if TitelErg ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Titel, &#039;.&#039;) ..&#039; &#039; .. TitelErg<br /> end<br /> if (Sammelwerk == &#039;&#039;) and (Reihe ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; (=&amp;#160;&lt;i&gt;&#039; .. Reihe .. &#039;&lt;/i&gt;&#039;<br /> if (Band ~= &#039;&#039;) and (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. Band .. &#039;, Nr.&amp;#160;&#039; .. Nummer <br /> elseif (Band ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. Band<br /> elseif (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; Nr.&amp;#160;&#039; .. Nummer<br /> end<br /> Ausgabe = Ausgabe .. &#039;).&#039;<br /> elseif TitelErg ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(TitelErg, &#039;.&#039;)<br /> else<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Titel, &#039;.&#039;)<br /> end<br /> end<br /> <br /> if Sammelwerk ~= &#039;&#039; then<br /> if Herausgeber ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. &#039; In: &#039; .. Herausgeber .. &#039;&amp;#160;(Hrsg.): &lt;i&gt;&#039; .. Sammelwerk .. &#039;&lt;/i&gt;&#039;<br /> else<br /> Ausgabe = Ausgabe .. &#039; In: &lt;i&gt;&#039; .. Sammelwerk .. &#039;&lt;/i&gt;&#039;<br /> end<br /> <br /> if WerkErg ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Werk, &#039;.&#039;) .. &#039; &#039; .. WerkErg <br /> end<br /> <br /> if Auflage ~= &#039;&#039; then<br /> Auflage = Auflage:gsub(&quot;^%s*(.-)%s*$&quot;, &quot;%1&quot;):gsub(&#039;Auflage$&#039;, &#039;Aufl.&#039;):gsub(&#039;[eE]dition&#039;, &#039;ed.&#039;)<br /> if (Auflage:find(&#039;Aufl[%.]*$&#039;) == nil) and (Auflage:find(&#039;[eE]d[%.]*$&#039;) == nil) then<br /> Auflage = Auflage .. &#039; Aufl.&#039;<br /> end<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. Auflage<br /> end<br /> <br /> if (Reihe ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; (=&amp;#160;&lt;i&gt;&#039; .. Reihe .. &#039;&lt;/i&gt;&#039;<br /> if (Band ~= &#039;&#039;) and (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. Band .. &#039;, Nr.&amp;#160;&#039; .. Nummer <br /> elseif (Band ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. Band<br /> elseif (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; Nr.&amp;#160;&#039; .. Nummer<br /> end<br /> Ausgabe = Ausgabe .. &#039;).&#039;<br /> else<br /> if (Band ~= &#039;&#039;) and (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. Band .. &#039;, Nr.&amp;#160;&#039; .. Nummer <br /> elseif (Band ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. Band<br /> elseif (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; Nr.&amp;#160;&#039; .. Nummer<br /> end<br /> end<br /> else<br /> if Auflage ~= &#039;&#039; then<br /> Auflage = Auflage:gsub(&quot;^%s*(.-)%s*$&quot;, &quot;%1&quot;):gsub(&#039;Auflage$&#039;, &#039;Aufl.&#039;):gsub(&#039;[eE]dition&#039;, &#039;ed.&#039;)<br /> if (Auflage:find(&#039;Aufl[%.]*$&#039;) == nil) and (Auflage:find(&#039;[eE]d[%.]*$&#039;) == nil) then<br /> Auflage = Auflage .. &#039; Aufl.&#039;<br /> end<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. Auflage<br /> end<br /> <br /> if (Band ~= &#039;&#039;) and (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. Band .. &#039;, Nr.&amp;#160;&#039; .. Nummer <br /> elseif (Band ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. Band<br /> elseif (Nummer ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. &#039; Nr.&amp;#160;&#039; .. Nummer<br /> end <br /> end<br /> <br /> if Verlag ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. Verlag<br /> end<br /> <br /> if Datum ~= &#039;&#039; then<br /> Jahr = &#039;&lt;span style=&quot;white-space:nowrap;&quot;&gt;&#039; .. FormatDate(Datum) .. &#039;&lt;/span&gt;&#039;<br /> else<br /> if Monat ~= &#039;&#039; then<br /> iMonat = tonumber(Monat)<br /> if iMonat then<br /> if (iMonat &gt; 0) and (iMonat &lt;10) then<br /> Monat = &#039;0&#039; .. tonumber(Monat)<br /> end<br /> end<br /> iTag = tonumber(Tag)<br /> if iTag then<br /> if (tonumber(iTag) &lt; 0) or (tonumber(iTag) &gt; 31) then<br /> Tag = &#039;00&#039;<br /> end<br /> end<br /> Jahr = &#039;&lt;span style=&quot;white-space:nowrap;&quot;&gt;&#039; .. FormatDate(Jahr ..&#039;-&#039; .. Monat .. &#039;-&#039; .. Tag) .. &#039;&lt;/span&gt;&#039;<br /> end<br /> end<br /> <br /> if (Ort ~= &#039;&#039;) or (Jahr ~= &#039;&#039;) then<br /> if (Ort ~= &#039;&#039;) and (Jahr ~= &#039;&#039;) then <br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;).. &#039; &#039; .. Ort .. &#039; &#039; .. Jahr<br /> elseif (Ort ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;).. &#039; &#039; .. Ort<br /> else<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;).. &#039; &#039; .. Jahr<br /> end<br /> end<br /> -- ISBN oder ISSN, aber nicht beides<br /> if ISBN ~= &#039;&#039; then<br /> if ISBNistFormalFalsch ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. frame:expandTemplate{ title = &#039;Falsche ISBN&#039;, args = {ISBN} }<br /> else<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; ISBN &#039; .. ISBN<br /> end<br /> elseif ISSN ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. frame:expandTemplate{ title = &#039;ISSN&#039;, args = {ISSN} }<br /> end<br /> <br /> if Kapitel ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; &#039; .. Kapitel<br /> end<br /> <br /> if (Seiten ~= &#039;&#039;) or (Spalten ~= &#039;&#039;) then<br /> if (Seiten ~= &#039;&#039;) and (Spalten ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; S.&amp;#160;&#039; .. Seiten .. &#039; Sp.&amp;#160;&#039; .. Spalten<br /> elseif Seiten ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; S.&amp;#160;&#039; .. Seiten<br /> else<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; Sp.&amp;#160;&#039; .. Spalten<br /> end<br /> end<br /> <br /> if DOI ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; [[doi:&#039; .. DOI .. &#039;]]&#039;<br /> end<br /> if PMID ~= &#039;&#039; then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) .. &#039; PMID &#039; .. PMID .. &#039;&#039;<br /> end<br /> <br /> if (DB ~= &#039;&#039;) and (DBcode ~= &#039;&#039;) then<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;,&#039;) -- .. &#039;,&#039;<br /> if (DB == &#039;arxiv&#039;) or (DB == &#039;arXiv&#039;) then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. frame:expandTemplate{ title = &#039;arxiv&#039;, args = {DBcode} }<br /> elseif DB == &#039;DNB&#039; then<br /> Ausgabe = Ausgabe .. &#039; &lt;span class=&quot;plainlinks-print&quot;&gt;[http://d-nb.info/&#039; .. DBcode .. &#039; DNB:&#039; .. DBcode .. &#039;]&#039;<br /> elseif DB == &#039;ZDB&#039; then<br /> Ausgabe = Ausgabe .. &#039; &lt;span class=&quot;plainlinks-print&quot;&gt;[http://dispatch.opac.d-nb.de/DB=1.1/CMD?ACT=SRCHA&amp;IKT=8506&amp;TRM=&#039; .. DBcode .. &#039; ZDB-ID:&#039; .. DBcode .. &#039;]&#039;<br /> elseif DB == &#039;LCCN&#039; then<br /> Ausgabe = Ausgabe .. &#039; &#039; .. frame:expandTemplate{ title = &#039;LCCN&#039;, args = {DBcode} }<br /> elseif DB == &#039;OCLC&#039; then<br /> Ausgabe = Ausgabe .. &#039; [http://worldcat.org/oclc/&#039; .. DBcode .. &#039; OCLC:&#039; .. DBcode .. &#039;]&#039;<br /> elseif DB == &#039;PMC&#039; then<br /> Ausgabe = Ausgabe .. &#039; [http://www.ncbi.nlm.nih.gov/pmc/articles/PMC&#039;.. DBcode .. &#039; PMC:&#039; .. DBcode .. &#039;]&#039;<br /> elseif DB == &#039;Bibcode&#039; then<br /> Ausgabe = Ausgabe .. &#039; [http://adsabs.harvard.edu/abs/&#039; .. DBcode .. &#039; Bibcode:&#039; .. DBcode .. &#039;]&#039;<br /> elseif DB == &#039;JSTOR&#039; then<br /> Ausgabe = Ausgabe .. &#039; [http://www.jstor.org/stable/&#039; .. DBcode .. &#039; JSTOR:&#039; .. DBcode .. &#039;]&#039;<br /> else<br /> end<br /> end<br /> <br /> if (Kommentar ~= &#039;&#039;) or (Online ~= &#039;&#039;) then<br /> Klammerinhalt = &#039;&#039;<br /> if (Kommentar ~= &#039;&#039;) and (Online ~= &#039;&#039;) then<br /> Klammerinhalt = Klammerinhalt .. Kommentar .. &#039;, &#039;<br /> else<br /> Klammerinhalt = Klammerinhalt .. Kommentar<br /> end<br /> if Online ~= &#039;&#039; then<br /> Klammerinhalt = Klammerinhalt .. Online<br /> if Zugriff ~= &#039;&#039; then<br /> Klammerinhalt = Klammerinhalt .. &#039;, abgerufen am &lt;span style=&quot;white-space:nowrap;&quot;&gt;&#039; ..FormatDate(Zugriff) .. &#039;&lt;/span&gt;&#039;<br /> end<br /> end<br /> Ausgabe = Ausgabe .. &#039; (&#039; .. Klammerinhalt .. &#039;)&#039;<br /> end<br /> <br /> -- Abschließender Punkt<br /> Ausgabe = Ausgabe .. AddDelimiterIfNeeded(Ausgabe, &#039;.&#039;)<br /> <br /> return Ausgabe<br /> <br /> end<br /> <br /> ----------<br /> return p</div> Fg68at