loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.62, 2003/05/23 07:04:44	version 1.63, 2003/06/07 03:52:39
Line 136 sub get_array_args {	Line 136 sub get_array_args {
my ($expr,$arg)=@_;	my ($expr,$arg)=@_;
# do these first, because who knows what varname the instructor might have used	# do these first, because who knows what varname the instructor might have used
# but it probably isn't $CAPARESPONSE_CHECK_LIST_answer	# but it probably isn't $CAPARESPONSE_CHECK_LIST_answer
my $CAPARESPONSE_CHECK_LIST_answer = eval $expr.';return $'.$arg; #'	my $CAPARESPONSE_CHECK_LIST_answer = eval $expr.';return $'.$arg; #' stupid emacs
my $GET_ARRAY_ARGS_result;	my $GET_ARRAY_ARGS_result;
my @GET_ARRAY_ARGS_list;	my @GET_ARRAY_ARGS_list;
if ($CAPARESPONSE_CHECK_LIST_answer =~ /^\s*[\$\@]/) {	if ($CAPARESPONSE_CHECK_LIST_answer =~ /^\s*[\$\@]/) {
Line 156 sub caparesponse_check_list {	Line 156 sub caparesponse_check_list {
$expr =~ s/\\/\\\\/g;	$expr =~ s/\\/\\\\/g;
$expr =~ s/\'/\\\'/g;	$expr =~ s/\'/\\\'/g;
my ($result,@list) = &get_array_args($expr,'answer');	my ($result,@list) = &get_array_args($expr,'answer');
	$expr =~ s/\\\'/\'/g;
	$expr =~ s/\\\\/\\/g;
my $aresult='';	my $aresult='';
my $current_answer;	my $current_answer;
my $answers=join(':',@list);	my $answers=join(':',@list);