version 1.40, 2001/11/27 14:57:54
|
version 1.41, 2001/12/04 14:48:35
|
Line 45 sub caparesponse_check {
|
Line 45 sub caparesponse_check {
|
} elsif ($type eq 'mc') { $type = 5; |
} elsif ($type eq 'mc') { $type = 5; |
} elsif ($type eq 'fml') { $type = 8; |
} elsif ($type eq 'fml') { $type = 8; |
} elsif ($type eq 'subj') { $type = 7; |
} elsif ($type eq 'subj') { $type = 7; |
|
} elsif ($type eq 'float') { $type = 2; |
|
} elsif ($type eq 'int') { $type = 1; |
} else { return "ERROR: Unknown type of answer: $type" } |
} else { return "ERROR: Unknown type of answer: $type" } |
} |
} |
|
|