-- copy of de:Modul:Benutzer:MisterSynergy/test with a slight modification (modified function name)localfunctioncheck_reference(reference,cas_from_template)ifnotreference.snaksthenreturnfalse-- empty referenceendforref_prop_qualifier,valuesinpairs(reference.snaks)doifref_prop_qualifier=='P248'thenfori,valueinipairs(values)doifvalue.snaktype=='value'andvalue.datavalue.value.id=='Q18907859'thenreturntrueendendendifref_prop_qualifier=='P854'thenfori,valueinipairs(values)doifvalue.snaktype=='value'andvalue.datavalue.value=='https://commonchemistry.cas.org/detail?cas_rn='..cas_from_templatethenreturntrueendendendendreturnfalse-- reference without qualifiers we are looking forendlocalfunctioncheck_claim(statement,cas_from_template)ifstatement.rank=='deprecated'thenreturnfalse-- ignore claim with deprecated rankendifstatement.mainsnak.snaktype~='value'thenreturnfalse-- ignore claim with 'unknown value' or 'no value'endifstatement.mainsnak.datavalue.value~=cas_from_templatethenreturnfalse-- ignore claim with different CAS number than in infoboxendifnotstatement.referencesthenreturnfalse-- ignore claim without referencesendfori,referenceinipairs(statement.references)dolocalsuccess,result=pcall(check_reference,reference,cas_from_template)ifsuccessandresultthenreturntrueendendreturnfalse-- ignore, if no suitable references were foundendlocalp={}functionp.entry_CAS_Common_Chemistry(frame)localcas_from_template=mw.text.trim(frame.args['cas']or'')ifcas_from_template==nilor#cas_from_template==0thenreturn''-- no local CAS number providedendlocalstatementslocalqid=mw.wikibase.getEntityIdForCurrentPage()ifqidthenstatements=mw.wikibase.getAllStatements(qid,'P231')endifstatements==nilor#statements==0then-- no CAS property P231 found in connected Wikidata itemreturn''endfori,statementinipairs(statements)dolocalsuccess,result=pcall(check_claim,statement,cas_from_template)ifsuccessandresultthenreturn'1'endendreturn''-- no suitable claims found at Wikidataendreturnp