version 1.29, 2001/07/11 21:36:29
|
version 1.30, 2001/07/13 14:49:28
|
Line 82 sub caparesponse_check {
|
Line 82 sub caparesponse_check {
|
|
|
sub caparesponse_check_list { |
sub caparesponse_check_list { |
my ($response,$expr)=@_; |
my ($response,$expr)=@_; |
|
# do these first, because who knows what varname the instructor might have used |
|
# but it probably isn't $CAPARESPONSE_CHECK_LIST_answer |
|
my $CAPARESPONSE_CHECK_LIST_answer = eval $expr.';return $answer'; |
|
my (@list) = eval $CAPARESPONSE_CHECK_LIST_answer; |
my $result=''; |
my $result=''; |
my $aresult=''; |
my $aresult=''; |
my $current_answer; |
my $current_answer; |
my $answer = eval $expr.';return $answer'; |
|
my (@list) = eval $answer; |
|
my (@responselist)=split /,/,$response; |
my (@responselist)=split /,/,$response; |
my $unit=''; |
my $unit=''; |
$result.="Final response :$responselist['-1']:<br />"; |
$result.="Final response :$responselist['-1']:<br />"; |