function selectAll(cltmpList)
{
	for (i=0; i<cltmpList.options.length; i++)
	{
		cltmpList.options[i].selected = true;
	}
}
function deselectAll(cltmpList)
{
	for (i=0; i<cltmpList.options.length; i++)
	{
		cltmpList.options[i].selected = false;
	}
}
function removeSelectedFromField(cltmpList, j)
{
	cltmpList.options[j] = null;
}
function addSelectedToField(cltmpList, value, desc)
{
	var i, j, len;
		
	for (i=0; i<cltmpList.options.length; i++)
	{
		if (cltmpList.options[i].value == value)
		{
			break;
		}
		else
		{
			if (cltmpList.options[i].value > value)
			{
				len = cltmpList.options.length;
				for (j=len-1; j>=i; j--)
				{
					cltmpList.options[j+1] = new Option(cltmpList.options[j].text, cltmpList.options[j].value);
				}
				cltmpList.options[i] = new Option(desc, value);
				break;
			}
			
		}
	}
	
	if (i == cltmpList.options.length)
	{
		cltmpList.options[i] = new Option(desc, value);
	}
}
// Move selected to new field
function moveSelectedToField(cldoc,listNameFrom,listNameTo,listNameNew)
{
	var i;
	cltmpListF=cldoc.elements[listNameFrom];
	cltmpListT=cldoc.elements[listNameTo];
		
	deselectAll(cltmpListT);
	
	if (listNameNew == '')
	{
		newValue = '';
	}
	else
	{
		cltmpListN=cldoc.elements[listNameNew];
		newValue = cltmpListN.value;
	}
	if (newValue == "")
	{
		for (i=cltmpListF.options.length-1; i>=0; i--)
			{
				if (cltmpListF.options[i].selected)
				{   
					addSelectedToField(cltmpListT,cltmpListF.options[i].value,cltmpListF.options[i].text);
				}
			}
		for (i=cltmpListF.options.length-1; i>=0; i--)
			{
				if (cltmpListF.options[i].selected)
				{
					removeSelectedFromField(cltmpListF, i); 
				}
			}
	} 
	else
	{
		addSelectedToField(cltmpListT, "#" + cltmpListN.value, cltmpListN.value);
		cltmpListN.value = "";
	}
}	
//Move values from temp into Field
function dumpToField(select_object)
{
  dumpedString = '';
  for (i=0; i<select_object.options.length; i++)
  {
	dumpedString = dumpedString + ';' + select_object[i].value;	
  }
  return dumpedString.substring(1,dumpedString.length);
}
//Check if field is into Form
function isFieldIntoForm (cldoc, fldName) {
	tmpReturn = false;
		
	for (i = 0; i < cldoc.elements.length; i++) {
		tmpName = cldoc.elements[i].name;
				
		if (tmpName == fldName) {
			tmpReturn = true;
			break;
		} 
	}
	
	return tmpReturn;
}
//##############VALIDATION###############
function isCorrectYear(vstup) {
	vystup = true;
	if (vstup != "") {
		if (isNaN(vstup)) {
			vystup = false;
		} 
		else {
			if ((vstup <= 1900) || (vstup >= 3000)) {
				vystup = false;
			}
		}
	}
	return vystup;
}
function onlyNumber() {
	with (event)
		if (keyCode<48 || keyCode>57) returnValue = false;
}