

function InitializePoets() {
	
	// initialize the array of poets here ...
Emperors= new Array;
Emperors[0] = "<img src=\"http://woodblock.com/poets/thumbs/01.jpg\" height=\"100\" title=\"秋の田の かりほの庵の 苫をあらみ 我が衣手は 露にぬれつつ\" />";
Emperors[1] = "<img src=\"http://woodblock.com/poets/thumbs/02.jpg\" height=\"100\" title=\"春過ぎて 夏来にけらし 白妙の 衣ほすてふ 天の香具山\" />";
Emperors[2] = "<img src=\"http://woodblock.com/poets/thumbs/13.jpg\" height=\"100\" title=\"つくばねの 峰よりおつる みなの川 恋ぞつもりて 淵となりぬる\" />";
Emperors[3] = "<img src=\"http://woodblock.com/poets/thumbs/15.jpg\" height=\"100\" title=\"君がため 春の野に出でて 若菜つむ わが衣手に 雪はふりつつ\" />";
Emperors[4] = "<img src=\"http://woodblock.com/poets/thumbs/68.jpg\" height=\"100\" title=\"心にも あらでうき世に ながらへば 恋しかるべき 夜半の月かな\" />";
Emperors[5] = "<img src=\"http://woodblock.com/poets/thumbs/77.jpg\" height=\"100\" title=\"瀬をはやみ 岩にせかるる 滝川の われても末に あはむとぞ思ふ\" />";
Emperors[6] = "<img src=\"http://woodblock.com/poets/thumbs/99.jpg\" height=\"100\" title=\"人もをし 人もうらめし あぢきなく 世を思ふゆゑに 物思ふ身は\" />";
Emperors[7] = "<img src=\"http://woodblock.com/poets/thumbs/00.jpg\" height=\"100\" title=\"ももしきや ふるき軒ばの しのぶにも なほあまりある 昔なりけり\" />";


Females= new Array;
Females[0] = "<img src=\"http://woodblock.com/poets/thumbs/09.jpg\" height=\"100\" title=\"花の色は うつりにけりな いたづらに わが身よにふる ながめせしまに\" />";
Females[1] = "<img src=\"http://woodblock.com/poets/thumbs/19.jpg\" height=\"100\" title=\"難波潟 みじかき蘆の ふしのまも あはでこの世を すぐしてよとや\" />";
Females[2] = "<img src=\"http://woodblock.com/poets/thumbs/38.jpg\" height=\"100\" title=\"忘らるる 身をば思はず ちかひてし 人の命の 惜しくもあるかな\" />";
Females[3] = "<img src=\"http://woodblock.com/poets/thumbs/53.jpg\" height=\"100\" title=\"なげきつつ ひとりぬる夜の あくるまは いかに久しき ものとかはしる\" />";
Females[4] = "<img src=\"http://woodblock.com/poets/thumbs/54.jpg\" height=\"100\" title=\"忘れじの ゆく末までは かたければ 今日をかぎりの いのちともがな\" />";
Females[5] = "<img src=\"http://woodblock.com/poets/thumbs/56.jpg\" height=\"100\" title=\"あらざらむ この世のほかの 思ひ出に いまひとたびの あふこともがな\" />";
Females[6] = "<img src=\"http://woodblock.com/poets/thumbs/57.jpg\" height=\"100\" title=\"めぐりあひて 見しやそれとも わかぬまに 雲がくれにし 夜半の月かな\" />";
Females[7] = "<img src=\"http://woodblock.com/poets/thumbs/58.jpg\" height=\"100\" title=\"ありま山 ゐなの笹原 風吹けば いでそよ人を 忘れやはする\" />";
Females[8] = "<img src=\"http://woodblock.com/poets/thumbs/59.jpg\" height=\"100\" title=\"やすらはで 寝なましものを さ夜ふけて かたぶくまでの 月を見しかな\" />";
Females[9] = "<img src=\"http://woodblock.com/poets/thumbs/60.jpg\" height=\"100\" title=\"大江山 いく野の道の 遠ければ まだふみもみず 天の橋立\" />";
Females[10] = "<img src=\"http://woodblock.com/poets/thumbs/61.jpg\" height=\"100\" title=\"いにしへの 奈良の都の 八重桜 けふ九重に 匂ひぬるかな\" />";
Females[11] = "<img src=\"http://woodblock.com/poets/thumbs/62.jpg\" height=\"100\" title=\"夜をこめて 鳥のそらねは はかるとも よに逢坂の 関はゆるさじ\" />";
Females[12] = "<img src=\"http://woodblock.com/poets/thumbs/65.jpg\" height=\"100\" title=\"うらみわび ほさぬ袖だに あるものを 恋にくちなむ 名こそをしけれ\" />";
Females[13] = "<img src=\"http://woodblock.com/poets/thumbs/67.jpg\" height=\"100\" title=\"春の夜の 夢ばかりなる 手枕に かひなくたたむ 名こそをしけれ\" />";
Females[14] = "<img src=\"http://woodblock.com/poets/thumbs/72.jpg\" height=\"100\" title=\"音に聞く 高師の浜の あだ波は かけじや袖の ぬれもこそすれ\" />";
Females[15] = "<img src=\"http://woodblock.com/poets/thumbs/80.jpg\" height=\"100\" title=\"長からむ 心もしらず 黒髪の みだれてけさは 物をこそ思へ\" />";
Females[16] = "<img src=\"http://woodblock.com/poets/thumbs/88.jpg\" height=\"100\" title=\"難波江の 蘆のかりねの ひとよゆゑ みをつくしてや 恋ひわたるべき\" />";
Females[17] = "<img src=\"http://woodblock.com/poets/thumbs/89.jpg\" height=\"100\" title=\"玉の緒よ たえなばたえね ながらへば 忍ぶることの 弱りもぞする\" />";
Females[18] = "<img src=\"http://woodblock.com/poets/thumbs/90.jpg\" height=\"100\" title=\"見せばやな 雄島のあまの 袖だにも ぬれにぞぬれし 色はかはらず\" />";
Females[19] = "<img src=\"http://woodblock.com/poets/thumbs/92.jpg\" height=\"100\" title=\"わが袖は 潮干にみえぬ 沖の石の 人こそしらね かわくまもなし\" />";

Priests= new Array;
Priests[0] = "<img src=\"http://woodblock.com/poets/thumbs/08.jpg\" height=\"100\" title=\"わが庵は 都のたつみ しかぞすむ 世をうぢ山と 人はいふなり\" />";
Priests[1] = "<img src=\"http://woodblock.com/poets/thumbs/10.jpg\" height=\"100\" title=\"これやこの 行くも帰るも わかれては しるもしらぬも 逢坂の関\" />";
Priests[2] = "<img src=\"http://woodblock.com/poets/thumbs/12.jpg\" height=\"100\" title=\"天つ風 雲のかよひ路 吹きとぢよ をとめの姿 しばしとどめむ\" />";
Priests[3] = "<img src=\"http://woodblock.com/poets/thumbs/21.jpg\" height=\"100\" title=\"今こむと いひしばかりに 長月の 有明の月を まちいでつるかな\" />";
Priests[4] = "<img src=\"http://woodblock.com/poets/thumbs/47.jpg\" height=\"100\" title=\"八重むぐら しげれる宿の さびしきに 人こそ見えね 秋は来にけり\" />";
Priests[5] = "<img src=\"http://woodblock.com/poets/thumbs/66.jpg\" height=\"100\" title=\"もろともに あはれと思へ 山桜 花よりほかに 知る人もなし\" />";
Priests[6] = "<img src=\"http://woodblock.com/poets/thumbs/69.jpg\" height=\"100\" title=\"あらし吹く み室の山の もみぢばは 竜田の川の 錦なりけり\" />";
Priests[7] = "<img src=\"http://woodblock.com/poets/thumbs/70.jpg\" height=\"100\" title=\"さびしさに 宿を立ち出でて ながむれば いづくもおなじ 秋の夕ぐれ\" />";
Priests[8] = "<img src=\"http://woodblock.com/poets/thumbs/82.jpg\" height=\"100\" title=\"思ひわび さてもいのちは あるものを 憂きにたへぬは 涙なりけり\" />";
Priests[9] = "<img src=\"http://woodblock.com/poets/thumbs/85.jpg\" height=\"100\" title=\"夜もすがら 物思ふころは 明けやらで 閨のひまさへ つれなかりけり\" />";
Priests[10] = "<img src=\"http://woodblock.com/poets/thumbs/86.jpg\" height=\"100\" title=\"なげけとて 月やは物を 思はする かこち顔なる わが涙かな\" />";
Priests[11] = "<img src=\"http://woodblock.com/poets/thumbs/87.jpg\" height=\"100\" title=\"村雨の 露もまだひぬ まきの葉に 霧たちのぼる 秋の夕ぐれ\" />";
Priests[12] = "<img src=\"http://woodblock.com/poets/thumbs/95.jpg\" height=\"100\" title=\"おほけなく うき世の民に おほふかな わがたつ杣に 墨染の袖\" />";

StandingMales= new Array;
StandingMales[0] = "<img src=\"http://woodblock.com/poets/thumbs/03.jpg\" height=\"100\" title=\"八重むぐら しげれる宿の さびしきに 人こそ見えね 秋は来にけり\" />";
StandingMales[1] = "<img src=\"http://woodblock.com/poets/thumbs/04.jpg\" height=\"100\" title=\"田子の浦に うちいでてみれば 白妙の 富士の高嶺に 雪は降りつつ\" />";
StandingMales[2] = "<img src=\"http://woodblock.com/poets/thumbs/06.jpg\" height=\"100\" title=\"かささぎの 渡せる橋に おく霜の 白きをみれば 夜ぞふけにける\" />";
StandingMales[3] = "<img src=\"http://woodblock.com/poets/thumbs/14.jpg\" height=\"100\" title=\"みちのくの しのぶもぢずり 誰ゆゑに みだれそめにし 我ならなくに\" />";
StandingMales[4] = "<img src=\"http://woodblock.com/poets/thumbs/16.jpg\" height=\"100\" title=\"立ちわかれ いなばの山の 峰に生ふる まつとし聞かば いまかへりこむ\" />";
StandingMales[5] = "<img src=\"http://woodblock.com/poets/thumbs/20.jpg\" height=\"100\" title=\"わびぬれば いまはたおなじ 難波なる 身をつくしても あはむとぞ思ふ\" />";
StandingMales[6] = "<img src=\"http://woodblock.com/poets/thumbs/22.jpg\" height=\"100\" title=\"吹くからに 秋の草木の しをるれば むべ山風を 嵐といふらむ\" />";
StandingMales[7] = "<img src=\"http://woodblock.com/poets/thumbs/24.jpg\" height=\"100\" title=\"このたびは ぬさもとりあへず 手向山 もみぢのにしき 神のまにまに\" />";
StandingMales[8] = "<img src=\"http://woodblock.com/poets/thumbs/25.jpg\" height=\"100\" title=\"名にし負はば 逢坂山の さねかづら 人にしられで 来るよしもがな\" />";
StandingMales[9] = "<img src=\"http://woodblock.com/poets/thumbs/26.jpg\" height=\"100\" title=\"小倉山 峰のもみぢ葉 心あらば いまひとたびの みゆきまたなむ\" />";
StandingMales[10] = "<img src=\"http://woodblock.com/poets/thumbs/29.jpg\" height=\"100\" title=\"心当てに 折らばや折らむ 初霜の おきまどはせる 白菊の花\" />";
StandingMales[11] = "<img src=\"http://woodblock.com/poets/thumbs/31.jpg\" height=\"100\" title=\"朝ぼらけ 有明の月と見るまでに 吉野の里に 降れる白雪\" />";
StandingMales[12] = "<img src=\"http://woodblock.com/poets/thumbs/32.jpg\" height=\"100\" title=\"山川に 風のかけたる しがらみは ながれもあへぬ もみぢなりけり\" />";
StandingMales[13] = "<img src=\"http://woodblock.com/poets/thumbs/34.jpg\" height=\"100\" title=\"誰をかも しる人にせむ 高砂の 松も昔の 友ならなくに\" />";
StandingMales[14] = "<img src=\"http://woodblock.com/poets/thumbs/36.jpg\" height=\"100\" title=\"夏の夜は まだ宵ながら あけぬるを 雲のいづこに 月やどるらむ\" />";
StandingMales[15] = "<img src=\"http://woodblock.com/poets/thumbs/37.jpg\" height=\"100\" title=\"白露に 風の吹きしく 秋の野は つらぬきとめぬ 玉ぞ散りける\" />";
StandingMales[16] = "<img src=\"http://woodblock.com/poets/thumbs/39.jpg\" height=\"100\" title=\"浅茅生の 小野の篠原 しのぶれど あまりてなどか 人の恋しき\" />";
StandingMales[17] = "<img src=\"http://woodblock.com/poets/thumbs/41.jpg\" height=\"100\" title=\"恋すてふ 我が名はまだき 立ちにけり 人しれずこそ 思ひそめしか\" />";
StandingMales[18] = "<img src=\"http://woodblock.com/poets/thumbs/42.jpg\" height=\"100\" title=\"ちぎりきな かたみに袖を しぼりつつ 末の松山 波こさじとは\" />";
StandingMales[19] = "<img src=\"http://woodblock.com/poets/thumbs/44.jpg\" height=\"100\" title=\"あふことの たえてしなくば なかなかに 人をも身をも 恨みざらまし\" />";
StandingMales[20] = "<img src=\"http://woodblock.com/poets/thumbs/46.jpg\" height=\"100\" title=\"由良のとを 渡る舟人 かぢをたえ ゆくへも知らぬ 恋の道かな\" />";
StandingMales[21] = "<img src=\"http://woodblock.com/poets/thumbs/52.jpg\" height=\"100\" title=\"あけぬれば 暮るるものとは 知りながら なほうらめしき 朝ぼらけかな\" />";
StandingMales[22] = "<img src=\"http://woodblock.com/poets/thumbs/55.jpg\" height=\"100\" title=\"滝の音は たえて久しく なりぬれど 名こそ流れて なほ聞こえけれ\" />";
StandingMales[23] = "<img src=\"http://woodblock.com/poets/thumbs/73.jpg\" height=\"100\" title=\"高砂の をのへのさくら さきにけり とやまのかすみ たたずもあらなむ\" />";
StandingMales[24] = "<img src=\"http://woodblock.com/poets/thumbs/74.jpg\" height=\"100\" title=\"憂かりける 人を初瀬の 山おろしよ はげしかれとは 祈らぬものを\" />";
StandingMales[25] = "<img src=\"http://woodblock.com/poets/thumbs/78.jpg\" height=\"100\" title=\"淡路島 かよふ千鳥の 鳴く声に 幾夜ねざめぬ 須磨の関守\" />";
StandingMales[26] = "<img src=\"http://woodblock.com/poets/thumbs/81.jpg\" height=\"100\" title=\"ほととぎす 鳴きつる方を ながむれば ただありあけの 月ぞ残れる\" />";
StandingMales[27] = "<img src=\"http://woodblock.com/poets/thumbs/96.jpg\" height=\"100\" title=\"花さそふ 嵐の庭の 雪ならで ふりゆくものは わが身なりけり\" />";
StandingMales[28] = "<img src=\"http://woodblock.com/poets/thumbs/98.jpg\" height=\"100\" title=\"風そよぐ ならの小川の 夕ぐれは みそぎぞ夏の しるしなりける\" />";



SittingMales= new Array;
SittingMales[0] = "<img src=\"http://woodblock.com/poets/thumbs/05.jpg\" height=\"100\" title=\"奥山に もみぢふみわけ なく鹿の 声聞く時ぞ 秋はかなしき\" />";
SittingMales[1] = "<img src=\"http://woodblock.com/poets/thumbs/07.jpg\" height=\"100\" title=\"天の原 ふりさけみれば 春日なる 三笠の山に いでし月かも\" />";
SittingMales[2] = "<img src=\"http://woodblock.com/poets/thumbs/11.jpg\" height=\"100\" title=\"わたの原 八十島かけて こぎいでぬと 人にはつげよ あまのつり舟\" />";
SittingMales[3] = "<img src=\"http://woodblock.com/poets/thumbs/17.jpg\" height=\"100\" title=\"ちはやぶる 神代もきかず 竜田川 からくれなゐに 水くくるとは\" />";
SittingMales[4] = "<img src=\"http://woodblock.com/poets/thumbs/18.jpg\" height=\"100\" title=\"住の江の 岸による波 よるさへや 夢のかよひ路 人目よくらむ\" />";
SittingMales[5] = "<img src=\"http://woodblock.com/poets/thumbs/23.jpg\" height=\"100\" title=\"月みれば ちぢにものこそ かなしけれ わが身一つの 秋にはあらねど\" />";
SittingMales[6] = "<img src=\"http://woodblock.com/poets/thumbs/27.jpg\" height=\"100\" title=\"みかの原 わきて流るる いづみ川 いつみきとてか 恋しかるらむ\" />";
SittingMales[7] = "<img src=\"http://woodblock.com/poets/thumbs/28.jpg\" height=\"100\" title=\"山里は 冬ぞさびしさ まさりける 人目も草も かれぬと思へば\" />";
SittingMales[8] = "<img src=\"http://woodblock.com/poets/thumbs/30.jpg\" height=\"100\" title=\"有明の つれなく見えし 別れより あかつきばかり うきものはなし\" />";
SittingMales[9] = "<img src=\"http://woodblock.com/poets/thumbs/33.jpg\" height=\"100\" title=\"久方の 光のどけき 春の日にしづ心なく 花の散るらむ\" />";
SittingMales[10] = "<img src=\"http://woodblock.com/poets/thumbs/35.jpg\" height=\"100\" title=\"人はいさ 心も知らず ふるさとは 花ぞ昔の 香に匂ひける\" />";
SittingMales[11] = "<img src=\"http://woodblock.com/poets/thumbs/40.jpg\" height=\"100\" title=\"しのぶれど 色に出でにけり 我が恋は 物や思ふと 人の問ふまで\" />";
SittingMales[12] = "<img src=\"http://woodblock.com/poets/thumbs/43.jpg\" height=\"100\" title=\"あひみての のちの心に くらぶれば 昔は物を 思はざりけり\" />";
SittingMales[13] = "<img src=\"http://woodblock.com/poets/thumbs/45.jpg\" height=\"100\" title=\"あはれとも いふべき人は 思ほえで 身のいたづらに なりぬべきかな\" />";
SittingMales[14] = "<img src=\"http://woodblock.com/poets/thumbs/48.jpg\" height=\"100\" title=\"風をいたみ 岩うつ波の おのれのみ くだけて物を 思ふころかな\" />";
SittingMales[15] = "<img src=\"http://woodblock.com/poets/thumbs/49.jpg\" height=\"100\" title=\"みかきもり 衛士のたく火の 夜はもえて 昼は消えつつ 物をこそ思へ\" />";
SittingMales[16] = "<img src=\"http://woodblock.com/poets/thumbs/50.jpg\" height=\"100\" title=\"君がため 惜しからざりし いのちさへ 長くもがなと 思ひけるかな\" />";
SittingMales[17] = "<img src=\"http://woodblock.com/poets/thumbs/51.jpg\" height=\"100\" title=\"かくとだに えやはいぶきの さしも草 さしもしらじな もゆる思ひを\" />";
SittingMales[18] = "<img src=\"http://woodblock.com/poets/thumbs/63.jpg\" height=\"100\" title=\"いまはただ 思ひ絶えなむ とばかりを 人づてならで 言ふよしもがな\" />";
SittingMales[19] = "<img src=\"http://woodblock.com/poets/thumbs/64.jpg\" height=\"100\" title=\"朝ぼらけ 宇治の川霧 絶え絶えに あらはれわたる 瀬々の網代木\" />";
SittingMales[20] = "<img src=\"http://woodblock.com/poets/thumbs/71.jpg\" height=\"100\" title=\"夕されば 門田の稲葉 おとづれて 蘆のまろやに 秋風ぞ吹く\" />";
SittingMales[21] = "<img src=\"http://woodblock.com/poets/thumbs/75.jpg\" height=\"100\" title=\"ちぎりおきし させもが露を いのちにて あはれ今年の 秋もいぬめり\" />";
SittingMales[22] = "<img src=\"http://woodblock.com/poets/thumbs/76.jpg\" height=\"100\" title=\"わたの原 こぎいでてみれば 久方の 雲いにまがふ 沖つ白波\" />";
SittingMales[23] = "<img src=\"http://woodblock.com/poets/thumbs/79.jpg\" height=\"100\" title=\"秋風に たなびく雲の たえ間より もれいづる月の 影のさやけさ\" />";
SittingMales[24] = "<img src=\"http://woodblock.com/poets/thumbs/83.jpg\" height=\"100\" title=\"世の中よ 道こそなけれ 思ひ入る 山の奥にも 鹿ぞ鳴くなる\" />";
SittingMales[25] = "<img src=\"http://woodblock.com/poets/thumbs/84.jpg\" height=\"100\" title=\"ながらへば またこのごろや しのばれむ 憂しと見し世ぞ 今は恋しき\" />";
SittingMales[26] = "<img src=\"http://woodblock.com/poets/thumbs/91.jpg\" height=\"100\" title=\"きりぎりす 鳴くや霜夜の さむしろに 衣かたしき ひとりかも寝む\" />";
SittingMales[27] = "<img src=\"http://woodblock.com/poets/thumbs/93.jpg\" height=\"100\" title=\"世の中は つねにもがもな なぎさこぐ あまの小舟の 綱手かなしも\" />";
SittingMales[28] = "<img src=\"http://woodblock.com/poets/thumbs/94.jpg\" height=\"100\" title=\"み吉野の 山の秋風 さ夜ふけて ふるさと寒く 衣うつなり\" />";
SittingMales[29] = "<img src=\"http://woodblock.com/poets/thumbs/97.jpg\" height=\"100\" title=\"こぬ人を まつほの浦の 夕なぎに 焼くやもしほの 身もこがれつつ\" />";

}

