String.prototype.htmlEntities = function()
{
  var chars = new Array ("&","à","á","â","ã","ä","å","æ","ç","è","é",
                         "ê","ë","ì","í","î","ï","ð","ñ","ò","ó","ô",
                         "õ","ö","ø","ù","ú","û","ü","ý","þ","ÿ","À",
                         "Á","Â","Ã","Ä","Å","Æ","Ç","È","É","Ê","Ë",
                         "Ì","Í","Î","Ï","Ð","Ñ","Ò","Ó","Ô","Õ","Ö",
                         "Ø","Ù","Ú","Û","Ü","Ý","Þ","€","\"","ß","<",
                         ">","¢","£","¤","¥","¦","§","¨","©","ª","«",
                         "¬","­","®","¯","°","±","²","³","´","µ","¶",
                         "·","¸","¹","º","»","¼","½","¾");

  var entities = new Array ("amp","agrave","aacute","acirc","atilde","auml","aring",
                            "aelig","ccedil","egrave","eacute","ecirc","euml","igrave",
                            "iacute","icirc","iuml","eth","ntilde","ograve","oacute",
                            "ocirc","otilde","ouml","oslash","ugrave","uacute","ucirc",
                            "uuml","yacute","thorn","yuml","Agrave","Aacute","Acirc",
                            "Atilde","Auml","Aring","AElig","Ccedil","Egrave","Eacute",
                            "Ecirc","Euml","Igrave","Iacute","Icirc","Iuml","ETH","Ntilde",
                            "Ograve","Oacute","Ocirc","Otilde","Ouml","Oslash","Ugrave",
                            "Uacute","Ucirc","Uuml","Yacute","THORN","euro","quot","szlig",
                            "lt","gt","cent","pound","curren","yen","brvbar","sect","uml",
                            "copy","ordf","laquo","not","shy","reg","macr","deg","plusmn",
                            "sup2","sup3","acute","micro","para","middot","cedil","sup1",
                            "ordm","raquo","frac14","frac12","frac34");

  newString = this;
  for (var i = 0; i < chars.length; i++)
  {
    myRegExp = new RegExp();
    myRegExp.compile(chars[i],"g")
    newString = newString.replace (myRegExp, "&" + entities[i] + ";");
  }
  return newString;
}
function move(oList1, oList2, bAdd)
{
	if (bAdd == 1) {
		oSource = oList1.options;
		oTarget = oList2.options;
	} else {
		oSource = oList2.options;
		oTarget = oList1.options;
	}

	for (iIndex=oSource.length-1; iIndex>=0; iIndex--)
	{
		if (oSource.item(iIndex).selected)
		{
			var oOption = document.createElement("OPTION");
			oOption.text = oSource[iIndex].text;
			oOption.value = oSource[iIndex].value;

			oTarget.add(oOption);
			oSource[iIndex] = null;
		}
	}
}
function updown(oLst, iIdx, dir)
{
	var iMod = (dir ? 1 : -1);

	if (dir)
	{
		if (iIdx==-1 || (iIdx > ((oLst.options.length)-2)) )
		{
			return;
		}
	}
	else
	{
		if (iIdx <= 0)
		{
			return;
		}
	}

	var oOpt1 = oLst.options[iIdx];
	var oOpt2 = oLst.options[iIdx + iMod];
	var sText1 =  oOpt1.text;
	var sText2 =  oOpt2.text;
	var sVal1 = oOpt1.value;
	var sVal2 = oOpt2.value;

	oLst.options[iIdx].value = sVal2;
	oLst.options[iIdx].text = sText2;
	oLst.options[iIdx + iMod].value = sVal1;
	oLst.options[iIdx + iMod].text = sText1;
	oLst.selectedIndex = oLst.selectedIndex + iMod;
}
function SelectAll(oLst)
{
	for (var i=0; i<oLst.options.length; i++)
	{
		oLst.options[i].selected = true;
	}
}
function matchSpecialAction(e) {
	if (!e) e = window.event;

	if (e.keyCode == 8 || e.keyCode == 9 || e.keyCode == 37 || e.keyCode == 39) {
		return true;
	}
	return false;
}
function matchKey(e,expr) {
	if (!e) e = window.event;

	if ( matchSpecialAction(e) ) {
		return true;
	}

	var letter = String.fromCharCode(e.charCode ? e.charCode : e.keyCode);
	return (letter.match(expr) != null);
}
function matchNumber(elm, real, e) {
	if ( matchSpecialAction(e) ) {
		return true;
	}
	if (real && matchKey(e, /[\.]/)) {
		return (elm.value.match( /[\.]/ ) == null)
	}
	return matchKey(e, /[\d]/);
}