function initialized()
{
	document.fm1.reset();
	p_list=parmlist.split(",");
	local_initial = local_ini();
}
function GetParm()
{
	parmstr=document.getElementsByName("scg_base")[0].value;
	if(parmstr=="")
	{
		return;
	}
	snityperb=document.getElementsByName("snitype");
	switch(parmstr.substring(0,2))
	{
		case "["+"[":
			snis="["+"[";
			snie="]"+"]";
			snityperb[0].checked=true;
			break;
		case "["+"!":
			snis="["+"!";
			snie="!"+"]";
			snityperb[1].checked=true;
			break;
	}
	dmystr=parmstr.substring(parmstr.indexOf("&",0),parmstr.indexOf(snie,0));
	parmarr=dmystr.split(" ");
	parmstr="";
	for(x=0;x<parmarr.length;x++)
	{
		opname=parmarr[x].substring(parmarr[x].indexOf("&",0)+1,parmarr[x].indexOf("=",0));
		opvalue=parmarr[x].substring(parmarr[x].indexOf("`",0)+1,parmarr[x].indexOf("`",parmarr[x].indexOf("`",0)+1));
		if(parmlist.indexOf(opname,0)>=0)
		{
			elements = document.getElementsByName(opname);
			for(z=0;z<p_list.length;z++)
			{
				if(p_list[z]==opname)
				{
					p_list[z]=opname+"=`"+opvalue+"`";
					parmstr=parmstr+" &"+p_list[z];
				}
			}
			switch(elements[0].type)
			{
				case "select-one":
					for(i=0;i<elements[0].options.length;i++)
					{
						if(elements[0].options[i].value == opvalue)
						{
							elements[0].options[i].selected=true;
						}
					}
					break;
				case "text":
					elements[0].value = opvalue;
					break;
				case "checkbox":
					if(opvalue.indexOf(",",0)>0)
					{
						oparr=opvalue.split(",");
						for(i=0;i<elements.length;i++)
						{
							dmycount=0;
							for(z=0;z<oparr.length;z++)
							{
								if(elements[i].value==oparr[z])
								{
									dmycount+=1;
								}else{
								}
							}
							if(dmycount>0)
							{
								elements[i].checked=true;
							}else{
								elements[i].checked=false;
							}
						}
					}else{
						for(z=0;z<elements.length;z++)
						{
							if(elements[z].value==opvalue)
							{
								elements[z].checked=true;
							}else{
								elements[z].checked=false;
							}
						}
					}
					break;
			}
		}else{
			parmstr=parmstr+" "+parmarr[x];
		}
	}
	output_code();
}
function chgparm(chgparm)
{
	parmstr="";
	snityperb=document.getElementsByName("snitype");
	iparm=document.getElementsByName(chgparm);

	switch(iparm[0].type)
	{
		case "select-one":
			if(iparm[0].selectedIndex==0)
			{
				ivalue="";
			}else{
				ivalue=iparm[0].options[iparm[0].selectedIndex].value;
			}
			break;
		case "text":
			if(iparm[0].defaultValue!=iparm[0].value)
			{
				ivalue=iparm[0].value;
			}else{
				ivalue="";
			}
			break;
		case "checkbox":
			defstr=new Array();
			nowstr=new Array();
			for(w=0;w<iparm.length;w++)
			{
				if(iparm[w].defaultChecked==true)
				{
					defstr.push(iparm[w].value);
				}
				if(iparm[w].checked==true)
				{
					nowstr.push(iparm[w].value);
				}
			}
			if(defstr.join(",")!=nowstr.join(","))
			{
				ivalue=nowstr.join(",");
			}else{
				ivalue="";
			}
			break;
	}
	for(z=0;z<p_list.length;z++)
	{
		if(p_list[z].indexOf("=",0)>0)
		{
			parm_dmy=p_list[z].substring(0,p_list[z].indexOf("=",0));
		}else{
			parm_dmy=p_list[z];
		}
		if(parm_dmy==chgparm)
		{
			if(ivalue=="")
			{
				p_list[z]=chgparm;
			}else{
				p_list[z]=chgparm+"=`"+ivalue+"`";
			}
		}
	}
	for(z=0;z<p_list.length;z++)
	{
		if(p_list[z].indexOf("=",0)>0)
		{
			parmstr=parmstr+" &"+p_list[z];
		}
	}
	output_code();
}
function output_code()
{
	switch(snityperb[0].checked)
	{
		case true:
			snis="["+"[";
			snie="]"+"]";
			break;
		case false:
			snis="["+"!";
			snie="!"+"]";
			break;
	}
	output_area=document.getElementsByName("scg_output");
	output_area[0].value=snis+func_name+"?"+parmstr+snie;
}
function chgover(tparm)
{
	coelements=document.getElementsByName("co_"+tparm);
	taelements=document.getElementsByName(tparm);
	swap_elements=document.getElementsByName("swap_"+tparm);
	switch (coelements[0].checked)
	{
		case true:
			swap_elements[0].value=taelements[0].value;
			taelements[0].value=coelements[0].title;
			taelements[0].disabled=true;
			break;
		case false:
			taelements[0].value=swap_elements[0].value;
			taelements[0].disabled=false;
			break;
	}
	chgparm(tparm);
}
function local_subini(iniparm)
{
	document.getElementsByName("co_"+iniparm)[0].checked=true;
	www=chgover(iniparm);
	document.getElementsByName("swap_"+iniparm)[0].value="";	
}