function onlyNumbers(mibe) {
  x=mibe.value
  ki=""
  for(i=0;i<x.length;i++) {
    if (x.substr(i,1)>='0' && x.substr(i,1)<='9') {
      ki+=x.substr(i,1)
    }
  }
  mibe.value=ki
}
function clearPreloadPage() { //DOM
	if (document.getElementById){
		document.getElementById('ContentPreLoad').style.visibility='hidden';
	} else {
		if (document.layers){ //NS4
			document.ContentPreLoad.visibility = 'hidden';
		}
		else { //IE4
			document.all.ContentPreLoad.style.visibility = 'hidden';
		}
	}
}
function ViewPanel(mit) {
	if (document.getElementById) {
		document.getElementById(mit).style.visibility='visible';
	} else {
		if (document.layers) { //NS4
			document.prepage.visibility = 'visible';
		} else { //IE4
			document.all.prepage.style.visibility = 'visible';
		}
	}
}
function refocus_msg() {
	document.kbmsg.msg.focus();
}
function savecaret_msg(obj) {
	if (!document.all) return;
	if (obj.isTextEdit) 
	obj.caretPos = document.selection.createRange();
}
function instext_msg(obj, txt, backtab) {
	if (isie) {
		if (!obj.isTextEdit) return;
		if ( obj.caretPos ) {
			obj.caretPos.text = txt;
			obj.caretPos.move('character',-backtab);
			obj.caretPos.select();
		} else {
			obj.value = obj.value + txt;
			var Sel = document.selection.createRange ();
			Sel.move('character', -backtab);
			Sel.select();
		}
	} else {
		otext = obj.value; ss = obj.selectionStart;
		obj.value = otext.substring(0,ss) + txt + otext.substring(ss,obj.value.length);
		obj.selectionStart = ss + txt.length - backtab;
		obj.selectionEnd = obj.selectionStart;
	}
}
function savecaret_msg_() {
	savecaret_msg(document.kbmsg.msg);
}
function insertcode2_msg(code, backtab) {
	if (isopera)
		with (document.kbmsg.msg) 
		value += code;
	else
		instext_msg(document.kbmsg.msg,code,backtab);
	return true;
}
function insertcode_msg(code) {
	insertcode2_msg(code,0);
}
function replaceSubstring_msg(text,expression,value){
	var exp = new RegExp(expression,'g');
	return text.replace(exp,value);
}
function myquery_msg(promptcaption, defvalue) {
	return window.prompt(promptcaption,defvalue);
}
function insertcodequery_msg(code, promptcaption, defvalue) {
	x = window.prompt(promptcaption,defvalue);
	if(!x) return false;
	if (x!="undefined") {
		code = replaceSubstring_msg(code,'%input%',x);
		return insertcode_msg(code);
	}
}
{
	var isie = (document.all);
	var isopera = (navigator.userAgent.indexOf('Opera')!=-1);
	obj = document.kbmsg.msg;
	obj.onselect = savecaret_msg_;
	obj.onclick  = savecaret_msg_;
	obj.onkeyup  = savecaret_msg_;
}