var years = '2002:2003:2004:2005:2006:2007:2008:2009:2010';
var selparam = '';
var alertct = 0;
var seldata = new Array();
var changed_data_warning = 'THERE ARE UNSAVED CHANGES';

function dumpprops(obj, parent, recursion) {
	if (recursion <= 0)
		return('');
	var msg = '';

	if (parent)
		msg = 'Properties of ' + parent + '<p>\n';
	else
		msg = 'Properties<p>\n';
	for (var i in obj) {
		if (parent) { 
			msg += '<b>' + parent + '.' + i + '</b> (' + recursion + ')<br>\n' + obj[i] + '<p>\n'; 
		} else { 
			msg += '<b>' + i + '</b> (' + recursion + ')<br>\n' + obj[i] + '<p>\n'; 
		}
		if (typeof obj[i] == 'object') {
			if (parent) {
				msg += dumpprops(obj[i], parent + '.' + i, recursion - 1); 
			} else {
				msg += dumpprops(obj[i], i, recursion - 1); 
			}
		}
	}

	return(msg);
}

function listformfields(form, field) {
	answer = '';
	eval ('myelements = document.' + form + '.elements');
	for (var i = 0; i<myelements.length; i++) {
		if (myelements[i].name == 'answer') {
			answer += 'skipped textarea field: \'answer\'\n';
			continue;
		}
		answer += myelements[i].type;
		if (myelements[i].type == 'text' || myelements[i].type == 'textarea' || myelements[i].type == 'button' || myelements[i].type == 'submit' || 
			myelements[i].type == 'reset' || myelements[i].type == 'password' || myelements[i].type == 'hidden' || myelements[i].type == 'file') {
			answer += ': \'' + myelements[i].name + '\' value: \'' + myelements[i].value + '\'\n';
		}
		if (myelements[i].type == 'select-one' || myelements[i].type == 'select-multiple') {
			answer += ': \'' + myelements[i].name + '\'\n';
			for (var j = 0; j < myelements[i].length; j++) {
				answer += '   option: \'' + myelements[i].options[j].value + '\'';
				if (myelements[i].options[j].selected) {
					answer += ' selected';
				}
				answer += '\n';
			}
		}
		if (myelements[i].type == 'radio') {
			answer += ': \'' + myelements[i].name + '\' option: \'' + myelements[i].value + '\'';
			if (myelements[i].checked) {
				answer += ' checked';
			}
			answer += '\n';
		}
		if (myelements[i].type == 'checkbox') {
			answer += ': \'' + myelements[i].name + '\' option: \'' + myelements[i].value + '\'';
			if (myelements[i].checked) {
				answer += ' checked';
			}
			answer += '\n';
		}
	}
	eval ('document.' + form + '.' + field + '.value = answer');
}

function OpenWindow(script, param, target) {
	if (target == 'edit') {
		height = 700;
		width = 1200;
	} else if (target == 'help') {
		height = 800;
		width = 700;
	} else if (target == 'stats') {
		height = 300;
		width = 700;
	}

	window.open(script + param, target, 'scrollbars=yes, resizable=yes, menubar=0, status=yes, left=200, top=100, width=' + width + ', height=' + height);
	return false;
}

function Confirm_delete(multiple, type) {
	if (multiple)
		return(confirm('Are you sure that you want to delete the selected ' + type + ' ?'));
	else
		return(confirm('Are you sure that you want to delete this ' + type + ' ?'));
}

if(document.all && !document.getElementById) {
	document.getElementById = function(id) {
		return document.all[id];
	}
}

function jsnote(text) {
	eval ("mydiv = document.getElementById('changeddata')");
	if (!mydiv)
		return;
	mydiv.innerHTML = '<p align=center><font color=red><b>' + text + '</b></font></p>';
}

function updateaccess(reqperm, userperm, owner, user, share) {
	if (!reqperm.match(/update/) || !userperm)
		return(0);

	if (userperm == 'U' && user == owner)
		userperm = 'O';

	var permlevel = strpos('EGUOADX', userperm);
	reqperm.replace(/^.*update:(\w).*/, "$1");
	var reqpermlevel = strpos('EGUOADX', reqperm);

	if (permlevel >= reqpermlevel)
		return(1);
	else
		return(0);
}

function strpos(str, ch) {
	for (var i = 0; i < str.length; i++)
		if (str.substring(i, i+1) == ch) 
			return i;
	return -1;
}

function fill_string(form, source, dest, type, template, options, editp, cssclass, onchange) {
// alert('fill_string : type ' + type + ' template ' + template + ' options ' + options + ' dest ' + dest);
	loptions = options.replace(/\|/g, "','");
	eval("var options_arr = new Array('" + loptions + "')");
	var lvalue = '';
	var v = 0;
	if (type == 'checkbox') {
// alert('fill_string ' + source + ' ' + options + ' ' + editp);
		for (c=flag=0; c < options_arr.length; c++) {
			var opt_arr = options_arr[c].split('=');
			eval ('var cellname = document.' + form + '.' + source + '_' + opt_arr[0]);
			if (!cellname) {
				alert('Failed to update checkbox field ' + source + '.\nPlease save data or reload the page !');
				return (-1);
			}
			if (cellname.checked) {
				if (lvalue)
					lvalue = lvalue + '|';
				lvalue = lvalue + cellname.value;
			}
		}
	} else if (type == 'multiple_select') {
		for (v = 0; ; v++) {
			eval ('var cellname = document.' + form + '.' + source + '_' + v);
			if (!cellname)
				break;
// alert('fill_string ' + source + ' ' + cellname.value);
			if (lvalue)
				lvalue = lvalue + '|';
			lvalue = lvalue + cellname.value;
		}
	} else if (type == 'actions') {
		var lvalue;
		var plevels = new Array('', 'G', 'U', 'O', 'A', 'D');
		for (v = 0; v < 30; v++) {
			eval ('var action = document.' + form + '.' + source + '_action_' + v);
			eval ('var plevel = document.' + form + '.' + source + '_plevel_' + v);
			if (!action || !action.value)
				continue;
			if (!plevel || plevel[0].checked)
				continue;
// alert('fill_string ' + source + ' ' + action.value + ' ' + plevel.value);
			value = '';
			for (l = 0; l < plevels.length; l++)
				if (plevel[l].checked)
					value = plevels[l];

			if (lvalue)
				lvalue = lvalue + '|';
			lvalue = lvalue + action.value + ':' + value;
// alert('fill_string ' + lvalue);
		}
	} else if (type == 'list') {
		for (v = 0; ; v++) {
			eval ('var cellname = document.' + form + '.' + source + '_' + v);
			if (!cellname)
				break;
// alert('fill_string ' + source + ' ' + cellname.value);
			if (lvalue)
				lvalue = lvalue + '|';
			lvalue = lvalue + cellname.value;
		}
	} else if (type == 'options') {
		for (v = 0; ; v++) {
			eval ('var cellopt = document.' + form + '.' + source + '_opt_' + v);
			eval ('var celldesc = document.' + form + '.' + source + '_desc_' + v);
			if (!cellopt)
				break;
			if (v && !cellopt.value && !celldesc.value)
				continue;
// alert("'" + cellopt.value + "'");
// alert('fill_string ' + source + ' ' + cellopt.value);
			if (lvalue)
				lvalue = lvalue + '|';
			lvalue = lvalue + cellopt.value + '=' + celldesc.value;
		}
// alert(lvalue);
	} else if (type == 'permissions') {
// alert('fill_string ' + source + ' ' + options + ' ' + editp);
		var value;
		var lvalue;
		for (v = 0; v < 30; v++) {
			eval ('var user = document.' + form + '.' + source + '_user_' + v);
			eval ('var perm = document.' + form + '.' + source + '_perm_' + v);
			if (!user || !user.value)
				continue;
			if (!perm || !perm[0] || !perm[1] || !perm[2] || perm[0].checked)
				continue;
			if (perm[1].checked)
				value = 'view';
			if (perm[2].checked)
				value = 'update';
// alert("'" + user.value + "' '" + perm[2].checked + "' '" + value + "'");
// alert(dumpprops(perm, 'perm', 1));
// alert('fill_string ' + source + ' ' + user.value);
			if (lvalue)
				lvalue = lvalue + '|';
			lvalue = lvalue + user.value + ':' + value;
		}
// alert(lvalue);
	} else if (type == 'radio') {
// alert('fill_string ' + source + ' ' + options + ' ' + editp);
		for (c=flag=0; c < options_arr.length; c++) {
			var opt_arr = options_arr[c].split('=');
			eval ('var cellname = document.' + form + '.' + source + '[' + c + ']');
			if (!cellname) {
				eval ('var cellname = document.' + form + '.' + source);
// alert(cellname);
				if (!cellname) {
					alert('Failed to update radio field ' + source + '.\nPlease save data or reload the page !');
					return (-1);
				} else
					lvalue = cellname.value;
			} else if (cellname.checked) {
				lvalue = cellname.value;
			}
// alert(source + '[' + c + ']' + ' ' + cellname.checked + ' ' + cellname.value);
		}
	} else if (type == 'date') {
		eval ('var yearcell = document.' + form + '.' + source + '_year');
		eval ('var monthcell = document.' + form + '.' + source + '_month');
		eval ('var daycell = document.' + form + '.' + source + '_day');
		if (yearcell.value || monthcell.value || daycell.value)
			lvalue = yearcell.value + '/' + monthcell.value + '/' + daycell.value;
		else
			lvalue = '';
	} else if (type == 'component') {
		eval ('var cellname = document.' + form + '.' + source + '_name');
		eval ('var cellconc = document.' + form + '.' + source + '_conc');
		eval ('var cellph = document.' + form + '.' + source + '_ph');

		if (cellname.value == 'random') {
			lvalue = 'random:::';
		} else if (cellname.value || cellconc.value || cellph.value) {
			if (stock_UNIT[cellname.value] == 'M')
				var conc = fmtF(cellconc.value, 6);
			else if (stock_UNIT[cellname.value].match(/%/))
				var conc = fmtF(cellconc.value, 3);
			else if (stock_UNIT[cellname.value] == 'mg/ml')
				var conc = fmtF(cellconc.value, 3);
			if (cellph.value)
				var ph = fmtF(cellph.value, 2);
			else 
				ph = '';
			lvalue = cellname.value + ':' + conc + ':' + stock_UNIT[cellname.value] + ':' + ph;
		} else
			lvalue = '';
// alert(lvalue);
	} else if (type == 'componentvol') {
		eval ('var cellname = document.' + form + '.' + source + '_name');
		eval ('var cellvol = document.' + form + '.' + source + '_vol');
		eval ('var cellph = document.' + form + '.' + source + '_ph');
		if (cellname.value == 'random') {
			lvalue = 'random:::';
		} else if (cellname.value || cellvol.value || cellph.value) {
			var vol = fmtF(cellvol.value, 2);
			if (cellph.value)
				var ph = fmtF(cellph.value, 2);
			else 
				ph = '';
			lvalue = cellname.value + ':' + vol + ':' + stock_UNIT[cellname.value] + ':' + ph;
		} else
			lvalue = '';
// alert(cellvol.value + ' 2 ' + lvalue);
	} else if (type == 'volume') {
		eval ('var vol = document.' + form + '.' + source);
		if (vol.value)
			lvalue = fmtF(vol.value, 2);
		else
			lvalue = '';
// alert(vol.value + ' 2 ' + lvalue);
	} else {
		eval ('var cellname = document.' + form + '.' + source);
		if (!cellname) {
			alert('Failed to update text field ' + source + '.\nPlease save data or reload the page !');
			return (-1);
		}
		lvalue = cellname.value;
// alert(lvalue);
	}

	reset_string(form, dest, lvalue, type, template, options, editp, cssclass, onchange);

	return(0);
}

