/* Cpmpany */
var comp_msg;

loadCOMPFiles(lang_flag)

function loadCOMPFiles(lang_flag)
{
	if(!debug) { var tag_file = 'xml/COMP-' + lang_flag + '-n.xml'; }
	else { var tag_file = 'xml/COMP-' + lang_flag + '-n.xml'; }
	var msgDoc = getXMLData(tag_file);
	comp_msg = msgDoc.getElementsByTagName("context");
}
// Wording
function COMPTransByVar(e_name){
	for(i=0; i<comp_msg.length; i++){
		var temp_msg = comp_msg[i];var tag_var;
		if (window.ActiveXObject)	tag_var = temp_msg.getElementsByTagName("var")[0].text;
		else tag_var = temp_msg.getElementsByTagName("var")[0].firstChild.nodeValue;
		if (tag_var == e_name){
			if (window.ActiveXObject) return temp_msg.getElementsByTagName("word")[0].text;
			else return temp_msg.getElementsByTagName("word")[0].firstChild.nodeValue;			
		}
	}
	alert('Error: no String for Company of: ' + e_name);
}
function COMPTrans(e_name){
	dw(COMPTransByVar(e_name));	
}
function COMPTransStr(e_name){
	return COMPTransByVar(e_name);
}
// Link
function COMPLinkByVar(e_name){
	for(i=0; i<comp_msg.length; i++){
		var temp_msg = comp_msg[i];var tag_var;
		if (window.ActiveXObject)	tag_var = temp_msg.getElementsByTagName("var")[0].text;
		else tag_var = temp_msg.getElementsByTagName("var")[0].firstChild.nodeValue;
		if (tag_var == e_name){
			if (window.ActiveXObject) return temp_msg.getElementsByTagName("href")[0].text;
			else return temp_msg.getElementsByTagName("href")[0].firstChild.nodeValue;			
		}
	}
	alert('Error: no link for variable of: ' + e_name);
}
function COMPLink(e_name){
	dw(COMPLinkByVar(e_name));	
}
function COMPLinkStr(e_name){
	return COMPLinkByVar(e_name);
}
function gotoCOMPLink(e_name,target,ancher){
	var gotofile;
	var file_name = COMPLinkStr(e_name);
	var anch_name = COMPLinkStr(e_name) + '#' + ancher;
	if ((gotoCOMPLink.arguments.length == 1) || (ancher == null))
	{ gotofile=file_name; }
	else
	{ gotofile=anch_name; }
	window.open(gotofile, target);
}
// Image
function COMPpicByVar(e_name){
	for(i=0; i<comp_msg.length; i++){
		var temp_msg = comp_msg[i];var tag_var;
		if (window.ActiveXObject)	tag_var = temp_msg.getElementsByTagName("var")[0].text;
		else tag_var = temp_msg.getElementsByTagName("var")[0].firstChild.nodeValue;
		if (tag_var == e_name){
			if (window.ActiveXObject) return temp_msg.getElementsByTagName("image")[0].text;
			else return temp_msg.getElementsByTagName("image")[0].firstChild.nodeValue;			
		}
	}
	alert('Error: no Picture for Company of: ' + e_name);
}
function COMPpic(e_name){
	dw(COMPpicByVar(e_name));	
}
function COMPpicStr(e_name){
	return COMPpicByVar(e_name);
}
function buildCOMPimg(e_name)
{ dw(pic_COMPhead + COMPpicStr(e_name) + pic_tail ); }