#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

$conda= "This applicant received her PhD one year ago from the University 
of Illinois at Chicago. Her research is concerned with understanding the
cognitive mechanisms underlying individual
differences in working memory capacity.  She has published four 
articles in peer-reviewed journals, on two of which she 
was first author.";

$condb= "This applicant received his PhD one year ago from the University 
of Illinois at Chicago. His research is concerned with understanding the
cognitive mechanisms underlying individual
differences in working memory capacity.  He has published four 
articles in peer-reviewed journals, on two of which he 
was first author.";

@condlist= ("$conda", "$condb");
srand;
@new = ();
while (@condlist){
 push(@new, splice(@condlist, rand @condlist,1));
}
@condlist= @new;
$selectedcond= $condlist[0];

print $query->header;
print $query->start_html(-title=>'Job Study');
print "<FORM ACTION = 'mailto:fraley\@uic.edu' METHOD = 'post' ENCTYPE ='text/plain'>";
print "<B>Please read the following description of a job candidate for a
tenure-track cognitive position in your 
department.  After reading this description, please 
indicate how qualified you believe this person to be for 
the job.</B><BR><BR>
<CENTER>Applicant 3<BR></CENTER>";

print "$selectedcond";

print "<BR><BR><BR>
How qualified do you think this individual is for the job position?<BR>
<I>Not at all qualified </I>
<INPUT TYPE='radio' NAME = 'v01' VALUE = '1'>
<INPUT TYPE='radio' NAME = 'v01' VALUE = '2'>
<INPUT TYPE='radio' NAME = 'v01' VALUE = '3'>
<INPUT TYPE='radio' NAME = 'v01' VALUE = '4'>
<INPUT TYPE='radio' NAME = 'v01' VALUE = '5'>
<I> Strongly qualified </I><BR><BR>";

if($condlist[0] eq "$condb"){
print "<INPUT TYPE='hidden' NAME = 'condition' VALUE= 'male'>";
}

if($condlist[0] eq "$conda"){
print "<INPUT TYPE='hidden' NAME = 'condition' VALUE= 'female'>";
}



print "<INPUT TYPE = 'submit' VALUE ='Submit my evaluation'></FORM>";
print "</FORM>";
print $query->end_html;