function setTextBoxes()
{

	var formObj = document.getElementById('questid');
	
	selectedButton = -1;
	for(i = 0; i < formObj.q1.length; i++)
	{
		if ( formObj.q1[i].checked )
		{
			selectedButton = i;
		}
	}
	if ( selectedButton  > -1)
	{
		formObj.q1_txt.value = formObj.q1[selectedButton].value;
	}
	
	selectedButton = -1;
	for(i = 0; i < formObj.q2.length; i++)
	{
		if ( formObj.q2[i].checked )
		{
			selectedButton = i;
		}
	}
	if ( selectedButton  > -1)
	{
		formObj.q2_txt.value = formObj.q2[selectedButton].value;
	}

	selectedButton = -1;
	for(i = 0; i < formObj.q3.length; i++)
	{
		if ( formObj.q3[i].checked )
		{
			selectedButton = i;
		}
	}
	if ( selectedButton  > -1)
	{
		formObj.q3_txt.value = formObj.q3[selectedButton].value;
	}

	selectedButton = -1;
	for(i = 0; i < formObj.q4.length; i++)
	{
		if ( formObj.q4[i].checked )
		{
			selectedButton = i;
		}
	}
	if ( selectedButton  > -1)
	{
		formObj.q4_txt.value = formObj.q4[selectedButton].value;
	}

	selectedButton = -1;
	for(i = 0; i < formObj.q5.length; i++)
	{
		if ( formObj.q5[i].checked )
		{
			selectedButton = i;
		}
	}
	if ( selectedButton  > -1)
	{
		formObj.q5_txt.value = formObj.q5[selectedButton].value;
	}
	
	selectedButton = -1;
	for(i = 0; i < formObj.q6.length; i++)
	{
		if ( formObj.q6[i].checked )
		{
			selectedButton = i;
		}
	}
	if ( selectedButton  > -1)
	{
		formObj.q6_txt.value = formObj.q6[selectedButton].value;
	}
	
	selectedButton = -1;
	for(i = 0; i < formObj.q7.length; i++)
	{
		if ( formObj.q7[i].checked )
		{
			selectedButton = i;
		}
	}
	if ( selectedButton  > -1)
	{
		formObj.q7_txt.value = formObj.q7[selectedButton].value;
	}

}

function submit_form() {
 	var msg = "";
	
	if (whichAnswer(document.questions.q1)==null) msg = msg + "Neatsakėte į PIRMĄ klausimą\n";
	if (whichAnswer(document.questions.q2)==null) msg = msg + "Neatsakėte į ANTRĄ klausimą\n";
	if (whichAnswer(document.questions.q3)==null) msg = msg + "Neatsakėte į TREČIĄ klausimą\n";
	if (whichAnswer(document.questions.q4)==null) msg = msg + "Neatsakėte į KETVIRTĄ klausimą\n";
	if (whichAnswer(document.questions.q5)==null) msg = msg + "Neatsakėte į PENKTĄ klausimą\n";
	if (whichAnswer(document.questions.q6)==null) msg = msg + "Neatsakėte į ŠEŠTĄ klausimą\n";
	if (whichAnswer(document.questions.q7)==null) msg = msg + "Neatsakėte į SEPTINTĄ klausimą\n";
	if (msg=="") {
		if (document.questions.gender.value=="null") msg = msg + "Nurodykite vaiko lytį\n";
		if (document.questions.age.value=="null") msg = msg + "Nurodykite vaiko amžių\n";
		if (document.questions.medication.value=="null") msg = msg + "Nurodykite, kokius vaistus vaikas vartoja\n";
	}

	if (msg!="") {
	 	alert(msg);
		return false;
	}
	else {
		document.questions.submit();
		return true;
	}
}

function whichAnswer(r) {
	for (var i=0; i<r.length; i++){
		if (r[i].checked) return i;
	}
}

function sendtoprinter(text){
text=document;
print(text);
}