# $Id: qa.rb,v 1.2 2005/01/16 02:48:35 toshio Exp $
# Copyright (C) 2004 TOSHIO FUKEHARA <toshio@fukehara.com>

#=============
# QAプラグイン
#=============

# グローバル変数
$linkDicValue = ["", "", "", "", ""]
$linkDicTitle = ["", "", "", "", ""]
$linkDicValue[0] = "http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?MT=[word]&sw=0"
$linkDicTitle[0] = "[goo]"
$linkDicValue[1] = "http://home.alc.co.jp/db/owa/etm_sch?instr=[word]&stg=1"
$linkDicTitle[1] = "[ALC語源]"
$linkDicValue[2] = "http://www.m-w.com/cgi-bin/dictionary?book=Dictionary&va=[word]"
$linkDicTitle[2] = "[Collegiate]"
$linkDicValue[3] = "http://www1.oup.co.uk/elt/oald/cgi-bin/oald.pl?search_word=[word]"
$linkDicTitle[3] = "[Oxford]"
$linkDicValue[4] = "http://dictionary.reference.com/search?q=[word]"
$linkDicTitle[4] = "[Dic.com]"
$linkWord = ""

# サニタイジング
def myescape(array)
	array.collect!{|x| x.to_s.escapeHTML}
end
 
# 解答・チェックの表示
# <引数> 選択値、選択肢(解答1)、選択肢(解答2)、、、
def qa_answer(*answer)
	items = "\n<form>"
	items << qa_select(*answer)
	items << qa_check
	items << "</form>\n"
	items
end


# 解答・チェック表示＋リンク(英語辞書サイト)を表示
# <引数> 選択値、選択肢(解答1)、選択肢(解答2)、、、
def qa_answer_link(*answer)
	items = "\n<form>"
	items << qa_select(*answer)
	items << qa_check
	items << qa_select_link($linkWord)
	items << "</form>\n"
	items
end


# 解答の表示
# <引数> 選択値、選択肢(解答1)、選択肢(解答2)、、、
def qa_select(*answer)
	answer = myescape(answer)
	items = "\n&nbsp;<select>"
	count = 0
	for a in answer
		if count == 0 then
			items << "<option selected>#{a}"
		else
			items << "<option>#{a}"
		end
		count += 1
	end
	items << "</select>&nbsp;\n"
	items
end

# リンク(英語辞書サイト)を表示します
# <引数> 参照するキーワード(英単語)
def qa_select_link(*word)
	word = myescape(word)
	items = "\n&nbsp;<select onChange=\"qa_goDicLink(this)\">"
	items << "<option selected>&nbsp;[&nbsp;dic link&nbsp;]\n"
	
	i = 0
	for v in $linkDicValue
		v = v.sub("[word]", word[0])
		items << "<option value=\"#{v}\">#{$linkDicTitle[i]}</option>\n"
		i += 1
	end
	
	items << "</select>&nbsp;\n"
	items
end

# リンク内容の変更
# <引数> 何番目のリンクか(0〜)、リンク内容、タイトル
#        リンク内容のキーワード部分は"[word]"で指定すること
def qa_set_link(index, value, title)
	if index > $linkDicValue.size then
		$linkDicValue.push(value)
		$linkDicTitle.push(title)
	else
		$linkDicValue[index] = value
		$linkDicTitle[index] = title
	end
	
	# このままでは引数の文字列が何故か出力されてしまう為
	items = ""
	items
end

# チェックの表示
# <引数> なし
def qa_check
  <<EOS
	&nbsp;
	<input type="checkbox" name="QA_CHK" onclick="qa_SetResult(this)">
	<input type="checkbox" name="QA_CHK" onclick="qa_SetResult(this)">
	<input type="checkbox" name="QA_CHK" onclick="qa_SetResult(this)">
	&nbsp;
EOS
end


# 問題表題の表示
# ※引数なしでも可
# <引数1> 表題 
#         例 Q1
#         例 !!!Q1
# <引数2> 表示するかどうか 1 または 0 (指定なし時は表示、表題の引数の後に記述すること)
def qa_title(*title)
	title = myescape(title)
	@qa_count += 1

	head_start = "<h3>"
	head_end = "</h3>"
	if title == [] then
		body = "問#{@qa_count}"
	else
		$linkWord = title[0]	# リンク表示用
		
		body = title[0]
		case body
			when /^(\!{1,5})(.+)$/
				scan_ret = body.scan(/^(\!{1,5})/)
				head_start = "<h" + (scan_ret[0].to_s.size+1).to_s + ">"
				head_end = "</h" + (scan_ret[0].to_s.size+1).to_s + ">"
				# 注意 
				# splitメソッドは !!!問3 が split_ret[0]= split_ret[1]=!!! split_ret[2]=問3 のような結果になる
				split_ret = body.split(/^(\!{1,5})/)
				body = split_ret[2]
		end
	end	

	if title.size > 1 then
		flg_visible = title[1].to_i
	else
		flg_visible = 1 	
	end
	
	items = ""
	items << "<input type=\"hidden\" name=\"QA_TITLE\" value=\"#{body}\">\n"
	if flg_visible == 1 then
		items << "#{head_start}<a name=\"QA_LINK#{@qa_count}\"> </a>#{body}#{head_end}\n"
	else
		items << "<a name=\"QA_LINK#{@qa_count}\"> </a>\n"
	end
	items
