Forskjell mellom versjoner av «Modul:Begrep»

Fra Termportalen
Hopp til navigering Hopp til søk
m (Pywikibot 7.1.0)
m (Pywikibot 7.1.0)
(Én mellomliggende revisjon av samme bruker vises ikke)
Linje 89: Linje 89:
 
       smwpropertyns("Skos:semanticRelation", relasjon.args["semantisk relasjon"]),
 
       smwpropertyns("Skos:semanticRelation", relasjon.args["semantisk relasjon"]),
 
       felles.sep,
 
       felles.sep,
      smwpropertyns("Skos:related", relasjon.args.assosiativ),
 
      felles.sep,
 
      smwpropertyns("Xkos:generalizes", relasjon.args.generisk ),
 
      felles.sep,
 
      smwpropertyns("Xkos:hasPart", relasjon.args.partitiv ),
 
      felles.sep,
 
      smwproperty('Rdfs:seeAlso', relasjon.args.seogsa),
 
      felles.sep,
 
      smwpropertyns('Dct:replaces', relasjon.args.erstatter),
 
      felles.sep,
 
      -- replacedBy is not tokens
 
      smwpropertyns('Dct:replacedBy', relasjon.args.erstattetav )
 
 
   }
 
   }
 
   smwwritetriples( relasjontripler )
 
   smwwritetriples( relasjontripler )
Linje 106: Linje 94:
 
   -- infobox
 
   -- infobox
 
   local hasrelasjon = false
 
   local hasrelasjon = false
   -- for i, v in ipairs(relasjon) do
+
   for k, v in pairs( relasjon.args ) do
--  for _, v in pairs( relasjon.args ) do
+
      if (k == "semantisk relasjon") and v
 +
      then hasrelasjon = true
 +
        break;
 +
      elseif k
 +
      then hasrelasjon = true
 +
        break;
 +
      end
 +
  end
 +
       
 
--      if (v ~= nil and v ~= "")
 
--      if (v ~= nil and v ~= "")
 
--      then hasrelasjon = true
 
--      then hasrelasjon = true
Linje 113: Linje 109:
 
--      end
 
--      end
 
--  end
 
--  end
  hasrelasjon = true -- temporary
 
 
   if (hasrelasjon)
 
   if (hasrelasjon)
 
   then
 
   then
 
       local terminfobox = capiunto.create( {
 
       local terminfobox = capiunto.create( {
    bodyStyle = "width:60em; background:#f3f3f3; margin: 0 0 0 0;"
+
    bodyStyle = "width:60em; background:#f3f3f3; margin: 0 0 0 0; margin-top: 25px;"
 
       } )
 
       } )
 
         :addHeader( "RELASJON", "mw-infobox-capiunto-title-1" )
 
         :addHeader( "RELASJON", "mw-infobox-capiunto-title-1" )
 
       terminfobox = addOptionalRow( terminfobox, 'semantisk Relasjon', createMediawikiLinkNS( relasjon.args["semantisk relasjon"] ) )
 
       terminfobox = addOptionalRow( terminfobox, 'semantisk Relasjon', createMediawikiLinkNS( relasjon.args["semantisk relasjon"] ) )
      terminfobox = addOptionalRow( terminfobox, 'assosiativ', createMediawikiLinkNS( relasjon.args.assosiativ ) )
 
      terminfobox = addOptionalRow( terminfobox, 'generisk', createMediawikiLinkNS( relasjon.args.generisk ) )
 
      terminfobox = addOptionalRow( terminfobox, 'partitiv', createMediawikiLinkNS( relasjon.args.partitiv ) )
 
      terminfobox = addOptionalRow( terminfobox, 'se også', createMediawikiLink (relasjon.args.seogsa) )
 
      terminfobox = addOptionalRow( terminfobox, 'erstatter', createMediawikiLinkNS( relasjon.args.erstatter ) )
 
      terminfobox = addOptionalRow( terminfobox, 'erstattet av', createMediawikiLinkNS( relasjon.args.erstattetav ) )
 
 
         :getHtml()
 
         :getHtml()
 
       return tostring(terminfobox)
 
       return tostring(terminfobox)
