#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

# Demo for loop to access elements in an array - questionnaire application

# Prepare to send HTML code to browser

print $query->header;
print $query->start_html(-title=>'Thank	You');

# Store the questionnaire items as separate elements of an array

@items = ("I feel that I'm a person of worth, at least on an equal plane with others.","I feel that I have a number of good qualities.","All in all, I am inclined to feel that I am a failure.","I am able to do things as well as most other people.","I feel I do not have much to be proud of.");


# One way to do it
print "One way to do it (see Perl code)<BR><BR>";

@variables = ("v01","v02","v03","v04","v05");


# Loop through items
for($i = 0; $i <= 4; ++$i){

	$itemNumber = $i+1;

	print "$itemNumber. $items[$i] <BR>";
	print "Strongly Disagree"; 
	print "<INPUT TYPE=radio NAME=$variables[$i] value=1>";
	print "<INPUT TYPE=radio NAME=$variables[$i] value=2>";
	print "<INPUT TYPE=radio NAME=$variables[$i] value=3>";
	print "<INPUT TYPE=radio NAME=$variables[$i] value=4>";
	print "<INPUT TYPE=radio NAME=$variables[$i] value=5>";
	print "Strongly Agree<BR><BR>";

}



# Another way to do it
print "<HR><BR>Another way to do it (see Perl code)<BR><BR>";

# Loop through items
for($i = 0; $i <= 4; ++$i){

	$itemName = "v" . $i;
	$itemNumber = $i+1;

	print "$itemNumber. $items[$i] <BR>";
	print "Strongly Disagree"; 
	print "<INPUT TYPE=radio NAME=$itemName value=1>";
	print "<INPUT TYPE=radio NAME=$itemName value=2>";
	print "<INPUT TYPE=radio NAME=$itemName value=3>";
	print "<INPUT TYPE=radio NAME=$itemName value=4>";
	print "<INPUT TYPE=radio NAME=$itemName value=5>";
	print "Strongly Agree<BR><BR>";

}


# A third way to do it
print "<BR><hr><BR>A third way to do it (see Perl code)<BR><BR>";

# Loop through items
for($i = 0; $i <= 4; ++$i){

	$itemName = "v" . $i;
	$itemNumber = $i+1;

	print "$itemNumber. $items[$i] <BR>";
	print "Strongly Disagree"; 

	# Loop through radio buttons and values
	for($j = 1; $j <= 5; ++$j){

		print "<INPUT TYPE=radio NAME=$itemName value=$j>";
	
	} # end j

	print "Strongly Agree<BR><BR>";

} # end i



# Note: There is no submit button here because everything else we've done is the same.

print $query->end_html;