Module:SDcat

 --[[
 SDcat
 Module to check whether local short description matches that on Wikidata
 --]]

 localp={}

 -------------------------------------------------------------------------------
 --[[
 setCat has the qid of a Wikidata entity passed as |qid=
 (it defaults to the associated qid of the current article if omitted)
 and the local short description passed as |sd=
 It returns a category if there is an associated Wikidata entity.
 It returns one of the following tracking categories, as appropriate:
 * Category:Short description matches Wikidata (case-insensitive)
 * Category:Short description is different from Wikidata
 * Category:Short description with empty Wikidata description
 For testing purposes, a link prefix |lp= may be set to ":" to make the categories visible.
 --]]

 -- function exported for use in other modules
 -- (local short description, Wikidata entity-ID, link prefix)
 p._setCat=function(sdesc,itemID,lp)
 ifnotmw.wikibasethenreturnnilend
 ifitemID==""thenitemID=nilend
 -- Wikidata description field
 localwdesc=(mw.wikibase.getDescription(itemID)or""):lower()
 ifwdesc==""then
 return"[["..lp.."Category:Short description with empty Wikidata description]]"
 elseifwdesc==sdescthen
 return"[["..lp.."Category:Short description matches Wikidata]]"
 else
 return"[["..lp.."Category:Short description is different from Wikidata]]"
 end
 end

 -- function exported for call from #invoke
 p.setCat=function(frame)
 localargs
 ifframe.args.sdthen
 args=frame.args
 else
 args=frame:getParent().args
 end
 -- local short description
 localsdesc=mw.text.trim(args.sdor""):lower()
 -- Wikidata entity-ID
 localitemID=mw.text.trim(args.qidor"")
 -- link prefix, strip quotes
 locallp=mw.text.trim(args.lpor""):gsub('"','')
 returnp._setCat(sdesc,itemID,lp)
 end

 returnp