function createCookie(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+'='+value+expires+'; path=/Reporting';
}

function readCookie(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 c.substring(nameEQ.length,c.length);
	}
	return null;
}

function sitePreference(index,val){
	var cookie=readCookie('MARS-site-prefs');
	var prefs=null;
	if(cookie){
		prefs=cookie.split('|');
	}else{
		prefs=new Array('monarch','left','14');
	}
	if(typeof val!="undefined"){
		prefs[index]=val;
		cookie=prefs.join('|');
		createCookie('MARS-site-prefs',cookie,30);
		return null;
	}else{
		return prefs[index];
	}
}

function siteStyle(title){
	var ret=sitePreference(0,title);
	setActiveStyleSheet(title);
	return ret;
}

function siteMenuPos(pos){
	return sitePreference(1,pos);
}

function siteDocFontSize(size){
	if(typeof size!="undefined"){
		var body=document.getElementsByTagName("body")[0];
		body.style.fontSize=size+"px";
	}
	var ret=sitePreference(2,size);
	(!ret)&&(alert("The base font size was changed.  New size: "+size+"px.\n\n"+"It's recommended that you refresh the page now.\n"));
	return ret;
}

function setActiveStyleSheet(title){
	var i,a,main;
	if(title){
		for(i=0;(a=document.getElementsByTagName('link')[i]);i++){
			if(a.getAttribute('rel').indexOf('style')!=-1&&a.getAttribute('title')){
				a.disabled=true;
				if(a.getAttribute('title')==title)a.disabled=false;
			}
		}
	}
}