وحدة:Wd-pr
مراجعة 04:41، 14 مايو 2021 بواسطة Ahmad A Najar (نقاش | مساهمات) (أنشأ الصفحة ب'local p = {} local wl= require('وحدة:ص.م') local wd = require('Module:Wikidata2').formatStatementsFromLua local wd2 = require('Module:Wikidata2').formatEntityId l...')
يمكن إنشاء صفحة توثيق الوحدة في وحدة:Wd-pr/شرح
local p = {} local wl= require('وحدة:ص.م') local wd = require('Module:Wikidata2').formatStatementsFromLua local wd2 = require('Module:Wikidata2').formatEntityId local function mixline( s, ss ) return wl.MixedLine({s,ss,ss}) end function p.pageId(frame) if not mw.wikibase then return nil end entity = mw.wikibase.getEntityObject() if not entity then return nil else return entity.id end end function doo( prop, entityclaims, args ) if args.noref then ref = '' else ref = 't' end if args.noquall and args.noquall ~='' then quall = '' else quall = 't' end -------------------- if mw.wikibase then paa = mw.wikibase.label( prop ) --wd2(prop, {nolink = 'true',enlabelcate ='t'}).value else paa = prop end -- pe = wd({property = 'P1629', entityId = prop , firstvalue= 'true', noref = 'true', label = wd2(prop, {nolink = 'true'}).value}) -------------------- po = wd( {property = prop,image='image',size='120px',pattern ='autourl2',addTrackingCat ='t',noicon='t' ,quaall=quall,reff=ref, enlabelcate ='t',showlang='t'}, entityclaims ) --formatStatement( statement, args ) -------------------- if po and po ~='' then vaa = wl.MixedLine({paa,po,po})-- mixline(paa,po) end -------------------- if tostring(mw.getCurrentFrame():preprocess(vaa)):find('scribunto-error') then return '' else return vaa end -------------------- end function barexternal( entity, args ) if args.external and args.external ~= '' then if args.external =='no' then return { external = '' } end end local external = {} for i, ss in pairs( entity.claims ) do local entity1 = mw.wikibase.getEntityObject( i ) if entity1.datatype == 'external-id' then if args[1] and args[1] ~= '' then if i == args[1] then vaa = doo( i, entity.claims, args ) else vaa = '' end else vaa = doo( i, entity.claims, args ) end table.insert( external, vaa ) end end final = table.concat(external) return { external = final } end function barother( entity, args ) if args.external and args.external ~= '' then if args.external =='yes' then return { other = '' } end end local other = {} for i, ss in pairs( entity.claims ) do local entity1 = mw.wikibase.getEntityObject( i ) if entity1.datatype == 'external-id' then v = '' else if args[1] and args[1] ~= '' then if i == args[1] then vaa = doo( i, entity.claims, args ) else vaa = '' end else vaa = doo( i, entity.claims, args ) end table.insert( other, vaa ) end end final = table.concat(other) return { other = final } end function fStatement( entity, args ) if (not entity or not entity.claims) then return '' end --TODO error? local pp = '' if p.pageId() then pp = p.pageId() end local pageId = (args.entityId or pp) local tit = '' if mw.wikibase then tit = mw.wikibase.label(pageId) else tit = pageId end local title2 = tit .. ' [[File:Wikidata-logo.svg|20px|baseline|link=d:'.. pageId ..']]' local Open = wl.Open({id = ''}) local title = wl.Title({title2,''}) local closse = '\n</table>' local foo = barother( entity, args ).other local bar = barexternal( entity, args ).external local subt = wl.SubTitle({'معرفات خارجية','معرفات خارجية' }) local fs = {} table.insert( fs, Open ) table.insert( fs, title ) table.insert( fs, foo ) if bar and bar ~='' then table.insert( fs, subt) table.insert( fs, bar ) end table.insert( fs, closse ) return table.concat(fs) --, ' \n*' end function p.f( frame, key ) local args = frame.args local entity = nil if entity and type( entity ) == "table" then entity = entity else entity = mw.wikibase.getEntityObject( args.entityId ) end return fStatement(entity, args ) end return p