Skip to content

GitLab

Commit cfe3eb13 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-11-14 22:05:13 by afrisch] Add Google Analytics markup 

Original author: afrisch
Date: 2005-11-14 22:05:13+00:00
parent d257ee42
Hide whitespace changes
Inline Side-by-side
web/site.cd
View file @ cfe3eb13
......@@ -31,6 +31,7 @@ let load_include (Latin1 -> [Any*])
let [<site>[ <title>site
(<header>header | /(header:=[]))
(<footer>footer | /(footer:=[]))
extra_head::H.script*
main_page ] ] =
try (load_include input :? [ Site ])
with err & Latin1 ->
......@@ -481,6 +482,7 @@ text-align:center; color: #aa0000; font: bold 200% helvetica" >
<title>[ !site ': ' !title ]
<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">[]
<style type="text/css">style
!extra_head
]
<body style="margin: 0; padding : 0; background: #fcb333"
onload="javascript:if (document.cookie.indexOf('leftbar=none')>=0) document.getElementById('leftbar').style.display='none';">[ (* altbg 4e6e99 *)
......
web/site.xml
View file @ cfe3eb13
......@@ -22,5 +22,14 @@
</p>
</meta>
</footer>
<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = 'UA-87939-1';;
urchinTracker();
</script>
<include file="index.xml"/>
</site>
web/siteTypes.cd
View file @ cfe3eb13
......@@ -2,7 +2,7 @@
using H = "xhtml"
type Site = <site>[ <title>String Header? Footer? Page ]
type Site = <site>[ <title>String Header? Footer? H.script* Page ]
type Header = <header>[ Item* ]
type Footer = <footer>[ Item* ]
type Page = <page name=Latin1 url=?String new=?"" leftbar=?("true"|"false")>[ <title>String <banner>[InlineText*]? Item* ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment