Var cms_Version       : Integer := 1
Var cms_ModuleVersion : Integer := 1
Var cms_ShowModule    : String  := 'execmacro="Google Analytics Seitenname"'
Var cms_Functions_1   : String  := ''

Include ../sysmod/cms_sub.mod

Procedure cmsMain (nLfdWEB : Integer; cSpacer, cSes, cURL, cParam : String) : String
 
  cms_nLfdWEB := nLfdWEB
  cms_cSpacer := cSpacer
  cms_cSes    := cSes
  cms_cURL    := cURL
  cms_cParam  := cParam
 
  cms_cLan    := cms_GetLan (nLfdWEB)
 
  ////
  Var db      : Integer := cms_GetTable('cms_web')
  Var nLfd    : Integer
  Var nRec    : Integer
  Var n       : Integer
  Var cPos    : String
 
  nLfd := cms_RealLfd (db, nLfdWEB)
  cPos := cms_GetPosition (db, nLfd)
 
  If cPos = ''
    If GetRField (db, 'Link_Web')#0 // nicht für Hauptpunkt
      cms_WriteText (GetField(db,'Name'))
    End
  Else
    cms_WriteText('{verlauf}')
    While nLfd > 0
      nRec := FindAuto (db, nLfd)
      ReadRec (db, nRec)
      nLfd := GetRField (db, 'Link_Web')
      If n := cms_FindByLan (db, AutoRecNo (db), cms_cLan) > 0
        nRec := FindAuto (db, n)
      End
      ReadRec (db, nRec)
      If GetRField (db, 'Link_Web')#0 // nicht für Hauptpunkt
        Subst('{verlauf}','{verlauf}/'+GetField(db, 'Name'), 2)
      End
    End
  End
  Subst('{verlauf}/','')
  Subst('{verlauf}','')
  Subst(cSpacer,'')
  Return cSes
EndProc

<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-xxxxxxx-x";
urchinTracker();
</script>

<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-xxxxxxx-x";
urchinTracker('{execmacro="gaseitenname"}');
</script>