#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;
# Randomize items in a questionnaire
$pass= $query->param('pass');
$r0= $query->param('r0');
$r1= $query->param('r1');
$r2= $query->param('r2');
$r3= $query->param('r3');
$r4= $query->param('r4');
if($pass < 1){
$pass = 0;
}
print $query->header;
print $query->start_html(-title=>'randomization');
print "";
if($pass == 1){
print "Thank you for your responses.
";
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 == 0){
# randomly select a condition
print "