Linje 225: Linje 214:
 
   terminfobox = addOptionalRow( terminfobox, 'bruksområde', begrep.args["bruksområde"] )
 
   terminfobox = addOptionalRow( terminfobox, 'bruksområde', begrep.args["bruksområde"] )
 
   terminfobox = addOptionalRow( terminfobox, 'merknad',  begrep.args.kommentar )
 
   terminfobox = addOptionalRow( terminfobox, 'merknad',  begrep.args.kommentar )
   terminfobox = addOptionalRow( terminfobox, 'merknad (internt)',  begrep.args["merknad internt"] )
+
   terminfobox = addOptionalRow( terminfobox, 'merknad (intern)',  begrep.args["merknad internt"] )
 
   terminfobox = addOptionalRow( terminfobox, 'status', begrep.args.status )
 
   terminfobox = addOptionalRow( terminfobox, 'status', begrep.args.status )
 
   terminfobox = addOptionalRow( terminfobox, 'publisere', begrep.args.publisere )
 
   terminfobox = addOptionalRow( terminfobox, 'publisere', begrep.args.publisere )
Linje 255: Linje 244:
 
   local lc = args.lc
 
   local lc = args.lc
 
   local lcname = args.lcname
 
   local lcname = args.lcname
   assert(lc and lcname,"alle termseksjon må ha en en lc og tittel" .. lcname )
+
   assert(lc and lcname,"alle termseksjon må ha en lc og tittel" .. lcname )
 +
 
 +
  local hasspraak = false
 +
  for k, v in pairs( seksjonargs ) do
 +
      if (k == "ekvivalens")
 +
      then hasspraak = false
 +
      elseif (k == "ekvivalens merknad") and v
 +
      then hasspraak = true
 +
        break;
 +
      elseif k then
 +
        hasspraak = true
 +
        break;
 +
      end
 +
  end
  
  -- local spraakkode = termseksjon.args['språkkode']
 
  
--  if ( seksjonargs.definisjon ~= nil )
 
--  then
 
--      p.definisjon( seksjonargs, lc )
 
  -- else  -- error(tostring(termseksjon.args.definisjon))
 
--  end
 
 
   -- infobox
 
   -- infobox
   local terminfobox = capiunto.create( {
+
   if hasspraak then
        bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
+
      local terminfobox = capiunto.create( {
  } )
+
            bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0; margin-top: 25px;"
      :addHeader( lcname, "mw-infobox-capiunto-title-1" )
+
      } )
  terminfobox = addOptionalRow( terminfobox, 'merknad', seksjonargs.merknad )
+
        :addHeader( lcname, "mw-infobox-capiunto-title-1" )
  terminfobox = addOptionalRow( terminfobox, 'referanse', seksjonargs["merknad:referanse"] )
+
      terminfobox = addOptionalRow( terminfobox, 'ekvivalens', seksjonargs.ekvivalens )
  terminfobox = addOptionalRow( terminfobox, 'godkjent', seksjonargs.godkjent )
+
      terminfobox = addOptionalRow( terminfobox, 'merknad', seksjonargs.merknad )
  terminfobox = addOptionalRow( terminfobox, 'definisjon', seksjonargs.definisjon )
+
        :getHtml()
  terminfobox = addOptionalRow( terminfobox, 'definisjon:referanse', seksjonargs["definisjon:referanse"] )
+
      return tostring(terminfobox)
  terminfobox = addOptionalRow( terminfobox, 'referanse', seksjonargs["merknad:referanse"] )
+
  end
      :getHtml()
 
  return tostring(terminfobox)
 
 
end
 
end
  
