<!--

function onLoaded(){
setPageId();
setPageTitle();
setCrumbs();
setDateModified(); 
}

function getPageId(){return getObj("pid").innerHTML}

function setPageId(){
var fnm=document.URL.toString()
var pos = fnm.indexOf('?');
if (pos > -1) fnm = fnm.substring(0,pos);
pos = fnm.lastIndexOf('.');
if (pos > -1) fnm = fnm.substring(0,pos);
getObj("pid").innerHTML=fnm.substring(fnm.lastIndexOf("/")+1)
}


function setDateModified(){
var obj = getObj("changed");
var src = obj.innerHTML;
if (src.substring(0,1)=='?') {
src=document.lastModified
if (!src) {
	obj.innerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	return;
}
src = src.split(" ")
var dy;
var mh;
var yr;
if ((src.length > 2)) { // not IE  && (src[3] != '')
	yr = src[3];
	if (src[1].length < 3) {
		dy = src[1];
		mh = src[2];
	}
	else {
		dy = src[2];
		mh = src[1];
	}
}
else {
	var mth=["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"]
	var dtm=src[0].split("/");
	if (dtm.length > 1) {
		yr = dtm[2];
		mh = mth[dtm[0]-1];
		dy = dtm[1];
	}
}
obj.innerHTML=dy.substr(0,2)+mh.substr(0,3)+yr.substr(2,2);
}
else {
src = src.split(" ");
obj.innerHTML=src[1]+src[2]+src[3].substr(2);
}
}

function setPageTitle(){
var src
var obj=getObj("pagetitle")
if(obj)src=obj.innerHTML
if(!src)src=""
else document.title=src
getObj("ph").innerHTML=src
}

function setCrumbs(){	
var sav,len,tok,viz,lnk,spl,phr,nxt,tmp,my
var raquo="<span style='font:bold;color:black'>&raquo;</span>"
var me=getObj("pid").innerHTML
var obj=getObj("shorttitle")
if(obj&&obj.innerHTML!="")my=obj.innerHTML
else{
obj=getObj("pagetitle")
if(obj)my=obj.innerHTML
}
if(!my)my="<unknown>"
var mo=document.URL.toString()
sav=getCookie("CC")
if(!sav)sav=""
sav=sav.split("$")
len=sav.length
tok=new Array(len)
viz=new Array(len)
lnk=new Array(len)
for(var i=0;i<len-1;i++){
spl=sav[i].split("#")
tok[i]=spl[0]
viz[i]=spl[1]
lnk[i]=spl[2]
if(tok[i]==me)len=i+1
}
tok[len-1]=me
viz[len-1]=my
lnk[len-1]=mo
phr=""
nxt=""
if(len>1){
for(var i=0;i<len-1;i++){
phr=phr+makeAnchor(viz[i],lnk[i])+raquo
nxt=nxt+tok[i]+"#"+viz[i]+"#"+lnk[i]+"$"
}
}
else{
if(me!="H001"){
tmp="../home/H001.php"
phr=makeAnchor("Home Page",tmp)+raquo
nxt="H001"+"#"+"Home Page"+"#"+tmp+"$"
}
}
phr=phr+"<span id=\"thisPage\">"+my+"</span>"
getObj("cr").innerHTML=phr
nxt=nxt+tok[len-1]+"#"+viz[len-1]+"#"+lnk[len-1]+"$"
setCookie("CC",nxt)

}

function makeAnchor(txt,ptr){
  return "<a href=\""+ptr+"\">"+txt+"</a>"
}

function setColor(ele,clr){if(ele)ele.style.color = clr}

function getObj(id){
  if(document.all)return document.all[id]
  else return document.getElementById(id)
}

function intlDate(dt){
  if(!dt)return"10661120"
  var d=dt.split("/")
  return d[2]+d[0]+d[1]
}

function getNiceDate(intlDate,shortDate){
  var mth=["January","February","March","April","May","June","July","August",
           "September","October","November","December"]
  var y=intlDate.substring(0,4)
  var m=mth[intlDate.substring(4,6)-1]
  var d=intlDate.substring(6)
  if(shortDate) return d+m.substring(0,3)+y.charAt(3)
  if(d.charAt(0)=="0")d=d.substring(1)
  return d+" "+m+" "+y
}


function sb(stxt) {
  window.status = stxt;
}

function setCookie(name,value,days){
  if(days){
    var date=new Date()
    date.setTime(date.getTime()+(days*24*60*60*1000))
    var expires=";expires="+date.toGMTString()
  }
  else expires=""
  document.cookie=name+"="+escape(value)+expires+";path=/"
}

function getCookie(name){
  var nameEQ=name+"="
  var ca=document.cookie.split(';')
  for(var i=0;i<ca.length;i++){
    var c=ca[i]
    while(c.charAt(0)==' ')c=c.substring(1,c.length)
    if (c.indexOf(nameEQ)==0)return unescape(c.substring(nameEQ.length,c.length))
  }
  return null
}


//-->


