#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;
# Randomize items in a questionnaire
# and present different questionnaires on different pages
$pass= $query->param('pass');
$r0= $query->param('r0');
$r1= $query->param('r1');
$r2= $query->param('r2');
$r3= $query->param('r3');
$r4= $query->param('r4');
@itemIndex= $query->param('itemIndex');
# Information about the questionnaire
$v0 = "I drink coffee daily.";
$v1 = "I love coffee.";
$v2 = "It is coffee time now.";
$v3 = "I have java for brains.";
$v4 = "Sleep? You can sleep when you're dead.";
@variableNames = (r0,r1,r2,r3,r4);
@items = ($v0,$v1,$v2,$v3,$v4);
if($pass < 1){
$pass = 0;
}
print $query->header;
print $query->start_html(-title=>'randomization');
print "";
if($pass == 6){
print "Thank you for your responses.
";
print "itemIndex = @itemIndex
";
print "item 0 = $r0
";
print "item 1 = $r1
";
print "item 2 = $r2
";
print "item 3 = $r3
";
print "item 4 = $r4
";
# save data if desired
}
if($pass >= 1 && $pass <= 5){
# randomly select a condition
# $i will be used as an index value to determine which item to present
$i = $pass - 1;
print "