function DisplayMySet(who) {

	errors = false;
	error_message = "";
	my_set_data = "";
	var poet_number = who.value;

	CheckForTooMany('emperor',1); 
	if (!errors) { CheckForTooMany('female', 2); } 
	if (!errors) { CheckForTooMany('priest', 1); }
	if (!errors) { CheckForTooMany('male_standing', 3); }
	if (!errors) { CheckForTooMany('male_sitting', 3); }

	if (errors) {
		// display error message
		alert(error_message);
		who.checked = false;
		return;
	}

	ClearThePanel();
	UpdateMySet('emperor',1); 
	UpdateMySet('female', 2); 
	UpdateMySet('priest', 1);
	UpdateMySet('male_standing', 3); 
	UpdateMySet('male_sitting', 3);

}

function CheckForTooMany(type, allowed_total) {

	var number_checked = 0;

	for(var i=0; i < document.forms[0][type].length; i++){
		if(document.forms[0][type][i].checked) {
			number_checked ++;
			if (number_checked > allowed_total) { 
				error_message = "You have selected too many of this type ..."; errors = true;
				break;
			}
		}
	}
}


function UpdateMySet(type, allowed_total) {

	var number_checked = 0;

	for(var i=0; i < document.forms[0][type].length; i++){
		if(document.forms[0][type][i].checked) {
			number_checked ++;
			poet_number = document.forms[0][type][i].value;
			// write this one to the display area
			switch (type) {
				case 'emperor' :{
					document.getElementById('print_01').innerHTML = Emperors[i];
					my_set_data += type + "*" + "print_01" + "*" + i + "*" + poet_number + "^";
					break;
				}
				case 'female' :{
					switch (number_checked) {
						case 1: document.getElementById('print_02').innerHTML = Females[i];
						my_set_data += type + "*" + "print_02" + "*" + i + "*" + poet_number + "^";break;
						case 2: document.getElementById('print_08').innerHTML = Females[i];
						my_set_data += type + "*" + "print_08" + "*" + i + "*" + poet_number + "^";break;
					}
					break;
				}
				case 'priest' :{
					document.getElementById('print_04').innerHTML = Priests[i];
					my_set_data += type + "*" + "print_04" + "*" + i + "*" + poet_number + "^";
					break;
				}
				case 'male_standing' :{
					switch (number_checked) {
						case 1: document.getElementById('print_05').innerHTML = StandingMales[i];
						my_set_data += type + "*" + "print_05" + "*" + i + "*" + poet_number + "^";break;
						case 2: document.getElementById('print_06').innerHTML = StandingMales[i];
						my_set_data += type + "*" + "print_06" + "*" + i + "*" + poet_number + "^";break;
						case 3: document.getElementById('print_10').innerHTML = StandingMales[i];
						my_set_data += type + "*" + "print_10" + "*" + i + "*" + poet_number + "^";break;
					}
					break;
				}
				case 'male_sitting' :{
					switch (number_checked) {
						case 1: document.getElementById('print_03').innerHTML = SittingMales[i];
						my_set_data += type + "*" + "print_03" + "*" + i + "*" + poet_number + "^";break;
						case 2: document.getElementById('print_07').innerHTML = SittingMales[i];
						my_set_data += type + "*" + "print_07" + "*" + i + "*" + poet_number + "^";break;
						case 3: document.getElementById('print_09').innerHTML = SittingMales[i];
						my_set_data += type + "*" + "print_09" + "*" + i + "*" + poet_number + "^";break;
					}
					break;
				}
			}
		}
	}
}