Linje 352: Linje 346:
 
   local termargs = frame:getParent().args
 
   local termargs = frame:getParent().args
 
   local langcode = args.lc
 
   local langcode = args.lc
 +
  local heading = args.heading
 
   local relasjon = args.relasjon
 
   local relasjon = args.relasjon
  
 
   assert ( langcode ~= nil, "named param lc must be set when invoking module begrep:term")
 
   assert ( langcode ~= nil, "named param lc must be set when invoking module begrep:term")
   assert ( relasjon ~= nil , "named param relasjon must be set when invoking module begrep:term" )
+
   assert ( heading ~= nil , "named param heading must be set when invoking module begrep:term" )
  
 
   if ( termargs.term )
 
   if ( termargs.term )
Linje 361: Linje 356:
 
       -- langcode = term.args['språkkode']
 
       -- langcode = term.args['språkkode']
 
       -- forventer alltid å få inn en en relasjon på type prefix:tekst
 
       -- forventer alltid å få inn en en relasjon på type prefix:tekst
       local relasjonslug = mw.ustring.match(args.relasjon, ":(.*)")
+
       local relasjonslug = mw.ustring.match(felles.languagetable[heading], ":(.*)")
 
       local urivarname = relasjonslug .. "termCounter" .. langcode
 
       local urivarname = relasjonslug .. "termCounter" .. langcode
 
       local LuaVarTermCounter = mw.ext.VariablesLua.var( urivarname  )
 
       local LuaVarTermCounter = mw.ext.VariablesLua.var( urivarname  )
Linje 374: Linje 369:
 
         smwproperty("@category", "Skosxl:Label" )
 
         smwproperty("@category", "Skosxl:Label" )
 
       }
 
       }
      -- local result = mw.smw.subobject( termtripler, slug )
 
 
       mw.smw.subobject( termtripler, slug )
 
       mw.smw.subobject( termtripler, slug )
      -- function
+
 
 
       if (relasjonslug == "prefLabel") then
 
       if (relasjonslug == "prefLabel") then
 
         p.displaytitle( termargs.term )
 
         p.displaytitle( termargs.term )
Linje 382: Linje 376:
  
 
       local relasjonstripler = {
 
       local relasjonstripler = {
         smwproperty(relasjon, felles.fullpagename .. "#" .. slug)
+
         smwproperty(felles.languagetable[heading], felles.fullpagename .. "#" .. slug)
 
       }
 
       }
 
       smwwritetriples(relasjonstripler)
 
       smwwritetriples(relasjonstripler)
Linje 401: Linje 395:
 
             bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
 
             bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
 
       } )
 
       } )
         :addHeader( felles.languagetable[relasjon], "mw-infobox-capiunto-title-2" )
+
         :addHeader( heading, "mw-infobox-capiunto-title-2" )
 
         :addRow( 'term',termargs.term )
 
         :addRow( 'term',termargs.term )
  
Linje 408: Linje 402:
 
       if termargs.forkortelsep == "Ja"
 
       if termargs.forkortelsep == "Ja"
 
       then
 
       then
        terminfobox = addOptionalRow( terminfobox, 'er forkortelse', termargs.forkortelsep )
 
 
         terminfobox = addOptionalRow( terminfobox, 'forkortelse av', termargs['forkortelse av'] )
 
         terminfobox = addOptionalRow( terminfobox, 'forkortelse av', termargs['forkortelse av'] )
 
         terminfobox = addOptionalRow( terminfobox, 'forkortelsestype', termargs.forkortelsestype )
 
         terminfobox = addOptionalRow( terminfobox, 'forkortelsestype', termargs.forkortelsestype )
 
       end
 
       end
 
       terminfobox = addOptionalRow( terminfobox, 'kommentar', termargs.kommentar )
 
       terminfobox = addOptionalRow( terminfobox, 'kommentar', termargs.kommentar )
      terminfobox = addOptionalRow( terminfobox, 'kontekst', termargs.kontekst ) -- obsolete
 
      terminfobox = addOptionalRow( terminfobox, 'kortform', termargs.kortform ) -- obsolete
 
      terminfobox = addOptionalRow( terminfobox, 'andre referanser', termargs['andre referanser'] ) -- obsolete
 
 
         :getHtml()
 
         :getHtml()
 
       return tostring(terminfobox)
 
       return tostring(terminfobox)

