/* 外部Style Sheet切替用JavaScript */
/* ==============================================================
參考：
「ブツ03:スタイルひとつください」（http://www.xinada.ne.jp/~handa/nanka/bt03）
「JavaScript for CSS」（http://east.portland.ne.jp/~sigekazu/css/javascript9.htm）
「Sylphied's Style Sheet Selector Script (S5)」（http://homepage.mac.com/syect/~sylphied/）
ＮＮ６はメニューからスタイル切替を操作できるので、基本的にWinIE5.5以降用として改造した。
なほMacIE4.0(4.5から可)はrel="alternate stylesheet"であるLINK要素を認識しない由。
============================================================== */
// ***********************************************************************************
// javascript9.js 		 Author Kan <sigekazu@choshinet.or.jp>
// 	→ http://east.portland.ne.jp/~sigekazu/css/javascript9_4.htm
// ***********************************************************************************
/* 初期設定 */

function test() { window.alert(CookiePath); } 
 var CookieType = 1; // 有効期限なし:0
 var CookieName = 'FavoriteStyle';
//var CookiePath = location.pathname;//  './cookie'
 var CookiePath;
	if (location.protocol == 'file:') {CookiePath = '/' ;}//ローカル環境での基準ディレクトリ
	else {CookiePath='/CollegeLife-Library/1959';}//ＷＷＷでの基準ディレクトリ
 var CookieDays = 30; // Cookieの有效日數
/* ここまで */

var d = document;
var dS; // スタイルシートのコレクション保存
var cookieTitle; // Cookieから取得したシートのタイトル保存

if(navigator.cookieEnabled && d.styleSheets && (d.all || window.metaForN6)){
	main();
}
// ***********************************************************************************
function main() {
	if(navigator.product) window.onUnload = setCookie; // メニューでの選擇を反映（Netscape6のみ）
	else dS = d.styleSheets; // Netscape6は除外

	if(getSheetTitleByCookie() && dS) ChangeStyleAlter(cookieTitle); // Cookieからタイトルを取り出して優先スタイルシートを變更
}
// ***********************************************************************************
function setCookie() {
	if(!dS) dS = d.styleSheets; // Netscape6用に再取得

	for(var i=0; i<dS.length; i++) {
		if(!dS[i].title || dS[i].disabled) continue;//固定シートはスキップする
		else {
			var sheetTitle = dS[i].title;//titleあり（優先シート）
			break;
		}
	}
	if(!sheetTitle) {//title無し＝優先・代替シートが無い場合
	  var SEL = d.StyleChangeForm.SEL;
	  sheetTitle = SEL.options[SEL.selectedIndex].value; //==selectedTitle（就中'NoStyle'乃至'default'）
	};

	if(CookieType) {
		var expires = new Date();
		expires.setTime(expires.getTime() + 1000*60*60*24*CookieDays);
	}
	d.cookie = CookieName + '=' + escape(sheetTitle)
		+ (d.domain ? ('; domain=' + d.domain) : '')
		+ (d.domain && CookiePath ? ('; path=' + CookiePath) : '')
		+ (CookieType ? ('; expires=' + expires.toGMTString()) : '');
}
// ***********************************************************************************
function getSheetTitleByCookie(){
	var re = new RegExp(CookieName + '=([^;]+)');
	var r = unescape(d.cookie).match(re);

	cookieTitle = r && r[1];
	return cookieTitle;
}
// ***********************************************************************************
function ChangeStyleAlter(sheetTitle) {
	if(!dS) dS = d.styleSheets; // Netscape6用に再取得

	if(sheetTitle == 'NoStyle'){disableStyleElementAndSheet();}//sheetTitle
	else if(dS) {
		for(var i=0; i<dS.length; i++) {
		  if( dS[i].title == sheetTitle ) { //titleがある（優先・代替スタイルシートあり）
			dS[i].disabled = false;
		  } else { //title無しは固定シートと看做し全て適用。
			dS[i].disabled = (! dS[i].title)? false : true;
		  }
		}
	}
}
// ***********************************************************************************
/*========スタイル要素とスタイルシート無效化=========*/
/* 參考：http://east.portland.ne.jp/~sigekazu/css/javascript3.htm */
function disableStyleElementAndSheet(){
  if(document.all){
    var OBJ = document.all.tags('style');
    for (i=0; i<OBJ.length; i++) {OBJ.item(i).disabled=true;}
  }
  else if(document.getElementsByTagName){
    var OBJ=document.getElementsByTagName('style');
    for (i=0; i<OBJ.length; i++){OBJ.item(i).disabled=true;}
  }
 if(document.styleSheets) {
    var OBJ = document.styleSheets;
    for (i=0; i<OBJ.length; i++) {OBJ[i].disabled=true;}
 }
}
/*=================================================*/
////////////////////////////////////////////////////////////////////////////////
//  do1.js　　document.styleSheetsを操作して外部スタイルシートを切り替へる外部JavaScriptファイル
//    參考；http://www.xinada.ne.jp/~handa/nanka/stylechangers/documentobject-1
////////////////////////////////////////
//  DoSelect
//    選擇スタイルを實行
function DoSelect(selectedTitle, sheetTitle) {
	ChangeStyleAlter(selectedTitle); 
	setCookie();

//	if(navigator.product) window.history.go(0); // Netscape6はリロードさせれば綺麗に表示される
//	else window.focus();
}
////////////////////////////////////////
//  スタイル變更フォーム(セレクト・メニュー)を出力
function insertForm() {
  var ds = document.styleSheets;
  var select = createSelect();
  if (ds)
  {
    document.writeln('<form action="" name="StyleChangeForm" id="StyleChangeForm" onSubmit="return DoSelect(this, this.value);" style="clear:both;direction:ltr;margin:0;text-align:center;background:#dfdfdf;">');
//    document.writeln('<fieldset style="width:16em;border:0.7em solid #d0d0d0">');
//    document.writeln('<legend style="margin-left:15%;">スタイルシート切替</legend>');
   document.writeln(select + '&nbsp;<input type="submit" value="切替">');
//    document.writeln('</fieldset>');
    document.writeln('</form>');
  }
}
////////////////////////////////////////
// ***********************************************************************************
function createSelect(){
	var links = d.all && d.all.tags('link') || d.getElementsByTagName('link');
	var titles = new Array();
	var select = '<label>スタイル選擇：<select name="SEL" id="SEL" size="1">';
	select += '<option value="default"' + (cookieTitle == 'default' ? ' selected="selected"' : '') + ' style="background:#e5e5ff;">初期設定</option>';//title無し（スタイルシート無し、もしくは固定シート）

	for(var i=0, sheetTitle; i<links.length; i++) {
		sheetTitle = links[i].title; 

		if(links[i].type.toLowerCase() == 'text/css' && sheetTitle && !titles[sheetTitle]) {
			titles[sheetTitle] = true;
			select += '<option value="' + sheetTitle + '"'
				 + (sheetTitle == cookieTitle ? ' selected="selected"' : '') + '>'
				 + sheetTitle + '</option>';
		}
	}

	select += '<option value="NoStyle"' + (cookieTitle == 'NoStyle' ? ' selected="selected"' : '') + '>スタイル解除</option>';
	select += '</select></label>';

	return select;
}
// ***********************************************************************************