Your question $qnum to subtest $subtest has been added
\n";
$qnum++;
&list_add_q;
}
# Import test.
sub import
{
print "Import $subtest " if $DEBUG;
print "
Import of subtest $subtest
\n\n";
&countq;
print "After this you shall make sure to set the subtest name\n \n";
$data = $cgi->param("data");
@x = split('\n', $data);
for ($i = 0; $i <= $#x; $i++)
{
# print "Row $i, $x[$i] \n" if $DEBUG;
($act, @rest) = split(';', $x[$i]);
print "Action $act, @rest \n" if $DEBUG;
if ($act eq "subtest")
{
$subtest = $rest[0] * 1;
print "
Setting subtest to $subtest
\n";
&countq;
}
if ($act eq "subn")
{
print "
Setting subtest name to $rest[0]
\n";
$stud{"subn$subtest"} = $rest[0];
}
if ($act eq "Q")
{
$totq++;
print "Setting Question $totq to $rest[0] \n";
$stud{"Q,$subtest,$totq"} = $rest[0];
}
if ($act eq "A")
{
$p = 1;
for ($j = 0; $j < $#rest; $j++)
{
if ($rest[$j] =~ /xa/i)
{
$co = $j + 1;
print "Set OK, $co \n" if $DEBUG;
next;
print "NEVER PRINTED\n";
}
$stud{"a$p,$subtest,$totq"} = $rest[$j];
if ($co == $j)
{
print "Setting correct Answer to $rest[$j] \n";
$stud{"f$p,$subtest,$totq"} = "ON";
}
else
{
print "Setting wrong Answer to $rest[$j] \n";
}
$p++;
last if $p > 5;
}
}
}
$subn = "";
$subtot = 0;
&list_sub_n;
}
# Export test.
sub export
{
print "Export $subtest " if $DEBUG;
$sn = $stud{"subn$subtest"};
print "
Export of $sn, subtest $subtest
\n\n";
print "This is the format suitable for import to the system. It can be\n";
print "generated from various database applications, such as Excel.\n";
print "\n";
print "
\n";
print "subtest; $subtest\n";
print "subn; $sn\n";
&countq;
for ($qnum = 1; $qnum <= $totq; $qnum++)
{
$Q = $stud{"Q,$subtest,$qnum"};
print "Q; $Q\n";
print "A;";
for ($i = 1; $i <= 5; $i++)
{
$a = $stud{"a$i,$subtest,$qnum"};
if ($a ne "")
{
if ($a ne "")
{
$f = $stud{"f$i,$subtest,$qnum"};
print "XA; " if ($f ne "");
print "$a; ";
}
}
}
print "\n";
}
print "
\n";
print "\n";
print "Now, you can cut&paste the above into the import facility!\n";
}
# Export/Import menu
sub expmenu
{
print "Export/Import $subtest " if $DEBUG;
print "
Export/Import questions for subtest $subtest
\n";
print "\n";
# Import
print "\n";
}
# Remove menu
sub remove
{
print "Remove menu Q subtest $subtest " if $DEBUG;
print "
Remove Questions for subtest $subtest
\n";
$qnum = 1;
while ($stud{"Q,$subtest,$qnum"} ne "")
{
print "\n";
$qnum++;
}
print "\n";
}
# Edit main menu questions sub
sub editmenu
{
print "Editmeny Q subtest $subtest " if $DEBUG;
print "
Edit Questions for subtest $subtest
\n";
&list_sub_n;
&list_subtest;
&list_add_q;
}
# Edit subtest name
sub list_sub_n
{
print "
Edit name of Subtest $subtest
\n";
print "\n";
}
# List add new question form
sub list_add_q
{
print "The new question will be # $qnum if added\n";
print "
\n";
print "
\n";
print "\n";
print "Return to student Index.\n";
}
# List questions in subtest
sub list_subtest
{
print "Listing questions for subtest $subtest " if $DEBUG;
$qnum = 1;
while ($stud{"Q,$subtest,$qnum"} ne "")
{
print "\n";
$qnum++;
}
}
# Edit questions sub
sub edit
{
print "Edit Q subtest $subtest, qnum $qnum " if $DEBUG;
&editq_msg;
}
# You did the student test, check number of Rights!
sub didstud_test
{
print "Did a student test subtest $subtest " if $DEBUG;
$nam = $cgi->param("nam");
$addr = $cgi->param("addr");
$ema = $cgi->param("ema");
$stud{"host$HOST"} = "$nam,,,$addr,,,$ema";
$totok = 0;
$qnum = 1;
while ($stud{"Q,$subtest,$qnum"} ne "")
{
$err = 0;
for ($i = 1; $i <= 5; $i++)
{
$q = "f$i,$subtest,$qnum";
$err++ if ($stud{$q} ne $cgi->param($q));
$url .= "&" . $q . "=ON" if ($cgi->param($q) eq "ON");
}
$totok++ if $err == 0;
$qnum++;
}
$qnum--;
$qnum = $subtot if $subtot >= 2;
$score = "You scored $totok right(s) out of $qnum questions on $subn";
$score .= " Congratulations, all answers right!" if $totok == $qnum;
print "
$score
\n";
$l = $totok * $LEVEL / $qnum;
$ln = $LEVNAM[$l];
print "Using level answer $l file $ln " if $DEBUG;
if ($RESINFILE)
{
open (LEV, "$ln") || print "No level file $ln available for your score";
while()
{
print $_;
}
close(LEV);
}
else
{
print $stud{$ln};
}
$sub = uri_escape($sub);
$date = uri_escape($cgi->param("date"));
$da = $cgi->param("date");
$em = $cgi->param("email");
$exam = $cgi->param("exam");
$email = uri_escape($cgi->param("email"));
$n = $cgi->param("name");
$name = uri_escape($cgi->param("name"));
$x = "$BASE/$MYNAME?";
$x .= "name=$name&email=$email&subtest=$subtest&date=$date&";
$x .= "action=studtest&seed=$seed&";
$x .= $url;
$out = "$n, $da. $score Follow here for full test host $HOST\n";
$date = `date`;
open (LOG, ">>testlog") || die "Cannot append testlog\n";
print LOG "$HOST $totok N: $nam E: $ema D: $date";
close (LOG);
if ($exam ne "")
{
$MAXEXAM++;
$log{"maxexam"} = $MAXEXAM;
$log{"E$MAXEXAM"} = $out;
}
else
{
$MAXTEST++;
$log{"maxtest"} = $MAXTEST;
$log{"T$MAXTEST"} = $out;
}
if ($em ne "")
{
print "
Sending email
\n";
$msg = "$score\n\n";
$msg .= "Student $n ($em) did a test, follow link to see score!\n\n$x\n";
$msg .= "\nThe Student test system.\n";
$subject = "$n did the test # $subtest";
require 'mh.lp';
&mh::send({'To' => "$EMAIL", 'From' => "$n <$em>",
'Cc' => "$cc", 'Subject' => $subject},
[{'text'=> $msg }], \$err);
}
}
# Time to exam!
sub exam
{
print "Doing student test EXAM subtest $subtest " if $DEBUG;
$x = $stud{"host$HOST"};
($nam, $addr, $ema) = split(',,,', $x);
$date = `date`;
$exam = "
\n";
}
print "\n";
}
# Count number of questions
sub countq
{
$totq = 1;
$totq++ while ($stud{"Q,$subtest,$totq"} ne "");
$totq--;
print "Counting questions to $totq\n" if $DEBUG;
}
# Remove one question
sub remoneq
{
print "
Remove Question $qnum from test $subtest
\n";
$q = ",$subtest,$qnum";
$Q = $stud{"Q$q"};
print "Question $Q will be removed\n";
if ($qnum > 0)
{
print "Removing question $q\n" if $DEBUG;
&countq;
for ($j = $qnum; $j < $totq; $j++)
{
$k = $j - 1;
print "Moving question $j to $k\n" if $DEBUG;
$stud{"Q,$subtest,$k"} = $stud{"Q,$subtest,$j"};
for ($i = 1; $i <= 5; $i++)
{
$stud{"a$i,$subtest,$k"} = $stud{"a$i,$subtest,$j"};
$stud{"f$i,$subtest,$k"} = $stud{"f$i,$subtest,$j"};
}
$q = ",$subtest,$totq";
}
delete $stud{"Q$q"};
for ($i = 1; $i <= 5; $i++)
{
delete $stud{"a$i$q"};
delete $stud{"f$i$q"};
}
}
}
# Edit file in base
sub editfile
{
$filename = $cgi->param("filename");
print "Edit file $filename " if $DEBUG;
print "
Edit the file $filename
\n";
print "\n";
}
# Remove all questions
sub remall
{
&countq;
print "Remove all $totq questions\n" if $DEBUG;
print "
All Questions of subtest $subtest will be removed
\n";
for ($qnum = $totq; $qnum > 0; $qnum--)
{
&remoneq;
$j++;
last if $j > 100;
}
delete $stud{"subn$subtest"};
delete $stud{"subtot$subtest"};
print "Press back to continue\n";
}
# Calculate random questions for test
# Alg: Get a random number. Fill that position from 1 - maxnum, keep
# then on maxnum times.
sub randq
{
print "Doing random numer\n" if $DEBUG;
&countq;
$y = 1;
for ($i = 1; $i <= $totq; $i++)
{
$qnum [$i] = 0;
}
for ($i = 1; $i <= $totq; $i++)
{
$y += int(rand($totq));
$y -= $totq if $y > $totq;
while ($qnum[$y] != 0)
{
$y++;
$y = 1 if $y > $totq;
}
$qnum [$y] = $i;
print "$y, " if $DEBUG;
}
print "Random done.\n " if $DEBUG;
}
# Print from logfile students who have done the exam test.
sub examlog
{
print "Doing exam log, max $MAXEXAM\n" if $DEBUG;
$entries = $cgi->param("entries");
$exam = $cgi->param("exam");
print "
Here you may edit questions of the subtest. If there are no\n";
print "questions right now, simply fill it in. You may use HTML, but be\n";
print "careful! All questions are multi choice, with 0 or 5 correct\n";
print "answers. The answers have to be answered exactly like the teacher\n";
print "sais to be correct.
\n";
print "\n";
print "\n";
print "Return to student Index.\n";
print "\n";
print "\n";
}
# List options to select a test.
sub selecttest
{
print "\n";
print " \n";
}