end


# 問題一覧の表示、保存ボタン・クリアボタンの表示
# <引数> 行数、列数、(問題数) ※引数なしでも可
def qa_base(*base)
	base = myescape(base)
	@qa_english = false
	@qa_count = 0
	items = "<input type=\"hidden\" name=\"QA_LANG\" value=\"JP\">"
	items << qa_get_base(*base)
	items
end

# 問題一覧の表示、保存ボタン・クリアボタンの表示
# <引数> 行数、列数、(問題数) ※引数なしでも可
# 英語表記
def qa_base_e(*base)
	base = myescape(base)
	@qa_english = true
	@qa_count = 0
	items = "<input type=\"hidden\" name=\"QA_LANG\" value=\"EN\">"
	items << qa_get_base(*base)
	items
end

# 問題一覧の表示、保存ボタン・クリアボタンの表示内容の取得
def qa_get_base(*base)
	if base == [] then
		cells = 50
		cols = 10
	else
		cells = base[0].to_i * 10
		if base.size > 1 then
			cols = base[1].to_i
			cells = base[0].to_i * base[1].to_i
		else
			cols = 10
		end
		if base.size > 2 then
			cells = base[2].to_i
		end
	end
	
  	items = <<EOS
  	<table border="1">
  	<tbody>
	<tr>
EOS
	count = 0
	1.upto(cells) do |i|
		if count == cols then
			items << "</tr>\n"
			items << "<tr>\n"
			count = 0
		end
	    if @qa_english then
	    	items << "<td id=\"QA_NO\"><a href=\"\#QA_LINK#{i}\">Q#{i}</a></td><td id=\"QA_RET\">×</td>\n"
	    else
	    	items << "<td id=\"QA_NO\"><a href=\"\#QA_LINK#{i}\">問#{i}</a></td><td id=\"QA_RET\">×</td>\n"
		end
		count += 1
	end
  	items << <<EOS
	</tr>
	</tbody>
	</table>
EOS

	items << "<input type=\"hidden\" name=\"QA_PAGE\" value=\"#{@page}\">\n"

	items << <<EOS
	<script type="text/javascript">
	<!--
	// WinIE5以上、MacIE5以上、Netscape6以上のブラウザに対応
	
	// イベントハンドラ
	window.onload = qa_onLoad;
	window.onunload = qa_SetCookie;
	
	// キー名
	var qa_Key = "QA_" + document.getElementById("QA_PAGE").value;