Revisjonen fra 29. jul. 2022 kl. 16:13

Dokumentasjon for denne modulen kan opprettes på Modul:Begrep/dok

local capiunto = require 'capiunto'

local p = {} --p stands for package

local felles = mw.loadData( 'Module:Felles' )

-- one function for values which are in their own namespace (i.e autocompleted from namespace)
local function createMediawikiLinkNS( value )
   if  value and value ~= ""
   then return mw.getCurrentFrame()
         :callParserFunction(
            '#arraymap:'.. value,
            felles.separator,
            'x',
            "[[".. felles.namespace .. ':x' .. "]]",
            " , ",
            " og " )
   end
end

local function createMediawikiLink( value )
   if  value and value ~= ""
   then return mw.getCurrentFrame()
         :callParserFunction(
            '#arraymap:'.. value,
            felles.separator,
            'x',
            "[[" .. 'x' .. "]]",
            ", ",
            " og " )
   end
end

local function addOptionalRow ( t, label, value, ... )
   --	error ( " label" .. label .. "v: " .. value )
   if value and value ~= ""
   then return t:addRow(label, value, ...)
   else return t
   end
end

-- For å skrive smwproperties som wikitext som kan listes til SemanticScribunto
-- se  dataStoreType2 https://github.com/SemanticMediaWiki/SemanticScribunto/blob/master/docs/mw.smw.set.md
local function smwproperty( property, value )
   local resultvalue = value or ""
   return property .. "=" .. resultvalue
end

-- add namespace to value -https://phabricator.wikimedia.org/T254624
local function smwpropertyns( property, value )
   if (value == "" or value == nil)
   then return ""
   else
      local newvalue = mw.getCurrentFrame():callParserFunction(
         '#arraymap:'.. value, felles.separator, 'x', felles.namespace .. ':x', felles.separator )
      return smwproperty( property, newvalue )
   end
end

local function smwlangproperty( property, value, lang )
   local resultvalue
   if (value and lang)
   then resultvalue = ( value .. "@" .. lang )
   else resultvalue = ""
   end
   return property .. "=" .. resultvalue
end

local function smwwritetriples( relasjoner )
   local result = mw.smw.set( relasjoner )
   if result == true then
      -- everything ok
   else error( tostring(result.error) )
      -- error message to be found in result.error
   end
   return
end

-- global vars

-- Write triples for template Begrep

-- Begin Triples for form Begrep

-- Write triples for template relasjon
function p.relasjonsseksjon ( frame )
   local relasjon = frame:getParent()
   local relasjontripler = {
      smwpropertyns("Skos:semanticRelation", relasjon.args["semantisk relasjon"]),
      felles.sep,
   }
   smwwritetriples( relasjontripler )

   -- infobox
   local hasrelasjon = false
   for k, v in pairs( relasjon.args ) do
      if (k == "semantisk relasjon") and v
      then hasrelasjon = true
         break;
      elseif k
      then hasrelasjon = true
         break;
      end
   end
         
--      if (v ~= nil and v ~= "")
--      then hasrelasjon = true
--         break;
--      end
--   end
   if (hasrelasjon)
   then
      local terminfobox = capiunto.create( {
	    bodyStyle = "width:60em; background:#f3f3f3; margin: 0 0 0 0; margin-top: 25px;"
      } )
         :addHeader( "RELASJON", "mw-infobox-capiunto-title-1" )
      terminfobox = addOptionalRow( terminfobox, 'semantisk Relasjon', createMediawikiLinkNS( relasjon.args["semantisk relasjon"] ) )
         :getHtml()
      return tostring(terminfobox)
   end
end

