--- loncom/homework/caparesponse/caparesponse.pm 2002/10/17 14:40:58 1.66 +++ loncom/homework/caparesponse/caparesponse.pm 2002/11/08 20:36:27 1.71 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # caparesponse definition # -# $Id: caparesponse.pm,v 1.66 2002/10/17 14:40:58 sakharuk Exp $ +# $Id: caparesponse.pm,v 1.71 2002/11/08 20:36:27 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -89,7 +89,8 @@ sub start_numericalresponse { $result.=&Apache::edit::text_arg('Format:','format',$token,4); } elsif ($token->[1] eq 'stringresponse') { $result.=&Apache::edit::select_arg('Type:','type', - ['cs','ci','mc'],$token); + [['cs','Case Sensitive'],['ci','Case Insensitive'], + ['mc','Case Insensitive, Any Order']],$token); } elsif ($token->[1] eq 'formularesponse') { $result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); } @@ -157,7 +158,6 @@ sub end_numericalresponse { } } } elsif ($target eq 'web' || $target eq 'tex') { - if ($Apache::lonhomework::type ne 'exam') { my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"}; my $status = $Apache::inputtags::status['-1']; if ($award =~ /^correct/ || $status eq "SHOW_ANSWER" ) { @@ -199,7 +199,7 @@ sub end_numericalresponse { $result.="}. \\vskip 0 mm "; } } - } else { + if ($Apache::lonhomework::type eq 'exam') { my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval); @@ -223,6 +223,7 @@ sub end_numericalresponse { my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P', 'Q','R','S','T','U','V','W','X','Y','Z'); if ($target eq 'web') { + my $id=$Apache::inputtags::response[-1]; $result.= '
'.$alphabet[$ind].': '.$ans.' | '; + $result.=''.$alphabet[$ind].': '.$ans.' | '; } $result.='