Benutzer:Antonsusi/Spielwiese/Modul:Vorlage:Information

aus Wikipedia, der freien Enzyklopädie

--[=[

]=]

--

local p = {}
    function p.Information(frame)
        local FR = frame:getParent()
        local Tab = {};
        local IsOk;
        local HTML = "";
        local Text        = "";
        local Editlink    = "";
        local Kategorien  = "";
        local Wartung     = "";
        local Revisiontimestamp = "";
        local Isfile = false; -- wahr, wenn NAMENSRAUM Datei.
        -- Wikimedia-Logik: fehlend (nil) und leer gleich behandeln.
        Tab.Beschreibung = FR.args.Beschreibung or "";
        Tab.Quelle       = FR.args.Quelle or "";
        Tab.Urheber      = FR.args.Urheber or "";
        Tab.Datum        = FR.args.Datum or "";
        Tab.Genehmigung  = FR.args.Genehmigung or "";
        Tab.Versionen    = FR.args['Andere Versionen'] or "";
        Tab.Anmerkungen  = FR.args.Anmerkungen or "";
        Editlink = FR:preprocess( "[{{fullurl:{{SUBJECTPAGENAME}}|action=edit}} nachtragen]");
        IsFile = FR:preprocess( "{{NAMESPACENUMBER}}") == 6;
        Revisiontimestamp = FR:preprocess( "{{#expr:30000000000000-{{REVISIONTIMESTAMP}}}}");
        HTML = '<table cellpadding="3" class="toccolours" style="width: 100%;">\n';

        HTML = HTML .. '<tr><th style="background: #CCCCFF; text-align: right; width: 15%;">Beschreibung</th>\n';
        if Tab.Beschreibung ~= "" then
            HTML = HTML .. '<td>' .. Tab.Beschreibung .. '</td></tr>\n';
        else
            HTML = HTML .. '<td><div id="information-fehlt" style="background: #fffffee; border: 1px solid #E3E3B0; margin: 0.75em 15%; padding: 0.5em; text-align: center;"><b>Es fehlt noch eine Beschreibung des Inhalts der Datei (Was zeigt die Datei?). Bitte diese Information noch ' .. Editlink ..'.</b></div></td></tr>\n' ;
            if IsFile then Kategorien = Kategorien .. "[[Kategorie:Datei:Beschreibung fehlt]]"; end
        end

        HTML = HTML .. '<tr><th style="background: #CCCCFF; text-align: right;">Quelle</th>\n'
        if Tab.Quelle ~= "" then
            HTML = HTML .. '<td>' .. Tab.Quelle .. '</td></tr>\n';
        else
            HTML = HTML .. '<td><div id="information-fehlt" style="background: #FFFFEE; border: 1px solid #E3E3B0; margin: 0.75em 15%; padding: 0.5em; text-align: center;"><b>Es fehlt noch die Quelle für die Datei (Woher hat der Uploader die Datei?). Bitte diese Information noch ' .. Editlink .. '.</b></div></td></tr>\n' ;
            if IsFile then
                Kategorien = Kategorien .. '[[Kategorie:Wikipedia:Dateiüberprüfung/Quelle fehlt|' .. Revisiontimestamp .. ']]';
            end
        end

        HTML = HTML .. '<tr><th style="background: #CCCCFF; text-align: right;">Urheber bzw.<br />Nutzungsrechtinhaber</th>\n';
        if Tab.Urheber ~= "" then
            HTML = HTML .. '<td>' .. Tab.Urheber .. '</td></tr>\n';
        else
            HTML = HTML .. '<td><div id="information-fehlt" style="background: #FFFFEE; border: 1px solid #E3E3B0; margin: 0.75em 15%; padding: 0.5em; text-align: center;"><b>Es fehlt noch der Urheber bzw. der Nutzungsrechteinhaber für die Datei (Wer hat die Datei ursprünglich erstellt?). Bitte diese Information noch ' .. Editlink .. '.</b></div></td></tr>\n' ;
            if IsFile then
                Kategorien = Kategorien .. '[[Kategorie:Wikipedia:Dateiüberprüfung/Urheber fehlt|' .. Revisiontimestamp .. ']]';
            end
        end

        if Tab.Datum ~= "" then
            HTML = HTML .. '<tr><th style="background: #CCCCFF; text-align: right;">Datum</th>\n';
            HTML = HTML .. '<td>' .. Tab.Datum .. '</td></tr>\n';
        else
            if IsFile then
                Wartung = Wartung .. '<span style="display:none;">[[Vorlage:Information/Wartung/Kein_Datum]]</span>';
            end
        end

        if Tab.Genehmigung ~= "" then
            HTML = HTML .. '<tr><th style="background: #CCCCFF; text-align: right;">[[Hilfe:FAQ zu Bildern#Was ist eine Erlaubnis/Permission/Freigabe/Genehmigung?|Genehmigung]]</th>\n';
            HTML = HTML .. '<td>' .. Tab.Genehmigung .. '</td></tr>\n';
        else
            if IsFile then
                Wartung = Wartung .. '<span style="display:none;">[[Vorlage:Information/Wartung/Genehmigung]]</span>';
            end
        end

        if Tab.Versionen  ~= "" then
            HTML = HTML .. '<tr><th style="background: #CCCCFF; text-align: right;">Andere Versionen dieser Datei</th>\n'
            HTML = HTML .. '<td>' .. Tab.Versionen .. '</td></tr>\n';
        end

        if Tab.Anmerkungen ~= "" then
            HTML = HTML .. '<tr><th style="background: #CCCCFF; text-align: right;">Anmerkungen</th>\n'
            HTML = HTML .. '<td>' .. Tab.Anmerkungen .. '</td></tr>\n';
        end
        HTML = HTML .. '</table>\n'
        HTML = HTML .. Kategorien .. Wartung;
        return HTML;
    end

return p
--