-- Write triples for relasjon template
function p.relasjon( frame )
   local args = frame.args
   local relasjonsheading = args.relasjonsheading
   local relasjonargs = frame:getParent().args
   assert ( relasjonsheading ~= nil, "named param relasjonsheading must be set when invoking function begrep:relasjon" )

   local relasjonstype = relasjonargs.type
   if relasjonstype == nil then relasjonstype = "" end

   if ( relasjonargs.begrep )
   then
      -- flat triple
      local relasjonskey = relasjonsheading .. relasjonstype
      smwwritetriples( smwpropertyns( felles.relasjonstable[relasjonskey], relasjonargs.begrep ) )

      -- qualification triples
      if ( relasjonstype ~= "" or relasjonargs.inndelingskriterium or relasjonargs.merknad )

      then
         local relasjonslug = mw.ustring.match(felles.relasjonstable[relasjonskey], ":(.*)")
         local urivarname = relasjonslug .. "termCounter"
         local LuaVarTermCounter = mw.ext.VariablesLua.var( urivarname  )
         local counter = (LuaVarTermCounter and LuaVarTermCounter ~= '') and LuaVarTermCounter or 1
         mw.ext.VariablesLua.vardefine(urivarname, tonumber(counter) + 1)
         local slug =  relasjonskey .. " " .. counter
         local sourceslug = slug .. "source"
         local id_subobject = felles.fullpagename .. "#" .. slug


         -- from subobject, adapt to new version of skosno
         local qualification_triples = {
            smwproperty("@category", "skosp:Relation"),
            smwproperty("Dct:source", felles.fullpagename .. sourceslug ),
            smwpropertyns("skosp:begrep", relasjonargs.begrep),
            smwproperty("skosno:inndelingskriterium", relasjonargs.inndelingskriterium ),
            felles.sep,
            smwproperty("skos:note", relasjonargs.merknad),
         }
         mw.smw.subobject( qualification_triples, id_subobject )

         -- to subobject, adapt to new version of skosno
         smwwritetriples( smwproperty( "skosp:qualifiedRelation",  id_subobject ) )
      end

      -- terminfobox
      if relasjonargs
      then
      local terminfobox = capiunto.create( {
            bodyStyle = "width:60em; background:#f3f3f3; margin: 0 0 0 0;"
      } )
         :addHeader( relasjonsheading, "mw-infobox-capiunto-title-2" )
         :addRow( 'begrep', createMediawikiLinkNS( relasjonargs.begrep ) )

      terminfobox = addOptionalRow( terminfobox, "type", relasjonargs.type )
      terminfobox = addOptionalRow( terminfobox, "inndelingskriterium", relasjonargs.inndelingskriterium )
      terminfobox = addOptionalRow( terminfobox, "merknad", relasjonargs.merknad )
         :getHtml()

      return tostring(terminfobox)
      end
   end
end

-- Write triples for template begrep
function p.begrep ( frame )
   local begrep = frame:getParent()

   local begreptripler = {
      smwproperty( "Dct:modified", frame:preprocess(
                       "{{#time: Y-m-d'T'H:i:s|{{REVISIONTIMESTAMP}}}}{{#time:P|{{REVISIONTIMESTAMP}}|nb|true}}" )),
      smwproperty( "Skosp:memberOf",  begrep.args.medlem ),
      smwproperty( "Skos:scopeNote", begrep.args.kommentar ),
      smwproperty( "Dct:subject", begrep.args['bruksområde'] ),
      felles.sep,
      smwproperty( "Skosp:domene", begrep.args.domene ),
      smwproperty( "Skosp:publisere", begrep.args.publisere ),
      smwproperty( "Dct:identifier", begrep.args.identifikator ),
      smwproperty( "Skosp:previousIdentifier", begrep.args['tidligere id'] )
   }
   smwwritetriples( begreptripler )

   -- infobox

   -- infobox
   local terminfobox =	capiunto.create( {
         bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
   } )
      :addHeader( "INFORMASJON", "mw-infobox-capiunto-title-1" )
   terminfobox = addOptionalRow( terminfobox, 'referanse', begrep.args["kommentar:referanse"] ) -- obsolete?
   terminfobox = addOptionalRow( terminfobox, 'domene', begrep.args.domene )
   terminfobox = addOptionalRow( terminfobox, 'bruksområde', begrep.args["bruksområde"] )
   terminfobox = addOptionalRow( terminfobox, 'merknad',  begrep.args.kommentar )
   terminfobox = addOptionalRow( terminfobox, 'merknad (intern)',  begrep.args["merknad internt"] )
   terminfobox = addOptionalRow( terminfobox, 'status', begrep.args.status )
   terminfobox = addOptionalRow( terminfobox, 'publisere', begrep.args.publisere )
      :getHtml()
   return tostring(terminfobox)
