function URLfolder(url)
{	var s;
	s=""+url.toString();
	if(s.lastIndexOf("/")>=0) s=s.substring(0,s.lastIndexOf("/")+1);
	return s;
}
function URLfile(url)
{	var s;
	s=""+url.toString();
	if(s.lastIndexOf("/")>=0) s=s.substring(s.lastIndexOf("/")+1,s.length);
	return s;
}
function URLtaal(url)
{	var s;
	s=""+url.toString();
	if(s.indexOf("/UK/")>=0) return "UK";
	if(s.indexOf("/uk/")>=0) return "UK";
	return "NL"; /*default*/	
}

function substit(s,f,t,n) // replace f in s by t, n times (or inf times if n==0)
{ var i,stxt=""+s,ls,lf,ftxt=""+f,ttxt=""+t,j=0;
  i=stxt.indexOf(ftxt);
  ls=stxt.length;
  lf=ftxt.length
  while( ((n==0)||(j<n)) && (i!=-1))
  { stxt=stxt.substr(0,i)+ttxt+stxt.substr(i+lf,ls);
    i=stxt.indexOf(ftxt,i+ttxt.length);
    j++;
  }
  return(stxt);
}

function switchtaal()
{ var s,base,subweb=""; /* e.g. "/newwipweb" */
  s=""+location;
  base=location.protocol+"//"+location.hostname;
  if(!(""+location.port=="")) base=base+":"+location.port;
  base=base+subweb;
  if(URLtaal(location)=="UK")
  { if(s.indexOf(base+"/UK/")==0) s=substit(s,"/UK/","/",1);
    else if(s.indexOf(base+"/uk/")==0) s=substit(s,"/uk/","/",1);
  }
  else s=substit(s,base,base+"/UK",1);
  location=s;
}

function settaalimg()
{ var subweb=""; /* e.g. "/newwipweb" */
  document.taalimg.src=subweb+"/images/taal"+URLtaal(location)+".gif"
  if(URLtaal(location)=="UK")  
  { document.taalimg.title="Klik voor Nederlandse versie";
  }
  else
  { document.taalimg.title="Click to see English version";
  }
}