#!/usr/bin/perl require "cgi-lib.pl"; # Routine to display results of survey so far MAIN: print &PrintHeader; print < Survey of Driving Values

Survey of Driving Values

STUFF2 #5 Choices are in associative array "input" #read in stored results so far open(sfile, ""; @answers = split(/ /,$sofar); # print "answers = ",@answers, "

"; close(sfile); @names = ("","Career","Compassion/Tolerance","Determination","Education","Fairness","Family","Friendship","Happiness","Health","Honesty","Integrity","Justice","Love","Loyalty/Patriotism","Religion","Respect","Responsibilities","Self-Esteem/Self-Respect","Success/Winning","Trust","Other"); @sortednames = ("","","","","","","","","","","","","","","","","","","","","",""); @results = (); @used = (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1); #sort #check if totally empty $sum = 0; $k = 1; do {$sum = $sum + $answers[$k]; $k++} while ($k <= 21); if ($sum != 0) { #then side $done = 1; do { $largest = $answers[1] * $used[1]; $look = 2; $found = 1; do { if ($largest < $answers[$look] * $used[$look]) {$largest = $answers[$look]; $found=$look}; $look++; } while ($look <= 21); # end find largest $used[$found] = 0; #mark item as used $sortednames[$done] = $names[$found]; #put item in ordered list $results[$done] = $largest; #save value of survey item $done++; } while ($done <= 21); # end outer loop #compute total voting $sum = 0; $i = 1; do {$sum = $sum + $results[$i]; $i++} while ($i <= 21); $surveyed = $sum / 5; #print "sum= ",$sum; #print the results so far print <Results so far:

STUFF3 if ($results[1] != 0) {print ""}; if ($results[2] != 0) {print ""}; if ($results[3] != 0) {print ""}; if ($results[4] != 0) {print ""}; if ($results[5] != 0) {print ""}; if ($results[6] != 0) {print ""}; if ($results[7] != 0) {print ""}; if ($results[8] != 0) {print ""}; if ($results[9] != 0) {print ""}; if ($results[10] != 0) {print ""}; if ($results[11] != 0) {print ""}; if ($results[12] != 0) {print ""}; if ($results[13] != 0) {print ""}; if ($results[14] != 0) {print ""}; if ($results[15] != 0) {print ""}; if ($results[16] != 0) {print ""}; if ($results[17] != 0) {print ""}; if ($results[18] != 0) {print ""}; if ($results[19] != 0) {print ""}; if ($results[20] != 0) {print ""}; if ($results[21] != 0) {print ""}; print <
Number of Participants: $surveyed
© J.A.N. Lee, 1999.
STUFF4 } # end then part else {print "
NO RESULTS HAVE BEEN ACCUMULATED SO FAR
"}; print &HtmlBot;
$sortednames[1] $results[1]
$sortednames[2] $results[2]
$sortednames[3] $results[3]
$sortednames[4] $results[4]
$sortednames[5] $results[5]
$sortednames[6] $results[6]
$sortednames[7] $results[7]
$sortednames[8] $results[8]
$sortednames[9] $results[9]
$sortednames[10] $results[10]
$sortednames[11] $results[11]
$sortednames[12] $results[12]
$sortednames[13] $results[13]
$sortednames[14] $results[14]
$sortednames[15] $results[15]
$sortednames[16] $results[16]
$sortednames[17] $results[17]
$sortednames[18] $results[18]
$sortednames[19] $results[19]
$sortednames[20] $results[20]
$sortednames[21] $results[21]

$sortednames[1]	$results[1]
$sortednames[2]	$results[2]
$sortednames[3]	$results[3]
$sortednames[4]	$results[4]
$sortednames[5]	$results[5]
$sortednames[6]	$results[6]
$sortednames[7]	$results[7]
$sortednames[8]	$results[8]
$sortednames[9]	$results[9]
$sortednames[10]	$results[10]
$sortednames[11]	$results[11]
$sortednames[12]	$results[12]
$sortednames[13]	$results[13]
$sortednames[14]	$results[14]
$sortednames[15]	$results[15]
$sortednames[16]	$results[16]
$sortednames[17]	$results[17]
$sortednames[18]	$results[18]
$sortednames[19]	$results[19]
$sortednames[20]	$results[20]
$sortednames[21]	$results[21]