#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;
$behaviors_attitudes= $query->param('behaviors_attitudes');
$beliefs_attitudes= $query->param('beliefs_attitudes');
$beliefs_behaviors= $query->param('beliefs_behaviors');
$body_attitudes= $query->param('body_attitudes');
$body_behaviors= $query->param('body_behaviors');
$body_beliefs= $query->param('body_beliefs');
$brain_attitudes= $query->param('brain_attitudes');
$brain_behaviors= $query->param('brain_behaviors');
$brain_beliefs= $query->param('brain_beliefs');
$brain_body= $query->param('brain_body');
$conscience_attitudes= $query->param('conscience_attitudes');
$conscience_behaviors= $query->param('conscience_behaviors');
$conscience_beliefs= $query->param('conscience_beliefs');
$conscience_body= $query->param('conscience_body');
$conscience_brain= $query->param('conscience_brain');
$consciousness_attitudes= $query->param('consciousness_attitudes');
$consciousness_behaviors= $query->param('consciousness_behaviors');
$consciousness_beliefs= $query->param('consciousness_beliefs');
$consciousness_body= $query->param('consciousness_body');
$consciousness_brain= $query->param('consciousness_brain');
$consciousness_conscience= $query->param('consciousness_conscience');
$desires_attitudes= $query->param('desires_attitudes');
$desires_behaviors= $query->param('desires_behaviors');
$desires_beliefs= $query->param('desires_beliefs');
$desires_body= $query->param('desires_body');
$desires_brain= $query->param('desires_brain');
$desires_conscience= $query->param('desires_conscience');
$desires_consciousness= $query->param('desires_consciousness');
$emotions_attitudes= $query->param('emotions_attitudes');
$emotions_behaviors= $query->param('emotions_behaviors');
$emotions_beliefs= $query->param('emotions_beliefs');
$emotions_body= $query->param('emotions_body');
$emotions_brain= $query->param('emotions_brain');
$emotions_conscience= $query->param('emotions_conscience');
$emotions_consciousness= $query->param('emotions_consciousness');
$emotions_desires= $query->param('emotions_desires');
$essence_attitudes= $query->param('essence_attitudes');
$essence_behaviors= $query->param('essence_behaviors');
$essence_beliefs= $query->param('essence_beliefs');
$essence_body= $query->param('essence_body');
$essence_brain= $query->param('essence_brain');
$essence_conscience= $query->param('essence_conscience');
$essence_consciousness= $query->param('essence_consciousness');
$essence_desires= $query->param('essence_desires');
$essence_emotions= $query->param('essence_emotions');
$feelings_attitudes= $query->param('feelings_attitudes');
$feelings_behaviors= $query->param('feelings_behaviors');
$feelings_beliefs= $query->param('feelings_beliefs');
$feelings_body= $query->param('feelings_body');
$feelings_brain= $query->param('feelings_brain');
$feelings_conscience= $query->param('feelings_conscience');
$feelings_consciousness= $query->param('feelings_consciousness');
$feelings_desires= $query->param('feelings_desires');
$feelings_emotions= $query->param('feelings_emotions');
$feelings_essence= $query->param('feelings_essence');
$genes_attitudes= $query->param('genes_attitudes');
$genes_behaviors= $query->param('genes_behaviors');
$genes_beliefs= $query->param('genes_beliefs');
$genes_body= $query->param('genes_body');
$genes_brain= $query->param('genes_brain');
$genes_conscience= $query->param('genes_conscience');
$genes_consciousness= $query->param('genes_consciousness');
$genes_desires= $query->param('genes_desires');
$genes_emotions= $query->param('genes_emotions');
$genes_essence= $query->param('genes_essence');
$genes_feelings= $query->param('genes_feelings');
$heart_attitudes= $query->param('heart_attitudes');
$heart_behaviors= $query->param('heart_behaviors');
$heart_beliefs= $query->param('heart_beliefs');
$heart_body= $query->param('heart_body');
$heart_brain= $query->param('heart_brain');
$heart_conscience= $query->param('heart_conscience');
$heart_consciousness= $query->param('heart_consciousness');
$heart_desires= $query->param('heart_desires');
$heart_emotions= $query->param('heart_emotions');
$heart_essence= $query->param('heart_essence');
$heart_feelings= $query->param('heart_feelings');
$heart_genes= $query->param('heart_genes');
$love_attitudes= $query->param('love_attitudes');
$love_behaviors= $query->param('love_behaviors');
$love_beliefs= $query->param('love_beliefs');
$love_body= $query->param('love_body');
$love_brain= $query->param('love_brain');
$love_conscience= $query->param('love_conscience');
$love_consciousness= $query->param('love_consciousness');
$love_desires= $query->param('love_desires');
$love_emotions= $query->param('love_emotions');
$love_essence= $query->param('love_essence');
$love_feelings= $query->param('love_feelings');
$love_genes= $query->param('love_genes');
$love_heart= $query->param('love_heart');
$memories_attitudes= $query->param('memories_attitudes');
$memories_behaviors= $query->param('memories_behaviors');
$memories_beliefs= $query->param('memories_beliefs');
$memories_body= $query->param('memories_body');
$memories_brain= $query->param('memories_brain');
$memories_conscience= $query->param('memories_conscience');
$memories_consciousness= $query->param('memories_consciousness');
$memories_desires= $query->param('memories_desires');
$memories_emotions= $query->param('memories_emotions');
$memories_essence= $query->param('memories_essence');
$memories_feelings= $query->param('memories_feelings');
$memories_genes= $query->param('memories_genes');
$memories_heart= $query->param('memories_heart');
$memories_love= $query->param('memories_love');
$mind_attitudes= $query->param('mind_attitudes');
$mind_behaviors= $query->param('mind_behaviors');
$mind_beliefs= $query->param('mind_beliefs');
$mind_body= $query->param('mind_body');
$mind_brain= $query->param('mind_brain');
$mind_conscience= $query->param('mind_conscience');
$mind_consciousness= $query->param('mind_consciousness');
$mind_desires= $query->param('mind_desires');
$mind_emotions= $query->param('mind_emotions');
$mind_essence= $query->param('mind_essence');
$mind_feelings= $query->param('mind_feelings');
$mind_genes= $query->param('mind_genes');
$mind_heart= $query->param('mind_heart');
$mind_love= $query->param('mind_love');
$mind_memories= $query->param('mind_memories');
$morality_attitudes= $query->param('morality_attitudes');
$morality_behaviors= $query->param('morality_behaviors');
$morality_beliefs= $query->param('morality_beliefs');
$morality_body= $query->param('morality_body');
$morality_brain= $query->param('morality_brain');
$morality_conscience= $query->param('morality_conscience');
$morality_consciousness= $query->param('morality_consciousness');
$morality_desires= $query->param('morality_desires');
$morality_emotions= $query->param('morality_emotions');
$morality_essence= $query->param('morality_essence');
$morality_feelings= $query->param('morality_feelings');
$morality_genes= $query->param('morality_genes');
$morality_heart= $query->param('morality_heart');
$morality_love= $query->param('morality_love');
$morality_memories= $query->param('morality_memories');
$morality_mind= $query->param('morality_mind');
$personality_attitudes= $query->param('personality_attitudes');
$personality_behaviors= $query->param('personality_behaviors');
$personality_beliefs= $query->param('personality_beliefs');
$personality_body= $query->param('personality_body');
$personality_brain= $query->param('personality_brain');
$personality_conscience= $query->param('personality_conscience');
$personality_consciousness= $query->param('personality_consciousness');
$personality_desires= $query->param('personality_desires');
$personality_emotions= $query->param('personality_emotions');
$personality_essence= $query->param('personality_essence');
$personality_feelings= $query->param('personality_feelings');
$personality_genes= $query->param('personality_genes');
$personality_heart= $query->param('personality_heart');
$personality_love= $query->param('personality_love');
$personality_memories= $query->param('personality_memories');
$personality_mind= $query->param('personality_mind');
$personality_morality= $query->param('personality_morality');
$self_attitudes= $query->param('self_attitudes');
$self_behaviors= $query->param('self_behaviors');
$self_beliefs= $query->param('self_beliefs');
$self_body= $query->param('self_body');
$self_brain= $query->param('self_brain');
$self_conscience= $query->param('self_conscience');
$self_consciousness= $query->param('self_consciousness');
$self_desires= $query->param('self_desires');
$self_emotions= $query->param('self_emotions');
$self_essence= $query->param('self_essence');
$self_feelings= $query->param('self_feelings');
$self_genes= $query->param('self_genes');
$self_heart= $query->param('self_heart');
$self_love= $query->param('self_love');
$self_memories= $query->param('self_memories');
$self_mind= $query->param('self_mind');
$self_morality= $query->param('self_morality');
$self_personality= $query->param('self_personality');
$soul_attitudes= $query->param('soul_attitudes');
$soul_behaviors= $query->param('soul_behaviors');
$soul_beliefs= $query->param('soul_beliefs');
$soul_body= $query->param('soul_body');
$soul_brain= $query->param('soul_brain');
$soul_conscience= $query->param('soul_conscience');
$soul_consciousness= $query->param('soul_consciousness');
$soul_desires= $query->param('soul_desires');
$soul_emotions= $query->param('soul_emotions');
$soul_essence= $query->param('soul_essence');
$soul_feelings= $query->param('soul_feelings');
$soul_genes= $query->param('soul_genes');
$soul_heart= $query->param('soul_heart');
$soul_love= $query->param('soul_love');
$soul_memories= $query->param('soul_memories');
$soul_mind= $query->param('soul_mind');
$soul_morality= $query->param('soul_morality');
$soul_personality= $query->param('soul_personality');
$soul_self= $query->param('soul_self');
$spirit_attitudes= $query->param('spirit_attitudes');
$spirit_behaviors= $query->param('spirit_behaviors');
$spirit_beliefs= $query->param('spirit_beliefs');
$spirit_body= $query->param('spirit_body');
$spirit_brain= $query->param('spirit_brain');
$spirit_conscience= $query->param('spirit_conscience');
$spirit_consciousness= $query->param('spirit_consciousness');
$spirit_desires= $query->param('spirit_desires');
$spirit_emotions= $query->param('spirit_emotions');
$spirit_essence= $query->param('spirit_essence');
$spirit_feelings= $query->param('spirit_feelings');
$spirit_genes= $query->param('spirit_genes');
$spirit_heart= $query->param('spirit_heart');
$spirit_love= $query->param('spirit_love');
$spirit_memories= $query->param('spirit_memories');
$spirit_mind= $query->param('spirit_mind');
$spirit_morality= $query->param('spirit_morality');
$spirit_personality= $query->param('spirit_personality');
$spirit_self= $query->param('spirit_self');
$spirit_soul= $query->param('spirit_soul');
$thoughts_attitudes= $query->param('thoughts_attitudes');
$thoughts_behaviors= $query->param('thoughts_behaviors');
$thoughts_beliefs= $query->param('thoughts_beliefs');
$thoughts_body= $query->param('thoughts_body');
$thoughts_brain= $query->param('thoughts_brain');
$thoughts_conscience= $query->param('thoughts_conscience');
$thoughts_consciousness= $query->param('thoughts_consciousness');
$thoughts_desires= $query->param('thoughts_desires');
$thoughts_emotions= $query->param('thoughts_emotions');
$thoughts_essence= $query->param('thoughts_essence');
$thoughts_feelings= $query->param('thoughts_feelings');
$thoughts_genes= $query->param('thoughts_genes');
$thoughts_heart= $query->param('thoughts_heart');
$thoughts_love= $query->param('thoughts_love');
$thoughts_memories= $query->param('thoughts_memories');
$thoughts_mind= $query->param('thoughts_mind');
$thoughts_morality= $query->param('thoughts_morality');
$thoughts_personality= $query->param('thoughts_personality');
$thoughts_self= $query->param('thoughts_self');
$thoughts_soul= $query->param('thoughts_soul');
$thoughts_spirit= $query->param('thoughts_spirit');
$will_attitudes= $query->param('will_attitudes');
$will_behaviors= $query->param('will_behaviors');
$will_beliefs= $query->param('will_beliefs');
$will_body= $query->param('will_body');
$will_brain= $query->param('will_brain');
$will_conscience= $query->param('will_conscience');
$will_consciousness= $query->param('will_consciousness');
$will_desires= $query->param('will_desires');
$will_emotions= $query->param('will_emotions');
$will_essence= $query->param('will_essence');
$will_feelings= $query->param('will_feelings');
$will_genes= $query->param('will_genes');
$will_heart= $query->param('will_heart');
$will_love= $query->param('will_love');
$will_memories= $query->param('will_memories');
$will_mind= $query->param('will_mind');
$will_morality= $query->param('will_morality');
$will_personality= $query->param('will_personality');
$will_self= $query->param('will_self');
$will_soul= $query->param('will_soul');
$will_spirit= $query->param('will_spirit');
$will_thoughts= $query->param('will_thoughts');
$you_attitudes= $query->param('you_attitudes');
$you_behaviors= $query->param('you_behaviors');
$you_beliefs= $query->param('you_beliefs');
$you_body= $query->param('you_body');
$you_brain= $query->param('you_brain');
$you_conscience= $query->param('you_conscience');
$you_consciousness= $query->param('you_consciousness');
$you_desires= $query->param('you_desires');
$you_emotions= $query->param('you_emotions');
$you_essence= $query->param('you_essence');
$you_feelings= $query->param('you_feelings');
$you_genes= $query->param('you_genes');
$you_heart= $query->param('you_heart');
$you_love= $query->param('you_love');
$you_memories= $query->param('you_memories');
$you_mind= $query->param('you_mind');
$you_morality= $query->param('you_morality');
$you_personality= $query->param('you_personality');
$you_self= $query->param('you_self');
$you_soul= $query->param('you_soul');
$you_spirit= $query->param('you_spirit');
$you_thoughts= $query->param('you_thoughts');
$you_will= $query->param('you_will');
$title01= $query->param('title01');
$title02= $query->param('title02');
$title03= $query->param('title03');
@condition= $query->param('condition');
@comparison= $query->param('comparison');
$pass= $query->param('pass');
if($pass < 1)
{
$pass = 0;
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = 1900 + $year;
$mon= $mon+1;
$hour = $hour - 1;
$date1= "$mon/$mday/$year";
$date2= "$hour:$min:$sec";
print $query->header;
print $query->start_html(-title=>'Similarity Ratings');
print
"";
if ($pass == 0)
{
print "
";
}
if ($pass == 1)
{
print "";
}
if ($pass == 2)
{
print "";
}
if ($pass == 3)
{
#Saves the participant's data
&save();
#Opens jQuery files
print "
";
#Retrieves data
open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/heplerlabs.com/P593/similarity_ratings.txt");
@data = ;
close(INFO);
#Stores the current participant's data in two arrays and creates a label array
$participant_new = $data[-1];
@participant = split (/,/,$participant_new);
@youarray = @participant[258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,277,278,279,280];
@selfarray = @participant[158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,194,213,233,254];
@wordarray = ('attitudes', 'behaviors', 'beliefs', 'body', 'brain', 'conscience', 'consciousness', 'desires', 'emotions', 'essence', 'feelings', 'genes', 'heart', 'love', 'memories', 'mind', 'morality', 'personality', 'soul', 'spirit', 'thoughts', 'will');
print "
The results!
";
print "
Below is a map of how YOU view YOURSELF. Use your mouse to hover over each point and see what concept it represents.
On this map, the closer a concept is to the bottom left, the more central it is to your self-concept.
The closer the concept is to the top right, the less central it is to your self-concept.
";
#Opens a placeholder that will contain the flot graphic later
print "
";
#Begins flot
print "
";
print "
You can use the following map to see how your self-concept compares to the average self-concept of people who have taken this quiz!
";
#Stores the average of the group data in two arrays
@yougroup = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
@selfgroup = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
@counter = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
foreach $row (@data)
{
@participant = split(/,/,$row);
if ($participant[258] > 0 && $participant[158] > 0)
{
$yougroup[0] = $yougroup[0] + $participant[258];
$selfgroup[0] = $selfgroup[0] + $participant[158];
$counter[0]++;
}
if ($participant[259] > 0 && $participant[159] > 0)
{
$yougroup[1] = $yougroup[1] + $participant[259];
$selfgroup[1] = $selfgroup[1] + $participant[159];
$counter[1]++;
}
if ($participant[260] > 0 && $participant[160] > 0)
{
$yougroup[2] = $yougroup[2] + $participant[260];
$selfgroup[2] = $selfgroup[2] + $participant[160];
$counter[2]++;
}
if ($participant[261] > 0 && $participant[161] > 0)
{
$yougroup[3] = $yougroup[3] + $participant[261];
$selfgroup[3] = $selfgroup[3] + $participant[161];
$counter[3]++;
}
if ($participant[262] > 0 && $participant[162] > 0)
{
$yougroup[4] = $yougroup[4] + $participant[262];
$selfgroup[4] = $selfgroup[4] + $participant[162];
$counter[4]++;
}
if ($participant[263] > 0 && $participant[163] > 0)
{
$yougroup[5] = $yougroup[5] + $participant[263];
$selfgroup[5] = $selfgroup[5] + $participant[163];
$counter[5]++;
}
if ($participant[264] > 0 && $participant[164] > 0)
{
$yougroup[6] = $yougroup[6] + $participant[264];
$selfgroup[6] = $selfgroup[6] + $participant[164];
$counter[6]++;
}
if ($participant[265] > 0 && $participant[165] > 0)
{
$yougroup[7] = $yougroup[7] + $participant[265];
$selfgroup[7] = $selfgroup[7] + $participant[165];
$counter[7]++;
}
if ($participant[266] > 0 && $participant[166] > 0)
{
$yougroup[8] = $yougroup[8] + $participant[266];
$selfgroup[8] = $selfgroup[8] + $participant[166];
$counter[8]++;
}
if ($participant[267] > 0 && $participant[167] > 0)
{
$yougroup[9] = $yougroup[9] + $participant[267];
$selfgroup[9] = $selfgroup[9] + $participant[167];
$counter[9]++;
}
if ($participant[268] > 0 && $participant[168] > 0)
{
$yougroup[10] = $yougroup[10] + $participant[268];
$selfgroup[10] = $selfgroup[10] + $participant[168];
$counter[10]++;
}
if ($participant[269] > 0 && $participant[168] > 0)
{
$yougroup[11] = $yougroup[11] + $participant[269];
$selfgroup[11] = $selfgroup[11] + $participant[169];
$counter[11]++;
}
if ($participant[270] > 0 && $participant[170] > 0)
{
$yougroup[12] = $yougroup[12] + $participant[270];
$selfgroup[12] = $selfgroup[12] + $participant[170];
$counter[12]++;
}
if ($participant[271] > 0 && $participant[171] > 0)
{
$yougroup[13] = $yougroup[13] + $participant[271];
$selfgroup[13] = $selfgroup[13] + $participant[171];
$counter[13]++;
}
if ($participant[272] > 0 && $participant[172] > 0)
{
$yougroup[14] = $yougroup[14] + $participant[272];
$selfgroup[14] = $selfgroup[14] + $participant[172];
$counter[14]++;
}
if ($participant[273] > 0 && $participant[173] > 0)
{
$yougroup[15] = $yougroup[15] + $participant[273];
$selfgroup[15] = $selfgroup[15] + $participant[173];
$counter[15]++;
}
if ($participant[274] > 0 && $participant[174] > 0)
{
$yougroup[16] = $yougroup[16] + $participant[274];
$selfgroup[16] = $selfgroup[16] + $participant[174];
$counter[16]++;
}
if ($participant[275] > 0 && $participant[175] > 0)
{
$yougroup[17] = $yougroup[17] + $participant[275];
$selfgroup[17] = $selfgroup[17] + $participant[175];
$counter[17]++;
}
if ($participant[277] > 0 && $participant[194] > 0)
{
$yougroup[18] = $yougroup[18] + $participant[277];
$selfgroup[18] = $selfgroup[18] + $participant[194];
$counter[18]++;
}
if ($participant[278] > 0 && $participant[213] > 0)
{
$yougroup[19] = $yougroup[19] + $participant[278];
$selfgroup[19] = $selfgroup[19] + $participant[213];
$counter[19]++;
}
if ($participant[279] > 0 && $participant[233] > 0)
{
$yougroup[20] = $yougroup[20] + $participant[279];
$selfgroup[20] = $selfgroup[20] + $participant[233];
$counter[20]++;
}
if ($participant[280] > 0 && $participant[254] > 0)
{
$yougroup[21] = $yougroup[21] + $participant[280];
$selfgroup[21] = $selfgroup[21] + $participant[254];
$counter[21]++;
}
}
for ($i = 0; $i <= 21; $i++)
{
$yougroup[$i] = sprintf("%.2f",($yougroup[$i] / $counter[$i]));
$selfgroup[$i] = sprintf("%.2f",($selfgroup[$i] / $counter[$i]));
}
#Group data into flot
#Opens a placeholder that will contain the flot graphic later
print "
";
#Begins flot
print "
";
#Outro
print "
Thanks for participating!
";
print "
Return to Hepler Labs \n
";
}
#Randomizes the elements of an array and returns the new array
sub randomize
{
srand;
my(@new) = ();
while (@_)
{
push(@new, splice(@_, rand @_,1));
}
return @new;
}
#This subroutine automates the comparison-questionnaire generation
sub compare
{
#Stores comparison items
@item1 =
(
"Behaviors",
"Beliefs",
"Beliefs",
"Body",
"Body",
"Body",
"Brain",
"Brain",
"Brain",
"Brain",
"Conscience",
"Conscience",
"Conscience",
"Conscience",
"Conscience",
"Consciousness",
"Consciousness",
"Consciousness",
"Consciousness",
"Consciousness",
"Consciousness",
"Desires",
"Desires",
"Desires",
"Desires",
"Desires",
"Desires",
"Desires",
"Emotions",
"Emotions",
"Emotions",
"Emotions",
"Emotions",
"Emotions",
"Emotions",
"Emotions",
"Essence",
"Essence",
"Essence",
"Essence",
"Essence",
"Essence",
"Essence",
"Essence",
"Essence",
"Feelings",
"Feelings",
"Feelings",
"Feelings",
"Feelings",
"Feelings",
"Feelings",
"Feelings",
"Feelings",
"Feelings",
"Genes",
"Genes",
"Genes",
"Genes",
"Genes",
"Genes",
"Genes",
"Genes",
"Genes",
"Genes",
"Genes",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Heart",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Love",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Memories",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Mind",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Morality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Personality",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Self",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Soul",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Spirit",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Thoughts",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"Will",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You",
"You"
);
@item2 =
(
"Attitudes",
"Attitudes",
"Behaviors",
"Attitudes",
"Behaviors",
"Beliefs",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Morality",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Morality",
"Personality",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Morality",
"Personality",
"Self",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Morality",
"Personality",
"Self",
"Soul",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Morality",
"Personality",
"Self",
"Soul",
"Spirit",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Morality",
"Personality",
"Self",
"Soul",
"Spirit",
"Thoughts",
"Attitudes",
"Behaviors",
"Beliefs",
"Body",
"Brain",
"Conscience",
"Consciousness",
"Desires",
"Emotions",
"Essence",
"Feelings",
"Genes",
"Heart",
"Love",
"Memories",
"Mind",
"Morality",
"Personality",
"Self",
"Soul",
"Spirit",
"Thoughts",
"Will"
);
@variables =
(
"behaviors_attitudes",
"beliefs_attitudes",
"beliefs_behaviors",
"body_attitudes",
"body_behaviors",
"body_beliefs",
"brain_attitudes",
"brain_behaviors",
"brain_beliefs",
"brain_body",
"conscience_attitudes",
"conscience_behaviors",
"conscience_beliefs",
"conscience_body",
"conscience_brain",
"consciousness_attitudes",
"consciousness_behaviors",
"consciousness_beliefs",
"consciousness_body",
"consciousness_brain",
"consciousness_conscience",
"desires_attitudes",
"desires_behaviors",
"desires_beliefs",
"desires_body",
"desires_brain",
"desires_conscience",
"desires_consciousness",
"emotions_attitudes",
"emotions_behaviors",
"emotions_beliefs",
"emotions_body",
"emotions_brain",
"emotions_conscience",
"emotions_consciousness",
"emotions_desires",
"essence_attitudes",
"essence_behaviors",
"essence_beliefs",
"essence_body",
"essence_brain",
"essence_conscience",
"essence_consciousness",
"essence_desires",
"essence_emotions",
"feelings_attitudes",
"feelings_behaviors",
"feelings_beliefs",
"feelings_body",
"feelings_brain",
"feelings_conscience",
"feelings_consciousness",
"feelings_desires",
"feelings_emotions",
"feelings_essence",
"genes_attitudes",
"genes_behaviors",
"genes_beliefs",
"genes_body",
"genes_brain",
"genes_conscience",
"genes_consciousness",
"genes_desires",
"genes_emotions",
"genes_essence",
"genes_feelings",
"heart_attitudes",
"heart_behaviors",
"heart_beliefs",
"heart_body",
"heart_brain",
"heart_conscience",
"heart_consciousness",
"heart_desires",
"heart_emotions",
"heart_essence",
"heart_feelings",
"heart_genes",
"love_attitudes",
"love_behaviors",
"love_beliefs",
"love_body",
"love_brain",
"love_conscience",
"love_consciousness",
"love_desires",
"love_emotions",
"love_essence",
"love_feelings",
"love_genes",
"love_heart",
"memories_attitudes",
"memories_behaviors",
"memories_beliefs",
"memories_body",
"memories_brain",
"memories_conscience",
"memories_consciousness",
"memories_desires",
"memories_emotions",
"memories_essence",
"memories_feelings",
"memories_genes",
"memories_heart",
"memories_love",
"mind_attitudes",
"mind_behaviors",
"mind_beliefs",
"mind_body",
"mind_brain",
"mind_conscience",
"mind_consciousness",
"mind_desires",
"mind_emotions",
"mind_essence",
"mind_feelings",
"mind_genes",
"mind_heart",
"mind_love",
"mind_memories",
"morality_attitudes",
"morality_behaviors",
"morality_beliefs",
"morality_body",
"morality_brain",
"morality_conscience",
"morality_consciousness",
"morality_desires",
"morality_emotions",
"morality_essence",
"morality_feelings",
"morality_genes",
"morality_heart",
"morality_love",
"morality_memories",
"morality_mind",
"personality_attitudes",
"personality_behaviors",
"personality_beliefs",
"personality_body",
"personality_brain",
"personality_conscience",
"personality_consciousness",
"personality_desires",
"personality_emotions",
"personality_essence",
"personality_feelings",
"personality_genes",
"personality_heart",
"personality_love",
"personality_memories",
"personality_mind",
"personality_morality",
"self_attitudes",
"self_behaviors",
"self_beliefs",
"self_body",
"self_brain",
"self_conscience",
"self_consciousness",
"self_desires",
"self_emotions",
"self_essence",
"self_feelings",
"self_genes",
"self_heart",
"self_love",
"self_memories",
"self_mind",
"self_morality",
"self_personality",
"soul_attitudes",
"soul_behaviors",
"soul_beliefs",
"soul_body",
"soul_brain",
"soul_conscience",
"soul_consciousness",
"soul_desires",
"soul_emotions",
"soul_essence",
"soul_feelings",
"soul_genes",
"soul_heart",
"soul_love",
"soul_memories",
"soul_mind",
"soul_morality",
"soul_personality",
"soul_self",
"spirit_attitudes",
"spirit_behaviors",
"spirit_beliefs",
"spirit_body",
"spirit_brain",
"spirit_conscience",
"spirit_consciousness",
"spirit_desires",
"spirit_emotions",
"spirit_essence",
"spirit_feelings",
"spirit_genes",
"spirit_heart",
"spirit_love",
"spirit_memories",
"spirit_mind",
"spirit_morality",
"spirit_personality",
"spirit_self",
"spirit_soul",
"thoughts_attitudes",
"thoughts_behaviors",
"thoughts_beliefs",
"thoughts_body",
"thoughts_brain",
"thoughts_conscience",
"thoughts_consciousness",
"thoughts_desires",
"thoughts_emotions",
"thoughts_essence",
"thoughts_feelings",
"thoughts_genes",
"thoughts_heart",
"thoughts_love",
"thoughts_memories",
"thoughts_mind",
"thoughts_morality",
"thoughts_personality",
"thoughts_self",
"thoughts_soul",
"thoughts_spirit",
"will_attitudes",
"will_behaviors",
"will_beliefs",
"will_body",
"will_brain",
"will_conscience",
"will_consciousness",
"will_desires",
"will_emotions",
"will_essence",
"will_feelings",
"will_genes",
"will_heart",
"will_love",
"will_memories",
"will_mind",
"will_morality",
"will_personality",
"will_self",
"will_soul",
"will_spirit",
"will_thoughts",
"you_attitudes",
"you_behaviors",
"you_beliefs",
"you_body",
"you_brain",
"you_conscience",
"you_consciousness",
"you_desires",
"you_emotions",
"you_essence",
"you_feelings",
"you_genes",
"you_heart",
"you_love",
"you_memories",
"you_mind",
"you_morality",
"you_personality",
"you_self",
"you_soul",
"you_spirit",
"you_thoughts",
"you_will"
);
#Prints each questionnaire item separately with radio buttons from 1 - 7
print " ";
}
#Saves the data to a file
sub save
{
open(INFO, ">>$ENV{'DOCUMENT_ROOT_OLD'}/www/heplerlabs.com/P593/similarity_ratings.txt");
print INFO "$date1,$date2,$title01,$title02,$title03,$behaviors_attitudes,$beliefs_attitudes,$beliefs_behaviors,$body_attitudes,$body_behaviors,$body_beliefs,$brain_attitudes,$brain_behaviors,$brain_beliefs,$brain_body,$conscience_attitudes,$conscience_behaviors,$conscience_beliefs,$conscience_body,$conscience_brain,$consciousness_attitudes,$consciousness_behaviors,$consciousness_beliefs,$consciousness_body,$consciousness_brain,$consciousness_conscience,$desires_attitudes,$desires_behaviors,$desires_beliefs,$desires_body,$desires_brain,$desires_conscience,$desires_consciousness,$emotions_attitudes,$emotions_behaviors,$emotions_beliefs,$emotions_body,$emotions_brain,$emotions_conscience,$emotions_consciousness,$emotions_desires,$essence_attitudes,$essence_behaviors,$essence_beliefs,$essence_body,$essence_brain,$essence_conscience,$essence_consciousness,$essence_desires,$essence_emotions,$feelings_attitudes,$feelings_behaviors,$feelings_beliefs,$feelings_body,$feelings_brain,$feelings_conscience,$feelings_consciousness,$feelings_desires,$feelings_emotions,$feelings_essence,$genes_attitudes,$genes_behaviors,$genes_beliefs,$genes_body,$genes_brain,$genes_conscience,$genes_consciousness,$genes_desires,$genes_emotions,$genes_essence,$genes_feelings,$heart_attitudes,$heart_behaviors,$heart_beliefs,$heart_body,$heart_brain,$heart_conscience,$heart_consciousness,$heart_desires,$heart_emotions,$heart_essence,$heart_feelings,$heart_genes,$love_attitudes,$love_behaviors,$love_beliefs,$love_body,$love_brain,$love_conscience,$love_consciousness,$love_desires,$love_emotions,$love_essence,$love_feelings,$love_genes,$love_heart,$memories_attitudes,$memories_behaviors,$memories_beliefs,$memories_body,$memories_brain,$memories_conscience,$memories_consciousness,$memories_desires,$memories_emotions,$memories_essence,$memories_feelings,$memories_genes,$memories_heart,$memories_love,$mind_attitudes,$mind_behaviors,$mind_beliefs,$mind_body,$mind_brain,$mind_conscience,$mind_consciousness,$mind_desires,$mind_emotions,$mind_essence,$mind_feelings,$mind_genes,$mind_heart,$mind_love,$mind_memories,$morality_attitudes,$morality_behaviors,$morality_beliefs,$morality_body,$morality_brain,$morality_conscience,$morality_consciousness,$morality_desires,$morality_emotions,$morality_essence,$morality_feelings,$morality_genes,$morality_heart,$morality_love,$morality_memories,$morality_mind,$personality_attitudes,$personality_behaviors,$personality_beliefs,$personality_body,$personality_brain,$personality_conscience,$personality_consciousness,$personality_desires,$personality_emotions,$personality_essence,$personality_feelings,$personality_genes,$personality_heart,$personality_love,$personality_memories,$personality_mind,$personality_morality,$self_attitudes,$self_behaviors,$self_beliefs,$self_body,$self_brain,$self_conscience,$self_consciousness,$self_desires,$self_emotions,$self_essence,$self_feelings,$self_genes,$self_heart,$self_love,$self_memories,$self_mind,$self_morality,$self_personality,$soul_attitudes,$soul_behaviors,$soul_beliefs,$soul_body,$soul_brain,$soul_conscience,$soul_consciousness,$soul_desires,$soul_emotions,$soul_essence,$soul_feelings,$soul_genes,$soul_heart,$soul_love,$soul_memories,$soul_mind,$soul_morality,$soul_personality,$soul_self,$spirit_attitudes,$spirit_behaviors,$spirit_beliefs,$spirit_body,$spirit_brain,$spirit_conscience,$spirit_consciousness,$spirit_desires,$spirit_emotions,$spirit_essence,$spirit_feelings,$spirit_genes,$spirit_heart,$spirit_love,$spirit_memories,$spirit_mind,$spirit_morality,$spirit_personality,$spirit_self,$spirit_soul,$thoughts_attitudes,$thoughts_behaviors,$thoughts_beliefs,$thoughts_body,$thoughts_brain,$thoughts_conscience,$thoughts_consciousness,$thoughts_desires,$thoughts_emotions,$thoughts_essence,$thoughts_feelings,$thoughts_genes,$thoughts_heart,$thoughts_love,$thoughts_memories,$thoughts_mind,$thoughts_morality,$thoughts_personality,$thoughts_self,$thoughts_soul,$thoughts_spirit,$will_attitudes,$will_behaviors,$will_beliefs,$will_body,$will_brain,$will_conscience,$will_consciousness,$will_desires,$will_emotions,$will_essence,$will_feelings,$will_genes,$will_heart,$will_love,$will_memories,$will_mind,$will_morality,$will_personality,$will_self,$will_soul,$will_spirit,$will_thoughts,$you_attitudes,$you_behaviors,$you_beliefs,$you_body,$you_brain,$you_conscience,$you_consciousness,$you_desires,$you_emotions,$you_essence,$you_feelings,$you_genes,$you_heart,$you_love,$you_memories,$you_mind,$you_morality,$you_personality,$you_self,$you_soul,$you_spirit,$you_thoughts,$you_will,$condition[0],endline\n";
close(INFO);
}
#Passes variables that the user has entered
sub passhidden
{
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print $query->hidden(title01, $title01);
print $query->hidden(title02, $title02);
print $query->hidden(title03, $title03);
print $query->hidden(condition, @condition);
print $query->hidden(comparison, @comparison);
print " ";
}