/*--------------------------------------------

encoded in shift_jis.
Takashi HIRANO (http://purl.oclc.org/net/quia/)
last-modified: 19 Feb, 2003.

blockquote要素からcite&&title属性を抽出し、
自動的にリンクを生成するスクリプトです。
抽出された属性は
<p class="citation-origin"><cite><a href="(cite)">(title)</a></cite></p>
という文字列に加工されて
当該blockquoteの最後に追加されます。

DOMを使用していますので
当然ながらDOM非対応環境では動きません。

《使いかた》
body要素の末尾にこのスクリプトを
埋め込むだけ。こんな感じ：
<script type="text/javascript" src="../script/cite.js"></script>

--------------------------------------------*/

if(document.getElementsByTagName){
	view_citation_origin();
}

function view_citation_origin(){

	var
		bq = document.getElementsByTagName('blockquote'),
		cite_prg = new Array(bq.length),
		cite_cit = new Array(bq.length),
		cite_anc = new Array(bq.length),
		cite_txt = new Array(bq.length);

	for(var i=0; i<bq.length; i++){

		cite_prg[i] = document.createElement('p');
		cite_cit[i] = document.createElement('cite');
		cite_anc[i] = document.createElement('a');
		cite_txt[i] = document.createTextNode('');
		cite_prg[i].className = 'citation-origin';

		if(bq[i].cite && bq[i].title){ //cite,title属性が両方ともある場合
			cite_txt[i].data = bq[i].title;
			cite_anc[i].href = bq[i].cite;
			cite_anc[i].appendChild(cite_txt[i]);
			cite_cit[i].appendChild(cite_anc[i]);
			cite_prg[i].appendChild(cite_cit[i]);
			bq[i].appendChild(cite_prg[i]);
		}

		else if(bq[i].title){ //title属性だけの場合
			cite_txt[i].data = bq[i].title;
			cite_cit[i].appendChild(cite_txt[i]);
			cite_prg[i].appendChild(cite_cit[i]);
			bq[i].appendChild(cite_prg[i]);
		}
		
		else if(bq[i].cite){ //cite属性だけの場合
			cite_txt[i].data = bq[i].cite;
			cite_anc[i].href = bq[i].cite;
			cite_anc[i].appendChild(cite_txt[i]);
			cite_cit[i].appendChild(cite_anc[i]);
			cite_prg[i].appendChild(cite_cit[i]);
			bq[i].appendChild(cite_prg[i]);
		}
	}


}