フォームのinputタグ等に値をSETする

/**
 * フォームのinputタグ等に値をSETする
 *
 * usage:
 * SetFormValue.render(fm,nme,val);
 * フォーム名とinputタグ等のname属性とvalueを渡す。該当タグにvalueがセットされる。
 *
 * @author ao-system
 */
var SetFormValue = {
	render: function(fm,nme,val) {
		var elms = fm.elements;
		var tpe = undefined;
		for (var i = 0; i < elms.length; i++) {
			if (elms.item(i).name == nme) {
				tpe = elms.item(i).type;
				break;
			}
		}
		switch (tpe) {
			case 'radio':
				for (var i = 0; i < elms.length; i++) {
					if (elms.item(i).name == nme) {
						if (elms.item(i).value == val) {
							elms.item(i).checked = true;
							return;
						}
					}
				}
				return;
			case 'select-one':
				for (var i = 0; i < elms.length; i++) {
					if (elms.item(i).name == nme) {
						var opts = elms.item(i).options;
						for (var j = 0; j < opts.length; j++) {
							if (opts.item(j).value = val) {
								elms.item(i).selectedIndex = j;
								return;
							}
						}
					}
				}
				return;
			case 'text':
				for (var i = 0; i < elms.length; i++) {
					if (elms.item(i).name == nme) {
						elms.item(i).value = val;
						return;
					}
				}
				return;
			case 'password':
				for (var i = 0; i < elms.length; i++) {
					if (elms.item(i).name == nme) {
						elms.item(i).value = val;
						return;
					}
				}
				return;
			case 'textarea':
				for (var i = 0; i < elms.length; i++) {
					if (elms.item(i).name == nme) {
						elms.item(i).value = val;
						return;
					}
				}
				return;
			default:
				return;
		}
	}
};