function getCtrlValue(octrl)
{
  if (octrl.tagName == 'SELECT')
	{
		return octrl.options[octrl.selectedIndex].text;
	}
	else if (octrl.tagName == 'TEXTAREA')
	{
		return octrl.value;
	}
	else
	{
		switch (octrl.type)
		{
			case 'checkbox':
				 return octrl.checked ? 'yes' : 'no';
			case 'text':
				return octrl.value;
		}
	}
	return ' ';
}

function bold(ctxt)
{
	var lret = createElement('b'), otxt = txtNode(ctxt);;
	lret.appendChild(otxt);
	delete otxt;
	return lret;
}

function tbody_by_id(cid)
{
	var lret = getItemByID(cid), lch, i;

	if (!lret) return '';
	lch = lret.childNodes;
	for (i = 0; i < lch.length; i++)
	{
		if (lch[i].nodeName == 'TBODY')
		{
			return lch[i];
		}
	}
	return lret;
}

function set_table_rows(cid, orows)
{
	var otbl = tbody_by_id(cid), i;
	if (otbl)
	{
		for (i = 0; i < orows.length; i++)
		{
			otbl.appendChild(orows[i]);
			delete orows[i];
		}
	}
}

function iframe(cname, curl, nwidth, nheight)
{
	var lret = createElement('iframe');
	lret.frameBorder = 0;

	lret.name = lret.id = cname;

	if (curl) lret.src = curl;
	if (nwidth) lret.width = nwidth;
	if (nheight) lret.height = nheight;
	return lret;
}

function createElement(ctag)
{
	return document.createElement(ctag);
}

function div(cname, cclass)
{
	var lret = createElement('div');
	if (cname) lret.name = lret.id = cname;
	if (cclass) lret.className = cclass;

	return lret;
}

function imgTag(csrc,nborder,nw,nh)
{
	var lret = createElement('img');

	if (!isNaN(nborder)) lret.border = nborder;
	if (csrc) lret.src = csrc;
	if (nw) lret.width = nw;
	if (nh) lret.height = nh;

	return lret;
}

function trTag(obody, cid, ldelc)
{
	var lret = createElement('tr'), i;
	if (cid) lret.id = cid;

	if (obody)
	{
		for (i = 0; i < obody.length; i++)
		{
			if (obody[i])
			{
				lret.appendChild(obody[i]);
				if (ldelc) delete obody[i];
			}
		}
	}
	return lret;
}

function clearObj(oobj)
{
	var i, otmp;
	if (!oobj) return;
	if (!oobj.childNodes) return;

	for (i = oobj.childNodes.length - 1; i >= 0; i--)
	{
		if (oobj.childNodes[i])
		{
			otmp = oobj.removeChild(oobj.childNodes[i]);
			delete otmp;
		}
	}
}

function fillObj(oobj, obody, ldelc)
{
	var i;

	if (!oobj) return;
	clearObj(oobj);

	for (i in obody)
	{
		if (obody[i] && obody[i].nodeName)
		{
			oobj.appendChild(obody[i]);
			if (ldelc) delete obody[i];
		}
	}
}

function clearObjByID(cid)
{
	var oobj=getItemByID(cid);
	clearObj(oobj);
}

function fillObjByID(cid,obody,ldelc)
{
	var oobj = getItemByID(cid);
	fillObj(oobj, obody, ldelc);
}

function tdTag(cid,obody,cclass,cwidth,cal,cval,ncs,ldelc)
{
	var lret = createElement('td'), i;

	if (cid) lret.id = cid;
	if (cclass) lret.className = cclass;
	if (cwidth) lret.width = cwidth;
	if (cal) lret.align = cal;
	if (cval) lret.vAlign = cval;
	if (ncs) lret.colSpan = ncs;
	if (obody)
	{
		fillObj(lret, obody, ldelc);
	}
	return lret;
}

function tdTxtTag(cid,ctxt,cclass,cwidth,cal,cval,ncs)
{
	var otxt = txtNode(ctxt),lret;
	lret = tdTag(cid,[otxt],cclass,cwidth,cal,cval,ncs);
	delete otxt;
	return lret;
}

function txtNode(ctxt)
{
	return document.createTextNode(ctxt);
}

