--- loncom/homework/response.pm 2006/08/01 14:41:46 1.146 +++ loncom/homework/response.pm 2006/10/17 17:09:44 1.148 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # various response type definitons response definition # -# $Id: response.pm,v 1.146 2006/08/01 14:41:46 albertel Exp $ +# $Id: response.pm,v 1.148 2006/10/17 17:09:44 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -686,9 +686,10 @@ sub setup_params { { my @answer_bits; + my $need_row_start; sub answer_header { - my ($type,$increment) = @_; + my ($type,$increment,$rows) = @_; my $result; if ($env{'form.answer_output_mode'} eq 'tex') { undef(@answer_bits); @@ -701,34 +702,58 @@ sub answer_header { } push(@answer_bits,$bit); } else { + my $td = ''; $result = ''; if ($Apache::lonhomework::type eq 'exam') { - $result .= ''; + $result .= $td.($Apache::lonxml::counter+$increment). ')'; } else { - $result .= ''; + $result .= $td.&mt('Answer for Part: [_1]', + $Apache::inputtags::part).''; } $result .= "\n"; + $need_row_start = 0; + } + return $result; +} + +sub next_answer { + my ($type) = @_; + my $result; + if ($env{'form.answer_output_mode'} eq 'tex') { + # FIXME ... need to do something with tex mode + } else { + $result .= ""; + $need_row_start = 1; } return $result; } sub answer_part { - my ($type,$answer) = @_; + my ($type,$answer,$args) = @_; my $result; if ($env{'form.answer_output_mode'} eq 'tex') { - my $to_use='|'; - foreach my $value (32..126) { - my $char=pack('c',$value); - if ($answer !~ /\Q$char\E/) { - $to_use=$char; - last; + if (!$args->{'no_verbatim'}) { + my $to_use='|'; + foreach my $value (32..126) { + my $char=pack('c',$value); + if ($answer !~ /\Q$char\E/) { + $to_use=$char; + last; + } + } + if ($answer ne '') { + $answer = '\verb'.$to_use.$answer.$to_use; } } if ($answer ne '') { - push(@answer_bits,'\verb'.$to_use.$answer.$to_use); + push(@answer_bits,$answer); } } else { - $result = ''; + if ($need_row_start) { + $result .= ''; + $need_row_start = 0; + } + $result .= ''; } return $result; }
'.($Apache::lonxml::counter+$increment). ')Answer for Part:'.$Apache::inputtags::part.'
'.$answer.'
'.$answer.'