end

-- Coalesce on displaytitle from prefLabel
function p.displaytitle( term )
   --	local prefixedtitle = 	mw.title.getCurrentTitle().prefixedText
   --	local term = mw.getCurrentFrame():getParent().args.term
   --  local currentdisplaytitle = mw.ext.displaytitle.get(prefixedtitle)
   local isset = mw.getCurrentFrame():callParserFunction( '#var', { 'dtisset' } )

   -- om term finnes og display title er tittel med namespace, sett displaytitle
   if (isset == "" and term ~= nil)
   then
      mw.ext.displaytitle.set(term)
      -- sett info om at at term finnes via wiki parserfuncstions siden en ikke kan ha state mellom invocations i LUA
      mw.getCurrentFrame():callParserFunction( '#vardefine', { 'dtisset', term } )
   end
   return
end

-- Termseksjon
function p.termseksjon( frame )
   local args = frame.args
   local seksjonargs = frame:getParent().args
   local lc = args.lc
   local lcname = args.lcname
   assert(lc and lcname,"alle termseksjon må ha en lc og tittel" .. lcname )

   local hasspraak = false
   for k, v in pairs( seksjonargs ) do
      if (k == "ekvivalens")
      then hasspraak = false
      elseif (k == "ekvivalens merknad") and v
      then hasspraak = true
         break;
      elseif k then
         hasspraak = true
         break;
      end
   end


   -- infobox
   if hasspraak then
      local terminfobox =	capiunto.create( {
            bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0; margin-top: 25px;"
      } )
         :addHeader( lcname, "mw-infobox-capiunto-title-1" )
      terminfobox = addOptionalRow( terminfobox, 'ekvivalens', seksjonargs.ekvivalens )
      terminfobox = addOptionalRow( terminfobox, 'merknad', seksjonargs.merknad )
         :getHtml()
      return tostring(terminfobox)
   end
end

function p.kontekst(frame)
   local args = frame.args
   local lc = args.lc
   local kontekstargs = frame:getParent().args

   assert (lc ~= nil, "named param lc must be set when invoking function begrep:kontekst")

   -- infobox
   local terminfobox = capiunto.create( {
         bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
   } )
      :addHeader( "Kontekst", "mw-infobox-capiunto-title-2" )
      :addRow( 'kontekst av', kontekstargs['kontekst av'] )
      :addRow( 'kontekst', kontekstargs.kontekst )
   terminfobox = addOptionalRow( terminfobox, 'referanse', kontekstargs.referanse )
      :getHtml()
   return tostring(terminfobox)
end

function p.definisjon(frame)
   local args = frame.args
   local lc = args.lc
   local definisjonargs = frame:getParent().args

   assert (lc ~= nil, "named param lc must be set when invoking function begrep:definisjon")

   -- infobox
   local terminfobox = capiunto.create( {
         bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
   } )
      :addHeader( "Definisjon", "mw-infobox-capiunto-title-2" )
      :addRow( 'definisjon', definisjonargs.definisjon )
   terminfobox = addOptionalRow( terminfobox, 'referanse', definisjonargs.referanse )
   terminfobox = addOptionalRow( terminfobox, 'merknad', definisjonargs.merknad )
      :getHtml()
   return tostring(terminfobox)

