
//	create_jscript_to_perl_variable.js		2007-05-08
//
//	js functions for the include_anlys_popup_form (css & pl )
//
//	working on undef


function submitAnlysData(prmFormName)	{

	//document.myIncludeJscriptForm.Param_anlys_notes.value	= errorNote;
	document[prmFormName].Param_anlys_notes.value	= errorNote;

	// alert (document.myIncludeJscriptForm.Param_anlys_notes.value);

	var lineBreak = '\n';
	// lineBreak='';
	var outputVariable='';
	outputVariable += lineBreak;
	outputVariable += '\$dataArray = [' + lineBreak ;
	//outputVariable += lineBreak;
	var incr1 = 0;
	for (var x in dataArray)
	{
		outputVariable += returnComma(incr1++);			// second layer open square bracket
		//outputVariable += '## possible comma inbetween level one';
		outputVariable += lineBreak;

		if  ( dataArray[x] > '' )
		{
			outputVariable += '[';							// first layer open 
			//outputVariable += '#' + x + ' first level';	// add comment array number
			outputVariable += lineBreak;

			var incr2 = 0;
			for (var y in dataArray[x])
			{									// second layer start looping
				outputVariable += '    ';
				outputVariable += returnComma(incr2++);			// second layer open square bracket
				//outputVariable += ' ## possible comma inbetween level two';
				outputVariable += lineBreak;

				if  ( dataArray[x][y] > '' )		{

					// ??? outputVariable += '    [';	
					//outputVariable += ' # second level has something opening';
					//outputVariable += lineBreak;
					//outputVariable += '    # ' + x + '-' + y + ' second level';		// add comment array number
					//outputVariable += lineBreak;

					outputVariable += '        {';			// third layer open squigly bracket
					//outputVariable += ' # third level opening';
					outputVariable += lineBreak;

					if  (	dataArray[x][y]['Client_anlys_detail_error_sound_1']	> ''
					    ||	dataArray[x][y]['Client_anlys_detail_error_sound_2']	> ''
					    ||	dataArray[x][y]['Client_anlys_detail_error_sound_3']	> ''
					    ||	dataArray[x][y]['Client_anlys_detail_error_sound_4']	> ''
					    ||	dataArray[x][y]['Client_anlys_detail_error_speaking_count']	> ''
					    ||	dataArray[x][y]['Client_anlys_detail_error_frequency']	> ''
					    ||	dataArray[x][y]['Client_anlys_detail_error_notes']	> ''
					    )	// are any filled in?
					{
					    var incr3=0;
					    for ( var z in dataArray[x][y] )	{		// third layer start looping
						outputVariable += '        ';
						outputVariable += returnComma(incr3++);			// second layer open square bracket
						//outputVariable += ' ## possible comma inbetween level three';
						outputVariable += lineBreak;

						if  ( dataArray[x][y][z] > '' )	{

//							outputVariable += '        #'
//									+ x
//									+ '-'
//									+ y
//									+ '-'
//									+ z
//									+ ' third level ' ;	// add comment array number
							//outputVariable += lineBreak;
							outputVariable	+=	''
								+	'               '
								+	"'"
								+	z
								+	"'"
								+	'=>'
								+	"'"
								+	dataArray[x][y][z]
								+	"'"
								+	''
								;
							outputVariable += lineBreak;
						} else {
							outputVariable += '         undef,undef' // two for hash undef
							outputVariable += lineBreak;
						};

					    };							// third layer end looping
					};

					outputVariable += '        }';			// third layer close squigly bracket
					//outputVariable += ' # third level closing';
					outputVariable += lineBreak;

					// ??? outputVariable += '    ]'	;					// close second layer square bracket
					//outputVariable += ' # second level has something closing';
					// outputVariable += lineBreak;

				} else {
					outputVariable += '            undef';
					//outputVariable += ' ## second level';
					outputVariable += lineBreak;
				};
			};								// end second layer loop

			outputVariable += ']'	;					// close second layer square bracket
			//outputVariable += ' # first level closing';
			outputVariable += lineBreak;

		} else {
			outputVariable += 'undef';
			outputVariable += lineBreak;
		};
	}
	;
	outputVariable += '];'	;
	 //alert ( outputVariable );
	//document.myIncludeJscriptForm.myGrandGlobalArray.value	= outputVariable;
	//document.myIncludeJscriptForm.Param_anlys_array.value	= outputVariable;
	document[prmFormName].Param_anlys_array.value	= outputVariable;
};


function returnComma	( inc )	{
	if  ( inc > 0 ) {
		return	','	;
	} else {
		return	''	;
	};
};