function ClearThePanel() {
	for(var i=1; i < 10; i++){
		target = "print_0" + i.toString();
		document.getElementById(target).innerHTML = "<img src=\"http://mokuhankan.com/jp/images/beige_dot.gif\" width= \"70\" height=\"100\" />";
	}
	document.getElementById('print_10').innerHTML = "<img src=\"http://mokuhankan.com/jp/images/beige_dot.gif\" width= \"70\" height=\"100\" />";
}


function ClearTheChecks() {
	for(var i=0; i < document.forms[0].elements.length; i++){
		document.forms[0].elements[i].checked = false;	
	}
}

function SaveMySet() {	
		SetCookie('my_set', my_set_data, 365, '/', '','' );
		alertDrawer('セットを保存しました');
}

function SaveMySetQuietly() {	
		SetCookie('my_set', my_set_data, 365, '/', '','' );
}

function LoadMySet() {	
	if ( GetCookie( 'my_set' ) ) {
		ClearThePanel();
		ClearTheChecks();
		DisplayLoadedData(); 
	} else {
		// error message ... nothing there ...
		// alertDrawer('保存デートを見つかりません');
	}
}


function DisplayLoadedData () {

	my_set_data = GetCookie( 'my_set' );
	var loaded_data = my_set_data.split( '^' );
		
	for(var i=0; i < loaded_data.length-1; i++){
		temp = loaded_data[i].split( '*' );
		
		document.forms[0][temp[0]][temp[2]].checked = true	
		switch (temp[0]) {
			case 'emperor' :{
				document.getElementById(temp[1]).innerHTML = Emperors[temp[2]];
				break;
			}
			case 'female' :{
				document.getElementById(temp[1]).innerHTML = Females[temp[2]];
				break;
			}
			case 'priest' :{
				document.getElementById(temp[1]).innerHTML = Priests[temp[2]];
				break;
			}
			case 'male_standing' :{
				document.getElementById(temp[1]).innerHTML = StandingMales[temp[2]];
				break;
			}
			case 'male_sitting' :{
				document.getElementById(temp[1]).innerHTML = SittingMales[temp[2]];
				break;
			}
		}
	}
}