EOS

	if @qa_english then
		items << "var qa_english = true;\n"
	else
		items << "var qa_english = false;\n"
	end

	items << <<EOS

	//--------------
	// 辞書表示関数 
	//--------------
	function qa_goDicLink(obj) {
		i = obj.selectedIndex;
		url = obj.options[i].value;
		if (url) {
			window.open(url, "Dictionary", "resizable,scrollbars,height=480,width=640");
		}
                obj.selectedIndex = 0;
	}

	//----------
	// 処理関数 
	//----------
	
	function qa_onLoad() {
		for (i = 0; i < document.getElementsByName("QA_CHK").length; i++) {
			// シーケンス値をvalueにセット
			document.getElementsByName("QA_CHK")[i].value = i; 
		}
		
		var ret = qa_LoadCookie(qa_Key);
		var data = "";
		if (ret) {
			for (i = 0; i < document.getElementsByName("QA_CHK").length; i++) {
				data = ret.substr(i, 1);
				if (data != "") {
					if (data == "1") {
						document.getElementsByName("QA_CHK")[i].checked = true; 
					} else {
						document.getElementsByName("QA_CHK")[i].checked = false; 
					}
				}
			}
		}
		
		qa_SetResults();
		
		// 問題の表題をセット
		var title_len = document.getElementsByName("QA_NO").length;
		for (i = 0; i < document.getElementsByName("QA_TITLE").length; i++) {
			if (i < title_len) {
				document.getElementsByName("QA_NO")[i].firstChild.firstChild.nodeValue = 
					document.getElementsByName("QA_TITLE")[i].value;
			} else {
				break;
			} 
		}

		return true;
	}

	function qa_SetResults() {
		var qchk = 0;
		var qno = 0;

		for (i = 0; i < document.getElementsByName("QA_CHK").length; i++) {
			if (document.getElementsByName("QA_CHK")[i].checked) 
				qchk++; 

			// 問題毎の処理
			if (((i+1) % 3) == 0) {	// 3つ目のチェック時
				qno = Math.floor(i / 3); 
				if (!qa_WriteResult(qchk, qno)) break;
				qchk = 0;
			}
		}
	}
	
	function qa_SetResult(obj) {
		if (obj) {
			var qno = 0;
			var qchk = 0;
			var chkno = obj.value - 0;	// 文字列ではなく数値にする為

			qno = Math.floor(chkno / 3);
			chkno = qno * 3; 
			
			try {
				for (i = 0; i < 3; i++) {
					if (document.getElementsByName("QA_CHK")[chkno].checked) { 
						qchk++; 
					}
					chkno++;
				}
	
				qa_WriteResult(qchk, qno);
			} catch(e) {
			}
		}
	}

	function qa_SetCookie() {
		if (typeof(window.navigator.cookieEnabled) != "undefined") {
			if (window.navigator.cookieEnabled == false) {
				return false;
			}
		}
		
		var data = "";
		for (i = 0; i < document.getElementsByName("QA_CHK").length; i++) {
			if (document.getElementsByName("QA_CHK")[i].checked) {
				data = data + "1";
	  	} else {
				data = data + "0";
			}
		}
		qa_WriteCookie(qa_Key, data);
	}
	
	function qa_ClearCookie() {
		var msg = "チェック内容をクリアします。よろしいですか？";
		if (document.getElementById("QA_LANG").value == "EN") {
			msg = "Result is cleard. Is it OK?";
		}
		if (!window.confirm(msg)) {
			return false;
		}
		
		qa_DeleteCookie(qa_Key);
		for (i = 0; i < document.getElementsByName("QA_CHK").length; i++) {
			document.getElementsByName("QA_CHK")[i].checked = false;
		}
		qa_SetResults();
	}
	
	//----------
	// 共通関数 
	//----------
	
	function qa_WriteResult(qchk, qno) { 
		// 結果表示欄が存在したらtrueを返します
		
		if (typeof(document.getElementsByName("QA_RET")[qno]) == "undefined")
			return false;
		
		switch (qchk) {
			case 0:
				document.getElementsByName("QA_RET")[qno].firstChild.nodeValue = "×";
			    break;
			case 1:
				document.getElementsByName("QA_RET")[qno].firstChild.nodeValue = "△";
			    break;
			case 2:
				document.getElementsByName("QA_RET")[qno].firstChild.nodeValue = "○";
			    break;
			case 3:
				document.getElementsByName("QA_RET")[qno].firstChild.nodeValue = "◎";
			    break;
			default:
				document.getElementsByName("QA_RET")[qno].firstChild.nodeValue = "×";
			    break;
		}
		
		return true;
	}

	function qa_WriteCookie(arg, data) { 
		if (arg) {
			document.cookie = arg + "=" + data + ";expires=Thu, 1-Jan-2030 00:00:00 GMT";
		}
	}
	
	function qa_LoadCookie(arg) { 
		if (arg) {
			data = document.cookie + ";" // 文字列の最後に「;」を追加
			from = data.indexOf(arg);
			to = data.indexOf("=", from) + 1;
			end = data.indexOf(";", from);
			if (to < end && from > -1){
				data = data.substring(to, end);
				data = data;
				return data
			}
		}
		return "";
	}
	
	function qa_DeleteCookie(arg) { 
		if (arg) {
			now = new Date;
			now.setHours(now.getHours() - 1); // 1時間前に設定
			now = now.toGMTString();          // GMT形式の文字列に変換
			document.cookie = arg + "=xxx" + ";expires=" + now;
		}
	}
	//-->
	</script>
EOS

	if @qa_english then
		items << "<form>\n"
		items << "<input type=\"button\" value=\"SAVE\" onclick=\"qa_SetCookie()\">\n"
		items << "&nbsp;\n"
		items << "<input type=\"button\" value=\"CLEAR\" onclick=\"qa_ClearCookie()\">\n"
		items << "</form>\n"
	else
		items << "<form>\n"
		items << "<input type=\"button\" value=\"チェック内容保存\" onclick=\"qa_SetCookie()\">\n"
		items << "&nbsp;\n"
		items << "<input type=\"button\" value=\"チェック内容クリア\" onclick=\"qa_ClearCookie()\">\n"
		items << "</form>\n"
	end
    
    # 出力
	items
end