--   local slug = 'definisjon ' .. spraakkode
--  local begreptripler = {
--      smwproperty("Skosno:definisjon", felles.fullpagename ..'#'.. slug )
--   }
--   smwwritetriples( begreptripler )
--      -- definisjon subobject -- uri er original # + slug. samme som brukes til definisjon
--   local defref = termseksjon.args['definisjon:referanse']
--
--   -- håndter nøstet referanse på definisjon
--   if (defref)
--   then
--      local definisjonrefslug = slug .. " referanse"
--      local definisjonref = felles.fullpagename .. definisjonrefslug
--      local definisjonsreftripler = {
--         smwlangproperty("Skosp:label", defref, spraakkode )
--      }
--      mw.smw.subobject( definisjonsreftripler, definisjonrefslug )
--
--      local definisjontripler =
--         {
--            smwproperty( "@category","Skosno:Definisjon" ),
--            smwlangproperty("Skosp:label", termseksjon.args['definisjon'], spraakkode),
--            smwproperty("Dct:source", definisjonref ------)
--
--         }
--      -- andre parameter er (relativ ) uri å bruke som navn for subobject, appender # og slug på sidenavn
--      mw.smw.subobject( definisjontripler, slug )
end

--return
--end

function p.term( frame )
   local args = frame.args
   local termargs = frame:getParent().args
   local langcode = args.lc
   local heading = args.heading
   local relasjon = args.relasjon

   assert ( langcode ~= nil, "named param lc must be set when invoking module begrep:term")
   assert ( heading ~= nil , "named param heading must be set when invoking module begrep:term" )

   if ( termargs.term )
   then
      -- langcode = term.args['språkkode']
      -- forventer alltid å få inn en en relasjon på type prefix:tekst
      local relasjonslug = mw.ustring.match(felles.languagetable[heading], ":(.*)")
      local urivarname = relasjonslug .. "termCounter" .. langcode
      local LuaVarTermCounter = mw.ext.VariablesLua.var( urivarname  )
      -- error(type(LuaVarTermCounter))
      local counter = (LuaVarTermCounter and LuaVarTermCounter ~= '') and LuaVarTermCounter or 1
      mw.ext.VariablesLua.vardefine(urivarname, tonumber(counter) + 1)
      local slug =  relasjonslug .. " " .. langcode .. " " .. counter
      local sourceslug = slug .. "source"
      local termtripler = {
         smwlangproperty("Skosxl:literalForm", termargs.term, langcode ),
         smwproperty("Dct:source", felles.fullpagename .. sourceslug ),
         smwproperty("@category", "Skosxl:Label" )
      }
      mw.smw.subobject( termtripler, slug )

      if (relasjonslug == "prefLabel") then
         p.displaytitle( termargs.term )
      end

      local relasjonstripler = {
         smwproperty(felles.languagetable[heading], felles.fullpagename .. "#" .. slug)
      }
      smwwritetriples(relasjonstripler)

      --

      if (termargs.term and termargs["term:referanse"] )
      then
         local kildetripler = {
            smwlangproperty("Rdfs:label", termargs['term:referanse'], langcode),
            smwlangproperty("Skos:scopeNote", termargs['kommentar'], langcode)
         }
         -- result = mw.smw.subobject( definisjontripler, sourceslug  )
      end


      local terminfobox = capiunto.create( {
            bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
      } )
         :addHeader( heading, "mw-infobox-capiunto-title-2" )
         :addRow( 'term',termargs.term )

      terminfobox = addOptionalRow( terminfobox, 'referanse', termargs['term:referanse'] )
      terminfobox = addOptionalRow( terminfobox, 'kollokasjon', termargs.kollokasjon )
      if termargs.forkortelsep == "Ja"
      then
         terminfobox = addOptionalRow( terminfobox, 'forkortelse av', termargs['forkortelse av'] )
         terminfobox = addOptionalRow( terminfobox, 'forkortelsestype', termargs.forkortelsestype )
      end
      terminfobox = addOptionalRow( terminfobox, 'kommentar', termargs.kommentar )
         :getHtml()
      return tostring(terminfobox)
   end

   --  error ((string.match(property, ":(.*)$")) .. " " ..spraakkode)
   --	return error (string.match(property, ":(.*)$") .. term.args.spraakkode)
end

return p