function fill_form(form, fld, type, template, options, editp, cssclass, onchange) {
//alert('fill_form : options ' + options);
// alert('fill_form ' + form + ', ' + fld + ', type ' + type + ', template ' + template + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange);
	restore_cell();

	eval ("mydiv = document.getElementById('div_" + fld + "')");

	if (!mydiv) {
		if (++alertct < 5)
			alert('failed to access field ' + fld);
		return;
	}

	if (type != 'checkbox' && type != 'date' && type != 'multiple_select' && type != 'actions' && type != 'list' && type != 'options' && type != 'permissions' && type != 'component' && type != 'componentvol') {
		eval ('cellname = document.' + form + '.' + fld);
		if (!cellname) {
			alert('fill_form: Failed to update field ' + fld + '.\nPlease save data or reload the page !');
			return;
		}
		if (type != 'textspec' && type != 'html' && type != 'email' && type != 'template')
			cellname.value = cellname.value.replace(/"/g, "&quot;");
	}

	loptions = options.replace(/\|/g, "','");
	eval("var options_arr = new Array('" + loptions + "')");

	var output = '';
	var v = 0;

	if (type == 'text' || type == 'html' || type == 'email' || type == 'template')
		output = '<input name="' + fld + '" value="' + cellname.value + '" size=30 style="width:250;" class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text"> ';
	else if (type == 'float' || type == 'int' || type == 'bigint' || type == 'tinyint')
		output = '<input name="' + fld + '" value="' + cellname.value + '" style="width:80;" class="' + cssclass + '" onChange="if (!validate(\'' + form + '\', \'\', \'' + fld + '\', \'' + type + '\', \'\', \'\', \'' + fld + '\', \'\')) return false; jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text"> ';
	else if (type == 'password')
		output = '<input name="' + fld + '" value="' + cellname.value + '" style="width:150;" class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="password"> ';
	else if (type == 'textarea' || type == 'textspec')
		output = '<textarea name="' + fld + '" cols=60 rows=10 onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" class="' + cssclass + '">' + cellname.value + '</textarea>';
	else if (type == 'select') {
// alert('fill_form ' + form + ', ' + fld + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange);
		output = '<select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '">';
		for (c=0; c < options_arr.length; c++) {
			opt_arr = options_arr[c].split('=');
			if (!opt_arr[1])
				opt_arr[1] = opt_arr[0];
			if (cellname.value == opt_arr[0])
				selected = 'selected';
			else
				selected = '';
			output += '<option ' + selected + ' value="' + opt_arr[0] + '">' + opt_arr[1] + '</option>\n';
		}
		output += '</select>';
	} else if (type == 'component') {
// alert('fill_form ' + form + ', ' + fld + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange);

		eval ('var cellname = document.' + form + '.' + fld + '_name');
		eval ('var cellconc = document.' + form + '.' + fld + '_conc');
		eval ('var cellph = document.' + form + '.' + fld + '_ph');

		output = '<input name="' + fld + '_conc" value="' + cellconc.value + '" size=30 style="width:40;" class="' + cssclass + '" onChange="if (!validate(\'thisform\', \'\', \'' + fld + '_conc\', \'float\', \'\', \'max=100\', \'concentration\', \'\')) return false; jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text">';
		if (stock_UNIT[cellname.value])
			output += ' <div id="div_' + fld + '_unit">' + stock_UNIT[cellname.value] + '</div>';
		else
			output += ' <div id="div_' + fld + '_unit"></div>';

		output += ' <select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_name">';
		for (c=0; c < options_arr.length; c++) {
			if (cellname.value == options_arr[c])
				selected = 'selected';
			else
				selected = '';
			output += '<option ' + selected + ' value="' + options_arr[c] + '">' + options_arr[c] + '</option>\n';
		}
		output += '</select>';

// alert(output);

		output += '<div id="div_' + fld + '_ph">' + ' pH <input name="' + fld + '_ph" value="' + cellph.value + '" size=30 style="width:40;" class="' + cssclass + '" onChange="if (!validate(\'thisform\', \'\', \'' + fld + '_ph\', \'float\', \'\', \'min=0|max=14\', \'pH\', \'\')) return false; jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text">' + '</div>';

	} else if (type == 'componentvol') {
// alert('fill_form ' + form + ', ' + fld + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange);

		eval ('var cellname = document.' + form + '.' + fld + '_name');
		eval ('var cellvol = document.' + form + '.' + fld + '_vol');
		eval ('var cellph = document.' + form + '.' + fld + '_ph');

		output = '<input name="' + fld + '_vol" value="' + cellvol.value + '" size=30 style="width:40;" class="' + cssclass + '" onChange="if (!validate(\'thisform\', \'\', \'' + fld + '_vol\', \'float\', \'\', \'max=100000\', \'volume\', \'\')) return false; jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text"> &#181;l';
		if (stock_CONC[cellname.value] && stock_UNIT[cellname.value])
			output += ' <div id="div_' + fld + '_stockconc">' + compose_value(stock_CONC[cellname.value], stock_UNIT[cellname.value]) + '</div>';
		else
			output += ' <div id="div_' + fld + '_stockconc"></div>';
// alert(output);
		output += ' <select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_name">';
		for (c=0; c < options_arr.length; c++) {
			if (cellname.value == options_arr[c])
				selected = 'selected';
			else
				selected = '';
			output += '<option ' + selected + ' value="' + options_arr[c] + '">' + options_arr[c] + '</option>\n';
		}
		output += '</select>';

// alert(output);

		output += '<div id="div_' + fld + '_ph">' + ' pH <input name="' + fld + '_ph" value="' + cellph.value + '" size=30 style="width:40;" class="' + cssclass + '" onChange="if (!validate(\'thisform\', \'\', \'' + fld + '_ph\', \'float\', \'\', \'min=0|max=14\', \'pH\', \'\')) return false; jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text">' + '</div>';

	} else if (type == 'volume') {
// alert('fill_form ' + form + ', ' + fld + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange);

		eval ('var vol = document.' + form + '.' + fld);

		output = '<input name="' + fld + '" value="' + vol.value + '" size=30 style="width:40;" class="' + cssclass + '" onChange="if (!validate(\'thisform\', \'\', \'' + fld + '\', \'float\', \'\', \'max=100000\', \'volume\', \'\')) return false; jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text"> &#181;l';

// alert(output);

	} else if (type == 'multiple_select') {
		for (v = 0; ; v++) {
			eval ('var cellname = document.' + form + '.' + fld + '_' + v);
			if (!cellname)
				break;
			output += '<select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_' + v + '">';
// alert(fld + ' ' + cellname.value);
			for (c=0; c < options_arr.length; c++) {
				opt_arr = options_arr[c].split('=');
				if (!opt_arr[1])
					opt_arr[1] = opt_arr[0];
				if (cellname.value == opt_arr[0])
					selected = 'selected';
				else
					selected = '';
				output += '<option ' + selected + ' value="' + opt_arr[0] + '">' + opt_arr[1] + '</option>\n';
			}
			output += '</select>';
		}
	} else if (type == 'actions') {
		var plevels = new Array('', 'G', 'U', 'O', 'A', 'D');
		var levdesc = new Array('nobody', 'guest', 'user', 'owner', 'admin', 'developer');
		for (v = 0; ; v++) {
			eval ('var action = document.' + form + '.' + fld + '_action_' + v);
			eval ('var plevel = document.' + form + '.' + fld + '_plevel_' + v);
			if (!action)
				break;
			output += '<select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_action_' + v + '">';
			for (c=0; c < options_arr.length; c++) {
				opt_arr = options_arr[c].split('=');
				if (!opt_arr[1])
					opt_arr[1] = opt_arr[0];
				if (action.value == opt_arr[0])
					selected = 'selected';
				else
					selected = '';
				output += '<option ' + selected + ' value="' + opt_arr[0] + '">' + opt_arr[1] + '</option>\n';
			}
			output += '</select>';

			lvalue = '';
			if (!plevel.value)
				plevel.value = '';
// alert(fld + ' ' + action.value + ' ' + plevel.value);
			for (l=0; l < plevels.length; l++) {
				if (plevel.value == plevels[l]) checked = 'checked'; else checked = '';
				lvalue += levdesc[l] + '<input type="radio" ' + checked + ' value="' + plevels[l] + '" onClick="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_plevel_' + v + '">\n';
			}

			output += lvalue + '<br>';

			if (!action.value)
				break;
		}
	} else if (type == 'list') {
		for (v = 0; ; v++) {
			eval ('var cellname = document.' + form + '.' + fld + '_' + v);
			if (!cellname)
				break;
			output += '<input name="' + fld + '_' + v + '" value="' + cellname.value + '" size=30 style="width:200;" class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" type="text"> ';
// alert(fld + ' ' + cellname.value);
		}
// alert(output);
	} else if (type == 'options') {
		var nopt = 0;
		for (v = 0; ; v++) {
			eval ('var cellopt = document.' + form + '.' + fld + '_opt_' + v);
			eval ('var celldesc = document.' + form + '.' + fld + '_desc_' + v);
			if (!cellopt)
				break;
			if (!cellopt.value && v && nopt)
				break;
			output += '<input class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" size=5 name="' + fld + '_opt_' + v + '" value="' + cellopt.value + '"> ';
			output += '<input class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" size=20 name="' + fld + '_desc_' + v + '" value="' + celldesc.value + '">';
			output += '<br>';
			if (cellopt.value)
				nopt = 0;
			else
				nopt++;
// alert(fld + ' ' + cellname.value);
		}

		output += '<input class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" size=5 name="' + fld + '_opt_' + v + '" value=""> ';
		output += '<input class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" size=20 name="' + fld + '_desc_' + v + '" value="">';
		output += '<br>';
	} else if (type == 'permissions') {
		var lvalue;
		var newoptions_arr = new Array();
		for (c=ct=0; c < options_arr.length; c++) {
			newoptions_arr[ct++] = options_arr[c];
			if (options_arr[c] == '=') {
				newoptions_arr[ct++] = 'all=';
				newoptions_arr[ct++] = 'group=';
			}
		}
		options_arr = newoptions_arr;

		output += '<table border=1>';
		for (var v = 0; v < 30; v++) {
			lvalue = '';
			eval ('var user = document.' + form + '.' + fld + '_user_' + v);
			eval ('var perm = document.' + form + '.' + fld + '_perm_' + v);
			if (!user || !perm)
				continue;
// alert(fld + ' ' + user.value + ' ' + perm.value);

			lvalue += "<tr valign=bottom><td>\n";

// alert(user_opt[0] + ' ' + user.value + ' ' + perm.value);
			lvalue += '<select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_user_' + v + '">';
			for (c=0; c < options_arr.length; c++) {
				opt_arr = options_arr[c].split('=');
				if (!opt_arr[1])
					opt_arr[1] = opt_arr[0];
				if (user.value == opt_arr[0])
					selected = 'selected';
				else
					selected = '';
				lvalue += '<option ' + selected + ' value="' + opt_arr[0] + '">' + opt_arr[1] + '</option>\n';
			}
			lvalue += '</select>';
			lvalue += "</td>\n";

			if (!user.value || !perm.value) checked = 'checked'; else checked = '';
			lvalue += '<td>none' + '<input type="radio" ' + checked + ' value="" onClick="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_perm_' + v + '">\n';
			if (user.value && perm.value == 'view') checked = 'checked'; else checked = '';
			lvalue += 'view' + '<input type="radio" ' + checked + ' value="view" onClick="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_perm_' + v + '">\n';
			if (user.value && perm.value == 'update') checked = 'checked'; else checked = '';
			lvalue += 'edit' + '<input type="radio" ' + checked + ' value="update" onClick="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_perm_' + v + '"></td>\n';
			lvalue += '</tr>';

			output += lvalue;
// alert(lvalue);
		}
		output += '</table>';
// alert(output);
	} else if (type == 'checkbox') {
// alert(options);
		for (c=0; c < options_arr.length; c++) {
			var opt_arr = options_arr[c].split('=');
			if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
			if (!focus_on)
				var focus_on = opt_arr[0];
			eval ('var cellname = document.' + form + '.' + fld + '_' + opt_arr[0]);
			if (cellname.checked) {
				checked = 'checked';
				focus_on = opt_arr[0];
			} else
				checked = '';
// alert(cellname.value + ' --- ' + opt_arr[0] + ' --- ' + cellname.checked);
			output += opt_arr[1] + '<input type="checkbox" ' + checked + ' value="' + opt_arr[0] + '" onClick="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_' + opt_arr[0] + '">\n';
		}
// alert(output);
	} else if (type == 'radio') {
		var focus_on = 0;
		for (c=0; c < options_arr.length; c++) {
			var opt_arr = options_arr[c].split('=');
			if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
// eval ('var tmp = document.' + form + '.' + fld + '[' + c + ']');
// alert('document.' + form + '.' + fld + '[' + c + ']' + ': ' + tmp);
// alert(options + ' ' + fld + ' ' + cellname + ' ' + cellname.value);
			if (cellname.value == opt_arr[0]) {
				checked = 'checked';
				var focus_on = c;
			} else
				checked = '';
// alert('document.' + form + '.' + fld + '.value' + ': ' + cellname.value + ' - ' + opt_arr[0] + ' - ' + checked);
			output += opt_arr[1] + '<input type="radio" ' + checked + ' value="' + opt_arr[0] + '" onClick="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '">\n';
		}
// alert(output);
	} else if (type == 'date') {
		yearopts = years.split(':');
		eval ('var cellname = document.' + form + '.' + fld + '_year');
		output = '<select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_year"><option></option>';
		for (c=0; c < yearopts.length; c++) {
			if (yearopts[c] == cellname.value) 
				selected = 'selected'; 
			else
				selected = '';
			output += '<option value="' + yearopts[c] + '" name="' + fld + '_year" ' + selected + '>' + yearopts[c] + '</option>\n';
		}
		output += '</select>';
		eval ('var cellname = document.' + form + '.' + fld + '_month');
		output += '<select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_month"><option></option>';
		for (c=1; c <= 12; c++) {
			if (c == cellname.value) 
				selected = 'selected'; 
			else
				selected = '';
			c = String(c);
			cform = c.replace(/\b(\d)\b/g, '0$1');
			output += '<option value="' + cform + '" name="' + fld + '_month" ' + selected + '>' + cform + '</option>\n';
		}
		output += '</select>';
		eval ('var cellname = document.' + form + '.' + fld + '_day');
		output += '<select class="' + cssclass + '" onChange="jsnote(\'' + changed_data_warning + '\'); ' + onchange + '" name="' + fld + '_day"><option></option>';
		for (c=1; c <= 31; c++) {
			if (c == cellname.value)
				selected = 'selected';
			else
				selected = '';
			c = String(c);
			cform = c.replace(/\b(\d)\b/g, '0$1');
			output += '<option value="' + cform + '" name="' + fld + '_day" ' + selected + '>' + cform + '</option>\n';
		}
		output += '</select>';
	}

	output += '<input type="reset" class="' + cssclass + '" onClick="restore_cell(); ' + onchange + '; return false" value="restore">';
	mydiv.innerHTML = output;
// alert(onchange);

	if (type == 'component' || type == 'componentvol') {
		eval ("mydivph = document.getElementById('div_" + fld + "_ph')");
		if (stock_CLASSES[cellname.value] && stock_CLASSES[cellname.value].match(/buffer/))
			mydivph.style.display = '';
		else
			mydivph.style.display = 'none';
	}

	if (type == 'radio')
		eval ('var focusfld = \'' + fld + '[' + focus_on + ']\'');
	else if (type == 'checkbox')
		eval ('var focusfld = \'' + fld + '_' + focus_on + '\'');
	else
		var focusfld = fld;

	focus_on_fld(form, focusfld, type);

	seldata = new Array(form, fld, type, template, options, editp, cssclass, onchange);
}

function restore_cell() {
// alert('restore_cell ' + seldata[0] + ', fld ' + seldata[1] + ', type ' + seldata[2] + ', template ' + seldata[3] + ', options ' + seldata[4] + ', editp ' + seldata[5] + ', cssclass ' + seldata[6]);
	if (seldata[0]) {
		fill_string(seldata[0], seldata[1], seldata[1], seldata[2], seldata[3], seldata[4], seldata[5], seldata[6], seldata[7]);
		seldata[0] = "";
	}
}

function reset_string(form, fld, value, type, template, options, editp, cssclass, onchange) {
	var output = '';
	onchange = onchange.replace(/'/g, '\\\'');
	eval ("mydiv = document.getElementById('div_" + fld + "')");
	value = unescape(value);
	options = unescape(options);

// alert(value);
// alert(options);
// alert(fld);

	if (!mydiv) {
		if (++alertct < 2)
			alert('failed to access div box div_' + fld);
		return;
	}

	if (type == 'file' || type == 'multiplefiles') {
		if ((type == 'file' && value == '') || type == 'multiplefiles')
			mydiv.innerHTML = 'new file: <input name="' + fld + '" type="file" value="' + value + '" size=15;" class="' + cssclass + '" ' + onchange + '>';
		return;
	}

	if (editp)
		output = "<a href=\"javascript:void(0)\" onClick=\"fill_form('" + form + "', '" + fld + "', '" + type + "', '" + template + "', '" + options + "', '" + editp + "', '" + cssclass + "', '" + onchange + "'); return(false)\" title=\"edit\">";

	loptions = options.replace(/\|/g, "','");
	eval("var options_arr = new Array('" + loptions + "')");

	if (type == 'checkbox') {
// alert(fld + ': ' + options + ' - ' + loptions);
		var evalme = '';
		var flag = 0;
		for (var c=0; c < options_arr.length; c++) {
			var opt_arr = options_arr[c].split('=');
			if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
// alert('reset_string: ' + value + ' - ' + opt_arr[0]);
			if (value.match("(^|\\|)" + opt_arr[0] + "(\\||$)")) {
				checked = 'checked';
				lvalue = opt_arr[0];
			} else {
				checked = '';
				lvalue = '';
			}
			if (checked) {
				if (flag)
					output += ', ';
				output += opt_arr[1];
				flag = 1;
			}
//			if (editp)
				output += '<input type="checkbox" style="display: none" ' + checked + ' value="' + lvalue + '" name="' + fld + '_' + opt_arr[0] + '">';
		}

		if (!flag)
			if (editp)
				output += 'edit';
			else
				output += '&nbsp;';
// alert('reset_string: ' + output);

	} else if (type == 'select') {
		for (c=flag=0; c < options_arr.length; c++) {
// alert(options_arr[c]);
			var opt_arr = options_arr[c].split('=');
			if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
			if (value == opt_arr[0]) {
				if (opt_arr[1])
					lvalue = opt_arr[1];
				else
					if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
				output += lvalue;
				flag = 1;
				break;
			}
		}

		if (!flag) {
			if (value) {
				if (!fld.match('Selector')) {
					output += value;
					if (editp)
						output += '<br><div class=smallitem><font color=red>the value \'' + value + '\' is not among the select options</font></div>';
				}
			} else {
				if (editp) {
					output += 'edit';
					if (!fld.match('Selector'))
						output += '<br><div class=smallitem><font color=red>the empty value is not among the select options</font></div>';
				} else {
					output += '&nbsp;';
				}
			}
		}
// alert(fld);

//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert('reset_string ' + fld + ', value ' + value + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange + '\noutput ' + output);
// alert('reset_string: ' + output);

	} else if (type == 'radio') {
		for (c=flag=0; c < options_arr.length; c++) {
			var opt_arr = options_arr[c].split('=');
			if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
			if (value == opt_arr[0]) {
				if (opt_arr[1])
					lvalue = opt_arr[1];
				else
					if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
				output += lvalue;
				flag = 1;
				break;
			}
		}

		if (!flag)
			if (value) {
				if (!fld.match('Selector')) {
					output += value;
					if (editp)
						output += '<br><div class=smallitem><font color=red>the value \'' + value + '\' is not among the select options</font></div>';
				}
			} else if (editp) {
				output += 'edit';
				if (!fld.match('Selector'))
					output += '<br><div class=smallitem><font color=red>the empty value is not among the select options</font></div>';
			}

//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp + ', ' + output);

	} else if (type == 'multiple_select') {
// alert(value + ' ' + editp);
		var val_arr = value.split('|');
		var liststart = 1;
		var listend = 0;
		var lvalue;
		for (v = 0; v <= val_arr.length; v++) {
			lvalue = '';
			if (listend)
				break;
			if (val_arr[v]) {
// alert(v + ' ' + val_arr[v]);
				for (c = flag = 0; c < options_arr.length; c++) {
					var opt_arr = options_arr[c].split('=');
					if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
					if (val_arr[v] == opt_arr[0]) {
						if (opt_arr[1])
							lvalue = opt_arr[1];
						flag = 1;
						break;
					}
				}

				if(!flag) {
					lvalue = val_arr[v];
					if (editp)
						if (lvalue)
							output += '<br><div class=smallitem><font color=red>the value \'' + lvalue + '\' is not among the select options</font></div>';
						else
							output += 'edit' + '<br><div class=smallitem><font color=red>the empty value is not among the select options</font></div>';
				}

				if (!liststart)
					output += ', ';
//				if (editp)
					lvalue += '<input name="' + fld + '_' + v + '" value="' + val_arr[v] + '" type="hidden">';
			} else {
				if (editp && liststart)
					lvalue = 'edit';
				listend = 1;
				if (editp)
					lvalue += '<input name="' + fld + '_' + v + '" type="hidden">';
			}

// alert('reset_string: ' + '<input name="' + fld + '_' + v + '" value="' + val_arr[v] + '" type="hidden">');
// alert(lvalue);
			output += lvalue;
			liststart = 0;
		}
// alert(output);

	} else if (type == 'actions') {
// alert(value + ' ' + editp);
		var levdesc = {'':'nobody', 'G':'guest', 'U':'user', 'O':'owner', 'A':'admin', 'D':'developer'};
		var val_arr = value.split('|');
		var liststart = 1;
		var listend = 0;
		var lvalue;
		for (v = 0; v <= val_arr.length; v++) {
			if (listend)
				break;
			lvalue = '';
			if (val_arr[v]) {
				var act_arr = val_arr[v].split(':');
				if (!act_arr[1])
					act_arr[1] = '';
// alert(v + ' ' + val_arr[v] + ' ' + act_arr[0] + ' ' + act_arr[1]);
				for (c = flag = 0; c < options_arr.length; c++) {
					var opt_arr = options_arr[c].split('=');
					if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
					if (act_arr[0] == opt_arr[0]) {
						if (opt_arr[1])
							lvalue = opt_arr[1] + ' (' + levdesc[act_arr[1]] + ')';
						flag = 1;
						break;
					}
				}

				if(!flag) {
					lvalue = act_arr[0] + ' (' + levdesc[act_arr[1]] + ')';
					if (editp)
						if (act_arr[0])
							output += '<br><div class=smallitem><font color=red>the value \'' + lvalue + '\' is not among the select options</font></div>';
						else
							output += 'edit' + '<br><div class=smallitem><font color=red>the empty value is not allowed here</font></div>';
				}

				if (!liststart)
					output += ', ';
//				if (editp) {
					lvalue += '<input name="' + fld + '_action_' + v + '" value="' + act_arr[0] + '" type="hidden">';
					lvalue += '<input name="' + fld + '_plevel_' + v + '" value="' + act_arr[1] + '" type="hidden">';
//				}
			} else {
				if (editp && liststart)
					lvalue = 'edit';
				listend = 1;
				if (editp) {
					lvalue += '<input name="' + fld + '_action_' + v + '" type="hidden">';
					lvalue += '<input name="' + fld + '_plevel_' + v + '" type="hidden">';
				}
			}

// alert('reset_string: ' + '<input name="' + fld + '_' + v + '" value="' + act_arr[0] + '" type="hidden">');
// alert(lvalue);
			output += lvalue;
			liststart = 0;
		}
// alert(output);

	} else if (type == 'list') {
// alert(value + ' ' + editp);
		var val_arr = value.split('|');
		var liststart = 1;
		var listend = 0;
		var lvalue;
		for (v = 0; v <= val_arr.length; v++) {
			lvalue = '';
			if (listend)
				break;
// alert(val_arr[v]);
			if (val_arr[v]) {
				lvalue = val_arr[v];
			} else {
				if (editp && liststart)
					lvalue = 'edit';
				listend = 1;
				val_arr[v] = '';
			}

			if (lvalue && !liststart)
				output += ', ';
//			if (editp)
				lvalue += '<input name="' + fld + '_' + v + '" value="' + val_arr[v] + '" type="hidden">';
// alert('reset_string: ' + '<input name="' + fld + '_' + v + '" value="' + val_arr[v] + '" type="hidden">');
			output += lvalue;
			liststart = 0;
		}
		if (val_arr.length == 1 && val_arr[0] == '' && !editp)
			output += '&nbsp;';
// alert(output);

	} else if (type == 'options') {
		var flag = 1;
		if (value) {
			var val_arr = value.split('|');
			for (v = 0; v < val_arr.length; v++) {
// alert(val_arr[v]);
				var lvalue = '';
				var opt_arr = val_arr[v].split('=');
				if (v && (opt_arr[0] || opt_arr[1])) lvalue += ', ';
				if (opt_arr[0]) {
					lvalue += '"' + opt_arr[0] + '"';
					flag = 0;
				}
				if (editp)
					lvalue += '<input name="' + fld + '_opt_' + v + '" value="' + opt_arr[0] + '" type="hidden">';
				if (opt_arr[1]) {
					lvalue += ' ('+ opt_arr[1] + ')';
					flag = 0;
				}
//				if (editp)
					lvalue += '<input name="' + fld + '_desc_' + v + '" value="' + opt_arr[1] + '" type="hidden">';
				output += lvalue;
// alert('reset_string: ' + '<input name="' + fld + '_' + v + '" value="' + val_arr[v] + '" type="hidden">');
// alert(lvalue);
			}
		}

		if (flag)
			output += 'edit';
// alert(output);

	} else if (type == 'permissions') {
		flag = 0;
		var liststart = 1;
		var lvalue;
		var val_arr = value.split('|');
		options_arr[options_arr.length] = 'all=';
		options_arr[options_arr.length] = 'group=';

// alert(val_arr);

		for (v = 0; v <= val_arr.length; v++) {
			lvalue = '';

			if (val_arr[v]) {
				var val_parts = val_arr[v].split(':');
				if (!val_parts[0])
					val_arr[v] = '';
			}

			if (val_arr[v]) {
				for (c = flag = 0; c < options_arr.length; c++) {
					var opt_arr = options_arr[c].split('=');
					if (!opt_arr[1]) opt_arr[1] = opt_arr[0];
					if (val_parts[0] == opt_arr[0]) {
						lvalue = opt_arr[1];
						flag = 1;
						break;
					}
				}

				if(lvalue) {
					if (val_parts[1] == 'view')
						lvalue += ': ' + 'view';
					if (val_parts[1] == 'update')
						lvalue += ': ' + 'edit';
				} else {
					lvalue = val_parts[0];
					if (editp)
						if (val_parts[0])
							lvalue += '<br><div class=smallitem><font color=red>the username \'' + val_parts[0] + '\' is not among the select options</font></div>';
						else
							lvalue += 'edit' + '<br><div class=smallitem><font color=red>the empty value is not among the select options</font></div>';
				}

				if (!liststart)
					output += ', ';
			} else if (v != val_arr.length)
				continue;

			if (v == val_arr.length) {
				var val_parts = new Array('', '');
				if (liststart)
					if (editp)
						lvalue = 'edit';
					else
						lvalue = '&nbsp;';
			}

//			if (editp) {
				lvalue += '<input name="' + fld + '_user_' + v + '" value="' + val_parts[0] + '" type="hidden">';
				lvalue += '<input name="' + fld + '_perm_' + v + '" value="' + val_parts[1] + '" type="hidden">';
//			}
// alert(lvalue);
			output += lvalue;
			liststart = 0;
		}

// alert(output);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp + '\n' + output);

	} else if (type == 'multiple_component') {
		flag = 0;
// alert(value);
		var set = value.split('\|');
		for (i=0; i < set.length; i++) {
			if (i)
				output += ', ';

			if (value) {
				var val_r = set[i].split(':');
				var name = val_r[0];
				var conc = val_r[1];
				var unit = val_r[2];
				var ph = val_r[3];
				var lvalue = '';

				if (name) {
					if (name == 'random')
						conc = ph = '';
					else {
						if (conc.match(/^[\d.]*$/))
							lvalue += compose_value(parseFloat(conc), unit) + ' ';
						else
							lvalue += conc + ' ' + unit + ' ';
					}

					lvalue += name;

					if (ph) {
						if (ph == 'random')
							lvalue += ', random pH';
						else if (ph) {
							if (ph.match(/^[\d.]*$/))
								lvalue += ', pH ' + fmtF(ph, 2);
							else
								lvalue += ', pH ' + ph;
						}
					}
				} else {
					lvalue = '&nbsp;';
					name = conc = ph = '';
				}

				output += lvalue;
// alert(lvalue);
			} else {
				name = conc = ph = '';
				output += '&nbsp;';
			}
		}

// alert('reset_string ' + fld + ', value ' + value + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange + '\noutput ' + output);
// alert('reset_string: ' + output);

// alert(output);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp + '\n' + output);

	} else if (type == 'component') {
		flag = 0;
// alert(value);
		if (value) {
			var val_r = value.split(':');
			var name = val_r[0];
			var conc = val_r[1];
			var unit = val_r[2];
			var ph = val_r[3];
			var lvalue = '';

			if (name) {
				if (name == 'random')
					conc = ph = '';
				else {
					if (conc > 0) {
						lvalue += compose_value(conc, unit) + ' ';
						if (stock_CONC[name] && stock_CONC[name] > 0 && parseFloat(stock_CONC[name]) < conc && (conc < 100 || !(unit == '%w/v' || unit == '%v/v'))) {
							lvalue += ' <div class=smallitem><font color=red>concentration ' + compose_value(conc, unit) + ' exceeds stock concentration (' + compose_value(stock_CONC[name], unit) + ')</font></div> ';
alert(name + ": " + stock_CONC[name] + " < " + conc);
						}
					} else
						lvalue += '<div class=smallitem><font color=red>no concentration</font></div> ';
				}

				lvalue += name;

				if (ph) {
					if (name && editp && (!stock_CLASSES[name] || !stock_CLASSES[name].match(/buffer/))) {
						lvalue += '<br><div class=smallitem><font color=red>component \'' + name + '\' is not a buffer, ignoring ph \'' + ph + '\'</font></div>';
						ph = '';
					}

					if (ph == 'random')
						lvalue += ', random pH';
					else if (ph) {
						lvalue += ', pH ' + fmtF(ph, 2);
						if (editp && (ph < 0 || ph > 14)) {
							lvalue += ' <div class=smallitem><font color=red>the pH must be between 0 and 14</font></div>';
// alert(name + ": " + stock_CONC[name] + " < " + conc);
						}
					}
				}
			} else {
				if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
				name = conc = ph = '';
			}

			for (c=flag=0; c < options_arr.length; c++) {
				if (name == options_arr[c]) {
					flag = 1;
					break;
				}
			}

			if (!flag && name) {
				lvalue += '<br><div class=smallitem><font color=red>\'' + name + '\' is either not defined or an invalid choice</font></div>';
// alert(options);
			}

			output += lvalue;
// alert(lvalue);
		} else {
			name = conc = ph = '';
			if (editp) output += 'edit'; else output += '&nbsp;';
		}

		output += ' <div id="div_' + fld + '_conc_hidden" style="display:none">' + conc + '</div>';
		output += ' <div id="div_' + fld + '_name_hidden" style="display:none">' + name + '</div>';
		output += ' <div id="div_' + fld + '_ph_hidden" style="display:none">' + ph + '</div>';

//		if (editp) {
			output += '<input name="' + fld + '_name" value="' + name + '" type="hidden">';
			output += '<input name="' + fld + '_conc" value="' + fmtunit(conc, unit) + '" type="hidden">';
			output += '<input name="' + fld + '_ph" value="' + fmtF(ph, 2) + '" type="hidden">';
//		}

// alert('reset_string ' + fld + ', value ' + value + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange + '\noutput ' + output);
// alert('reset_string: ' + output);

// alert(output);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp + '\n' + output);

	} else if (type == 'componentvol') {
		flag = 0;
// alert(value);
		if (value) {
			var val_r = value.split(':');
			var name = val_r[0];
			var vol = val_r[1];
			var unit = val_r[2];
			var ph = val_r[3];
			var lvalue = '';

			if (name) {
				if (name == 'random')
					vol = ph = '';
				else {
					if (parseFloat(vol)) {
						lvalue += '<b>' + compose_value(parseFloat(vol), 'ul') + '</b> ';
// alert(vol + ' - ' + parseFloat(vol) + ' - ' + compose_value(parseFloat(vol), 'ul'));
					} else
						lvalue += '<div class=smallitem><font color=red>no volume</font></div> ';

					lvalue += compose_value(stock_CONC[name], unit) + ' ';
				}

				lvalue += name;

				if (ph) {
					if (!stock_CLASSES[name] || !stock_CLASSES[name].match(/buffer/)) {
						lvalue += '<br><div class=smallitem><font color=red>component \'' + name + '\' is not a buffer, ignoring ph \'' + ph + '\'</font></div>';
						ph = '';
					}

					if (ph == 'random')
						lvalue += ', random pH';
					else if (ph)
						lvalue += ', pH ' + fmtF(ph, 2);
				}
			} else {
				if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
				name = vol = ph = '';
			}

			for (c=flag=0; c < options_arr.length; c++) {
				if (name == options_arr[c]) {
					flag = 1;
					break;
				}
			}

			if (!flag && name)
				lvalue += '<br><div class=smallitem><font color=red>\'' + name + '\' is either not defined or an invalid choice</font></div>';

			output += lvalue;
		} else {
			name = vol = ph = '';
			if (editp) output += 'edit'; else output += '&nbsp;';
		}

		output += ' <div id="div_' + fld + '_vol_hidden" style="display:none;">' + vol + '</div>';
		output += ' <div id="div_' + fld + '_name_hidden" style="display:none;">' + name + '</div>';
		output += ' <div id="div_' + fld + '_ph_hidden" style="display:none;">' + ph + '</div>';

//		if (editp) {
			output += '<input name="' + fld + '_name" value="' + name + '" type="hidden">';
			output += '<input name="' + fld + '_vol" value="' + fmtunit(vol, 'ul') + '" type="hidden">';
			output += '<input name="' + fld + '_ph" value="' + fmtF(ph, 2) + '" type="hidden">';
//		}

// alert('reset_string ' + fld + ', value ' + value + ', type ' + type + ', options ' + options + ', editp ' + editp + ', onchange ' + onchange + '\noutput ' + output);
// alert('reset_string: ' + output);

// alert(output);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp + '\n' + output);

	} else if (type == 'volume') {
// alert(value);
		if (value && parseFloat(value)) {
			output += compose_value(parseFloat(value), 'ul') + ' ';
// alert(value + ' - ' + parseFloat(value) + ' - ' + compose_value(parseFloat(value), 'ul'));
		} else {
			if (editp) output += 'edit'; else output += '&nbsp;';
		}

//		if (editp)
			output += '<input name="' + fld + '" value="' + fmtunit(value, 'ul') + '" type="hidden">';

// alert('reset_string: ' + output);

	} else if (type == 'date') {
		yearopts = years.split(':');
		if (value) {
			matches = value.split('/');
			if (!matches[0] && !matches[1] && !matches[2]) lvalue = 'edit'; else lvalue = value;
		} else {
			matches = new Array('', '', '');
			if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
		}

		output += lvalue;
//		if (editp) {
			output += '<input type="hidden" value="' + matches[0] + '" name="' + fld + '_year" selected>\n';
			output += '<input type="hidden" value="' + matches[1] + '" name="' + fld + '_month" selected>\n';
			output += '<input type="hidden" value="' + matches[2] + '" name="' + fld + '_day" selected>\n';
//		}
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp + '\n' + output);
	} else if (type == 'password') {
		value = value.replace(/"/g, "&quot;");
		if (value)
			lvalue = '********';
		else
			if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
		lvalue = lvalue.replace(/(\r?\n)+/g, '');
		output += lvalue;
		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
	} else if (type == 'textarea') {
		value = value.replace(/"/g, "&quot;");
		if (value)
			lvalue = value;
		else
			if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
// alert(lvalue);
		lvalue = lvalue.replace(/(\r?\n)/g, '<br>');
		output += lvalue;
//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert(output);
	} else if (type == 'textspec') {
		if (editp) lvalue = 'edit<p>'; else lvalue = '&nbsp;';
		output += lvalue;
// alert(output);
		var text = value.replace(/(\r?\n)+/g, '<br>');
		text += '<textarea name="' + fld + '">' + value + '</textarea>';
		var evalme = "document." + form + "." + fld + ".style.display = 'none'; ";
// alert(text);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp);
	} else if (type == 'html') {
		text = '<a href="' + value + '" target="_new">' + value + '</a>';
		if (editp) output += 'edit ';
// alert(output);
//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp);
	} else if (type == 'email') {
		text = '<a href="mailto:' + value + '">' + value + '</a>';
		if (editp) output += 'edit ';
// alert(output);
//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp);
	} else if (type == 'template') {
		if (value != '') {
			template = unescape(template);
			text = ' ' + template.replace(/<\*value\*>/g, value);
		}
		if (value)
			lvalue = value;
		else
			if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
// alert(lvalue);
		lvalue = lvalue.replace(/(\r?\n)/g, '');
		output += lvalue;

// alert(output);
//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp);
	} else if (type == 'float') {
// alert(value);
		if (value != '')
			lvalue = value;
		else
			if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
		lvalue = lvalue.replace(/(\r?\n)/g, '');
		if (lvalue != 'edit') {
// alert(lvalue);
			lvalue = fmtF(lvalue, 10);
// alert(lvalue);
		}
		output += lvalue;
//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert(output);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp);
	} else if (type == 'int' || type == 'bigint' || type == 'tinyint') {
// alert(value);
		if (value != '')
			lvalue = value;
		else
			if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
		lvalue = lvalue.replace(/(\r?\n)/g, '');
		if (lvalue != 'edit') {
// alert(lvalue);
			lvalue = fmtF(lvalue, 0);
// alert(lvalue);
		}
		output += lvalue;
//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// alert(output);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp);
	} else {
// alert('reset_string ' + fld + ', value ' + value + ', type ' + type + ', template ' + template + ', options ' + options + ', editp ' + editp);
// if (value.match(/nad/i))
// alert(value + ', ' + unescape(value));
		value = value.replace(/"/g, "&quot;");
// alert(value);
		if (value)
			lvalue = value;
		else
			if (editp) lvalue = 'edit'; else lvalue = '&nbsp;';
// alert(lvalue);
		lvalue = lvalue.replace(/(\r?\n)/g, '');
		output += lvalue;

//		if (editp)
			output += '<input name="' + fld + '" value="' + value + '" type="hidden">';
// if (value.match(/nad/i))
// alert(output);
// alert(fld + ', ' + value + ', ' + type + ', ' + options + ', ' + editp);
	}

	if (editp)
		output += '</a>';
// alert(output);
	mydiv.innerHTML = output;
// alert(mydiv.innerHTML);

	if (text)
		mydiv.innerHTML += text;

//if(type=='select')
//alert('reset_string: ' + mydiv + ' ' + mydiv.innerHTML);

//if (fld == 'Options_28') {
//	alert(mydiv.innerHTML);
//}

	if (type == 'checkbox' || type == 'textspec')
		eval(evalme);
}

function calc_recipe(field, conc, stockconc, unit, name, volume, formula, molweight, density) {

// alert(field + ' ' + conc + ' ' + stockconc + ' ' + unit + ' ' + name + ' ' + volume + ' ' + formula + ' ' + molweight + ' ' + density);

	eval ('mydiv_recipe = document.getElementById(\"' + field + '\")');

	if (!name || !conc) {
		mydiv_recipe.innerHTML = '&nbsp;';
		return;
	}

	if (!unit) {
		mydiv_recipe.innerHTML = '<font color=red>Need stock unit for ' + name + '</font> ';
		return;
	}

	if (conc <= 0) {
		mydiv_recipe.innerHTML = '&nbsp;';
		return;
	}

	if (conc == '100' && (unit == '%w/v' || unit == '%v/v')) {
		mydiv_recipe.innerHTML = '&nbsp;';
		return;
	}

	if (volume <= 0) {
		mydiv_recipe.innerHTML = '<font color=red>Need volume to calculate recipe</font> ';
		return;
	}

	var output = '';
	var amount = '';

	if (stockconc > 0) {
		if (conc <= parseFloat(stockconc))
			output += '<b>' + compose_value(conc / stockconc * volume, 'ml') + '</b> ' + stockconc + ' ' + unit + ' ' + name;
		else
			output += '<div class="smallitem"><font color=red>concentration ' + compose_value(conc, unit) + ' exceeds stock concentration (' + compose_value(stockconc, unit) + ')</font></div> ';
	}

// alert(volume);
// alert(conc + ' ' + stockconc + ' ' + volume);

	if (unit == '%w/v') {
		amount = '<b>' + compose_value(conc * volume * 10, 'mg') + '</b> ' + name + ' / ' + compose_value(volume, 'ml');
		if (density > 0)
			amount += ', <b>' + compose_value(conc * volume * 10.0 / density, 'ul') + '</b> ' + name + ' / ' + compose_value(volume, 'ml');
		if (output)
			output += ' (' + amount + ')';
		else
			output = amount;
	} else if (unit == '%v/v') {
		if (stockconc <= 100)
			amount = '<b>' + compose_value(conc * volume * 10, 'ul') + '</b> ' + name + ' / ' + compose_value(volume, 'ml');
// alert(density);
		if (density > 0) {
			if (amount)
				amount += ', ';
			amount += '<b>' + compose_value(conc * volume * density * 10, 'mg') + '</b> ' + name + ' / ' + compose_value(volume, 'ml');
		}

		if (amount) {
			if (output)
				output += ' (' + amount + ')';
			else
				output = amount;
		}
	} else if (unit == 'M') {
		if (molweight > 0) {

// alert((conc * molweight * volume) + ' mg');

			amount = '<b>' + compose_value(conc * molweight * volume, 'mg') + '</b> ' + formula + ' / ' + compose_value(volume, 'ml');
			if (density > 0)
				amount += ', <b>' + compose_value(conc * molweight * volume / density, 'ul') + '</b> ' + formula + ' / ' + compose_value(volume, 'ml');
		} else {
			amount = '<font color=red>Need molecular weight for ' + name + '</font>';
		}

		if (output)
			output += ' (' + amount + ')';
		else
			output = amount;
	} else if (unit == 'mg/ml') {
		amount = '<b>' + compose_value(conc * volume, 'mg') + '</b> ' + name + ' / ' + compose_value(volume, 'ml');
		if (density > 0)
			amount += ', <b>' + compose_value(conc * volume / density, 'ul') + '</b> ' + name + ' / ' + compose_value(volume, 'ml');
		if (output)
			output += ' (' + amount + ')';
		else
			output = amount;
	}

// alert(output);

	if (output)
		mydiv_recipe.innerHTML = output;
	else
		mydiv_recipe.innerHTML = '&nbsp;';
}

function convert_value(value, unit, targetunit, molweight, density) {
	if (!value || !unit || unit == targetunit)
		return ('');

	if (unit == 'M') {
		if (targetunit == 'mg/ml' && molweight)
			return(value * molweight);

		if (targetunit == '%w/v' && molweight && value * molweight / 10.0 <= 100.0)
			return(value * molweight / 10.0);

		if (targetunit == '%v/v' && molweight && density && value * molweight / (10.0 * density) <= 100.0)
			return(value * molweight / (10.0 * density));
	}

	if (unit == 'mg/ml') {
		if (targetunit == 'M' && molweight)
			return(value / molweight);

		if (targetunit == '%w/v' && value / 10.0 <= 100.0)
			return(value / 10.0);

		if (targetunit == '%v/v' && density && value / (10.0 * density) <= 100.0)
			return(value / (10.0 * density));
	}

	if (unit == '%w/v') {
		if (targetunit == 'mg/ml')
			return(value * 10.0);

		if (targetunit == 'M' && molweight)
			return(value * 10.0 / molweight);

		if (targetunit == '%v/v' && density && value / density <= 100.0)
			return(value / density);
	}

	if (unit == '%v/v') {
		if (targetunit == 'M' && molweight && density)
			return(value * density * 10.0 / molweight);

		if (targetunit == 'mg/ml' && density)
			return(value * density * 10.0);

		if (targetunit == '%w/v' && density && value * density <= 100.0)
			return(value * density);
	}

	if (unit == 'mol') {
		if (targetunit == 'g' && molweight)
			return(value * molweight);
		if (targetunit == 'ml' && molweight && density)
			return(value * molweight / density);
	}

	if (unit == 'g') {
		if (targetunit == 'mol' && molweight)
			return(value / molweight);
		if (targetunit == 'ml' && density)
			return(value / density);
	}

	if (unit == 'ml') {
		if (targetunit == 'mol' && molweight && density)
			return(value * density / molweight);
		if (targetunit == 'g' && density)
			return(value * density);
	}

	return ('');
}

function compose_value(value, unit) {
	if (unit == '%v/v' || unit == '%w/v' || unit == '%')
		return (fmtF(value, 3) + ' ' + unit);
	if (!unit)
		return (value);

	var ct;
	var fmtvalue;

	if (unit.match(/^\w\S+$/)) {
		var modifier = unit.substring(0,1);
		var SI_unit = unit.substring(1);
	} else {
		var modifier = '';
		var SI_unit = unit;
	}

	if (SI_unit != 'M' && SI_unit != 'l' && SI_unit != 'g' && SI_unit != 'B' && SI_unit != 'g/ml')
		return (value + ' ' + unit);

	value = fmtunit(value, unit);

// alert(value + ' ' + unit);

	var modif_arr = {'-4':'p', '-3':'n', '-2':'u', '-1':'m', '0':'', '1':'k', '2':'M', '3':'G', '4':'T'};
	var prec = 9;
	if (SI_unit == 'l') var prec = 8;
	if (SI_unit == 'g') var prec = 6;
	if (SI_unit == 'B') var prec = 0;
	if (SI_unit == 'M') var prec = 6;
	if (SI_unit == 'g/ml') var prec = 6;

	for (ct = -4; ct <= 4; ct++)
		if (modifier == modif_arr[ct])
			break;

	var orig_ct = ct;
	prec += ct * 3;

	modif_arr['-2'] = '&#181;';

	if (value == 0)
		return ('0 ' + modif_arr[ct] + SI_unit);

	fmtvalue = value;

	while (fmtvalue < 1.0) {
		if (--ct == -4) break;
		fmtvalue *= 1000.0;
		prec -= 3;
	}

	while (fmtvalue >= 1000.0) {
		if (++ct == 4) break;
		fmtvalue /= 1000.0;
		prec += 3;
	}

	if (prec > 3) prec = 3;

	fmtvalue = fmtF(fmtvalue, prec);

// alert(value + ' ' + unit + ' ' + prec + ' ' + ct + ' ' + fmtvalue);

	if (fmtvalue == 0)
		return ('0 ' + modif_arr[orig_ct] + SI_unit);
	else
		return (fmtvalue + ' ' + modif_arr[ct] + SI_unit);
}

function fmtunit(value, unit) {
	if (unit == '%v/v' || unit == '%w/v' || unit == '%')
		return (fmtF(value, 3));
	if (!unit || !value)
		return (value);

	var ct;
	var fmtvalue;

	if (unit.match(/^\w\S+$/)) {
		var modifier = unit.substring(0,1);
		var SI_unit = unit.substring(1);
	} else {
		var modifier = '';
		var SI_unit = unit;
	}

	if (SI_unit != 'M' && SI_unit != 'l' && SI_unit != 'g' && SI_unit != 'B' && SI_unit != 'g/ml')
		return (value);

	var modif_arr = {'-4':'p', '-3':'n', '-2':'u', '-1':'m', '0':'', '1':'k', '2':'M', '3':'G', '4':'T'};

	var prec = 10;
	if (SI_unit == 'l') var prec = 8;
	if (SI_unit == 'g') var prec = 6;
	if (SI_unit == 'B') var prec = 0;
	if (SI_unit == 'M') var prec = 6;
	if (SI_unit == 'g/ml') var prec = 6;

	for (ct = -4; ct <= 4; ct++)
		if (modifier == modif_arr[ct])
			break;

	prec += ct * 3;

	fmtvalue = fmtF(value, prec);

// alert(value + ' ' + unit + ' ' + prec + ' ' + ct + ' ' + fmtvalue);

	return (fmtvalue);
}

function fmtF(value, prec) {
	if (value == '')
		return(value);

// alert(value + ' ' + prec);

	var s;
	var zeros = '';
	var i = parseFloat(value);
	if(isNaN(i)) { i = 0; }
	var minus = '';
	if(i < 0) { minus = '-'; }
	i = Math.abs(i);
	var factor = Math.pow(10, prec);
//	while (factor * i > Math.pow(10, prec))
//		factor /= 10;

// alert(i + ' ' + prec + ' ' + factor);

	for (x = 0; x < prec; x++)
		zeros = zeros + '0';
	i = parseInt((i + 0.5/factor) * factor);
	i = i / factor;
	s = new String(i);
	if(s.indexOf('.') < 0 && zeros) { s += '.' + zeros; }
	if(s.indexOf('.') == (s.length - prec)) { s += '0'; }
	while(s.indexOf('.') >= 0 && s.lastIndexOf('0') == s.length - 1) { s = s.substr(0, s.length-1);}
	if(s.indexOf('.') == (s.length - 1)) { s = s.substr(0, s.length-1); }
	s = minus + s;
	return s;
}

function Mod(a, b) {
	return a - Math.floor(a / b) * b;
}

function construct_selector(name, value, options, descriptors, cssclass, onchange, omit) {
// alert(name + ' / ' + value + ' / ' + options + ' / ' + cssclass + ' / ' + onchange + ' / ' + omit);
	output = "<select class=\"" + cssclass + "\" name=\"" + name + "\" onChange=\"" + onchange + "\">";
	var flag = 0;
	var opt;
	for (opt=0; opt < options.length; opt++) {
// alert(options[opt]);
		if (options[opt] == omit)
			continue;
		if (options[opt] == value) {
			selected = "selected";
			flag = 1;
		} else
			selected = "";
		output += "<option " + selected + " value=\"" + options[opt] + "\">" + descriptors[opt] + "</option>\n";
	}
	if (!flag)
		output += "<option selected value=\"" + value + "\">" + value + "</option>\n";
	output += "</select>";
// alert(output);
	return(output);
}

function construct_named_selector(name, value, options, cssclass, onchange, omit) {
// alert(name + ' / ' + value + ' / ' + options + ' / ' + cssclass + ' / ' + onchange + ' / ' + omit);
	output = "<select class=\"" + cssclass + "\" name=\"" + name + "\" onChange=\"" + onchange + "\">";
	var flag = 0;
	var opt;
	for (opt in options) {
// alert(options[opt]);
		if (opt == omit)
			continue;
		if (opt == value) {
			selected = "selected";
			flag = 1;
		} else
			selected = "";
		output += "<option " + selected + " value=\"" + opt + "\">" + options[opt] + "</option>\n";
	}
	output += "</select>";
// alert(output);
	return(output);
}

function validate(form, row, key, type, options, valid, str, regexdesc) {
// alert(form + ' / ' + row + ' / ' + key + ' / ' + type + ' / ' + options + ' / ' + valid + ' / ' + str + ' / ' + regexdesc);
	var valid = valid.replace('/\\\\\|/', '%5c%7c');
	var conds = valid.split('|');

	for (c=flag=0; c < conds.length; c++) {
		conds[c] = conds[c].replace('/%5c%7c/', '|');
		if ((type == 'float' || type == 'bigint' || type == 'int' || type == 'tinyint') && conds[c] == 'num')
			flag = 1;
	}

	if (!flag && (type == 'float' || type == 'bigint' || type == 'int' || type == 'tinyint'))
		conds[c] = 'num';

	eval("var opts_r = new Array('" + options.replace(/\|/g, "','") + "')");

	if (row)
		row = '_' + row;

	if (type == 'select') {
		eval('fld = document.' + form + '.' + key + row);
		if (!select_check_selected(fld, str)) {
			focus_on_fld(form, key + row, type);
			return(false);
		}

	} else if (type == 'radio') {
		eval('fld = document.' + form + '.' + key + row);
		if (!radio_check_selected(fld, str)) {
			eval ('var focusfld = \'' + key + row + '[0]\'');
			focus_on_fld(form, focusfld, type);
			return(false);
		}

	} else if (type == 'checkbox') {
		if (valid == 'ne') {
			var isset=0;
			for (c=flag=0; c < opts_r.length; c++) {
				var opt = opts_r[c].split('=');
				opt[0] = opt[0].replace('/%5c%7c/', '|');
				eval('fld = document.' + form + '.' + key + row + '_' + opt[0]);
				if (!fld)
					isset = 1;
				else if (fld.checked)
					isset = 1;
			}
			if (!isset) {
				alert("Please enter a value for the " + str + " field.");
				focus_on_fld(form, key + row, type);
				return (false);
			} 
		}

	} else {
		eval('fld = document.' + form + '.' + key + row);
		for (c=flag=0; c < conds.length; c++) {
			var cond = conds[c].split('=');
// alert(conds[c] + ' ' + key + ' ' + row + ' ' + fld.value);
			if (conds[c] == 'ne') {
				if (!is_defined(fld, str)) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (conds[c] == 'email') {
				if (!is_email(fld, str)) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (conds[c] == 'date') {
				if (!is_date(fld, str)) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (conds[c] == 'num') {
				if (!is_num(fld, str)) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (cond[0] == 'min') {
				if (!equal_greater_than(fld, str, cond[1])) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (cond[0] == 'max') {
				if (!equal_lower_than(fld, str, cond[1])) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (cond[0] == 'maxl') {
				if (!within_maxsize(fld, str, cond[1])) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (cond[0] == 'regex') {
				if (!does_match(fld, str, cond[1], regexdesc)) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
			if (cond[0] == 'invregex') {
				if (!does_not_match(fld, str, cond[1], regexdesc)) {
					focus_on_fld(form, key + row, type);
					return(false); 
				}
			}
		}
	}

	return(true);
}

function select_check_selected(fld, desc) {
	if (!fld)
		return(true);

	var isset = 0;
	if (fld.options) {
		if (fld[fld.selectedIndex].value)
			isset = 1;
	} else
		if (fld.value != '')
			isset = 1;

	if (!isset) {
		alert('Please enter a value for the "' + unescape(desc) + '" field.');
		return(false);
	}
	return(true);
}

function radio_check_selected(fld, desc) {
	if (!fld)
		return(true);

	var isset=0;
	if (fld.length) {
		for (var i=0; i < fld.length; i++)  { 
			if (fld[i].checked)  {
				isset = 1;
				break;
			} 
		} 
	} else {
		if (fld.value != '')
			isset = 1;
	}

	if (!isset) {
		alert('Please enter a value for the "' + unescape(desc) + '" field.');
		return(false);
	}
	return(true);
}

function radio_selectedIndex(fld) {
	var i = 0;
	if (fld.length) {
		for (var i=0; i < fld.length; i++)  { 
			if (fld[i].checked)  {
				break;
			} 
		} 
	} else {
		if (fld.value != '')
			i = 0;
	}

	if (i == fld.length)
		return(-1);
	else
		return(i);
}

function is_defined(fld, desc) {
	if (fld && fld.value == '') {
		alert('Please enter a value for the "' + unescape(desc) + '" field.');
		return (false);
	}
	return(true);
}

function equal_greater_than(fld, desc, min) {
	if (fld && fld.value != '' && Number(fld.value) < min) {
		alert('"' + unescape(desc) + '" must be at least ' + min + '.');
		return (false);
	}
	return(true);
}

function equal_lower_than(fld, desc, max) {
	if (fld && fld.value != '' && Number(fld.value) > max) {
		alert('"' + unescape(desc) + '" must not exceed ' + max + '.');
		return (false);
	}
	return(true);
}

function within_maxsize(fld, desc, max) {
	if (fld && fld.value.length > max) {
		alert('field "' + unescape(desc) + '" contains too many letters (max. ' + max + ')');
		return (false);
	}
	return(true);
}

function is_email(fld, desc) {
	if (fld && fld.value && 
		(fld.value.match(/(\@.*\@)|(\.\.)|(\@\.)|(\.\@)|(^\.)/) || 
		!(fld.value.match(/^\s*\S+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,}|[0-9]{1,3})(\]?)\s*$/)))) {
		alert(fld.value + ' is not a valid e-mail address');
		return (false);
	}
	return(true);
}

function is_date(fld, desc) {
	if (fld && fld.value && 
		!(fld.value.match(/^[12][09][09][0-9]\/[01][0-9]\/[0-3][0-9]( [012][0-9]:[0-6][0-9]:[0-6][0-9])?$/))) {
		alert('The value in the "' + unescape(desc) + '" field must have the form YYYY/MM/DD');
		return (false);
	}
	return(true);
}

function is_num(fld, desc) {
	if (fld && fld.value && !(fld.value.match(/^[0-9.]+$/))) {
		alert('\'' + fld.value + '\' The value in the "' + unescape(desc) + '" field must be a positive number');
		return (false);
	}
	return(true);
}

function does_match(fld, desc, expr, regexdesc) {
	if (!fld)
		return(true);

	if (fld.value == '')
		return(true);

// 	alert(fld.value + ' ' + expr);

	expr = expr.replace(/\//g, "\\/");
// alert(expr);
	eval('str = fld.value.match(/^' + expr + '$/i)');

	if (!str) {
		regexdesc = unescape(regexdesc);
		if (regexdesc) { 
			alert(regexdesc);
		} else { 
			alert('field "' + unescape(desc) + '" must match the expression ' + expr);
		} 
		return (false);
	}
	return(true);
}

function does_not_match(fld, desc, expr, regexdesc) {
	if (!fld)
		return(true);

	if (fld.value == '')
		return(true);

	eval('str = fld.value.match(/' + expr + '/i)');

	if (str) {
		regexdesc = unescape(regexdesc);
		if (regexdesc) { 
			alert(regexdesc);
		} else { 
			alert('field "' + unescape(desc) + '" must not contain ' + expr);
		}
		return (false);
	}
	return(true);
}

function focus_on_fld (form, fld, type) {
	if (type == 'text' || type == 'volume' || type == 'html' || type == 'email' || type == 'template' || type == 'password' || type == 'float' || type == 'int' || type == 'bigint' || type == 'tinyint' || type == 'textarea' || type == 'textspec' || type == 'select' || type == 'radio' || type == 'checkbox')
		eval ('var absfld = document.' + form + '.' + fld);
	else if (type == 'multiple_select' || type == 'list' || type == 'file' || type == 'multiplefiles')
		eval ('var absfld = document.' + form + '.' + fld + '_0');
	else if (type == 'actions')
		eval ('var absfld = document.' + form + '.' + fld + '_action_0');
	else if (type == 'options')
		eval ('var absfld = document.' + form + '.' + fld + '_opt_0');
	else if (type == 'permissions')
		eval ('var absfld = document.' + form + '.' + fld + '_user_0');
	else if (type == 'date')
		eval ('var absfld = document.' + form + '.' + fld + '_year');
	else if (type == 'component')
		eval ('var absfld = document.' + form + '.' + fld + '_conc');
	else if (type == 'componentvol')
		eval ('var absfld = document.' + form + '.' + fld + '_vol');
	if (absfld)
		absfld.focus();
}