function cbTag(cname,cvalue,nchk,cclick)
{
	var lret = createElement('input');

	lret.type = 'checkbox';
	if (cname) lret.id = lret.name = cname;
	if (String(cvalue) != '') lret.value = cvalue;
	if (nchk)
	{
		lret.checked = true;
		if (IE) lret.defaultChecked = true;
	}
	if (cclick) lret.onclick = cclick;
	return lret;
}

function buttonTag(cname,cvalue,cclass,onclick,ctype)
{
	var lret = createElement('input');
	if (ctype) lret.type = ctype;
	else lret.type = 'button';

	if (cname) lret.id = lret.name = cname;
	if (cvalue) lret.value = cvalue;
	if (cclass) lret.className = cclass;
	if (onclick) lret.onclick = onclick;

	return lret;
}

function ancTag(ctxt,curl,cclass,ctitle)
{
	var ltxt = txtNode(ctxt), lret = createElement('a');
	if (curl) lret.href = curl;
	if (cclass) lret.className = cclass;
	if (ctitle) lret.title = ctitle;
	lret.appendChild(ltxt);
	delete ltxt;
	return lret;
}

function ancoTag(ocomment,curl,cclass,ctitle)
{
	var lret = createElement('a');
	if (curl) lret.href = curl;
	if (cclass) lret.className = cclass;
	if (ctitle) lret.title = ctitle;
	lret.appendChild(ocomment);
	return lret;
}

function tableTag(orows, cid, nb, nw, ncs, ncp, ldel, nh)
{
	var lret = createElement('table'),lbody=createElement('tbody'), i;

	if (orows)
	{
		for (i = 0; i < orows.length; i++)
		{
			if (orows[i])
			{
				lbody.appendChild(orows[i]);
				if (ldel) delete orows[i];
			}
		}
	}
	if (cid) lret.id = cid;
	if (nb) lret.border = nb;
	if (nw) lret.width = nw;
	if (!isNaN(nh) && String(nh) != '') lret.height = nh;
	if (!isNaN(ncs) && String(ncs) != '') lret.cellSpacing = parseInt(ncs);
	if (!isNaN(ncp) && String(ncp) != '') lret.cellPadding = parseInt(ncp);

	lret.appendChild(lbody);
	delete lbody;

	return lret;
}

function selectRows(oSel, aRows, cVal)
{
	var i;

	if (oSel && aRows)
	{
		oSel.length = aRows.length;
		for (i=0; i < aRows.length; i++)
		{
			oSel.options[i].value = aRows[i][0];
			oSel.options[i].text = aRows[i][1];
			if (aRows[i][2]) oSel.options[i].style.textIndent = 5*aRows[i][2]+'px';
			if (String(cVal) == String(aRows[i][0]))
			{
				oSel.options[i].selected = true;
			}
		}
	}
}

function selectRowsFromXml(oSel, oXml, cVal)
{
	var orow = oXml.firstChild;

	if (oSel && orow)
	{
		oSel.length = 0;
		while (orow)
		{
			oSel.options[oSel.length++] = new Option(orow.getAttribute('text'), orow.getAttribute('value'));
			orow = orow.nextSibling;
		}

		oSel.value = cVal;
	}
}

function selectTag(cid,cclass,cchg,arows,val)
{
	var lret = createElement('select'),i;
	if (cid) lret.id = lret.name = cid;
	if (cclass) lret.className = cclass;
	if (cchg) lret.onchange = cchg;

	selectRows(lret, arows, val);

	return lret;
}

function txtTag(cid,cval,cclass,nlen,nmaxlen)
{
	var lret = createElement('input');
	lret.type = 'text';
	if (cid) lret.id = lret.name = cid;
	if (String(cval)) lret.value = cval;
	if (cclass) lret.className = cclass;
	if (!isNaN(nlen)) lret.size = nlen;
	if (!isNaN(nmaxlen)) lret.maxLength = nmaxlen;

	return lret;
}

function tareaTag(cid,cval,cclass,nrows,ncols)
{
	var lret = createElement('textarea');
	if (cid) lret.id = lret.name = cid;
	if (cclass) lret.className = cclass;
	lret.rows = nrows;
	lret.cols = ncols;
	lret.value = cval;
	return lret;
}

function hiddenTag(cid,cval)
{
	var lret = createElement('input');
	lret.type = 'hidden';
	lret.id = lret.name = cid;
	lret.value = cval;
	return lret;
}