--- loncom/homework/response.pm 2005/12/06 09:29:34 1.132 +++ loncom/homework/response.pm 2006/03/08 22:16:28 1.136 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # various response type definitons response definition # -# $Id: response.pm,v 1.132 2005/12/06 09:29:34 albertel Exp $ +# $Id: response.pm,v 1.136 2006/03/08 22:16:28 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,8 +37,7 @@ BEGIN { sub start_response { my ($parstack,$safeeval)=@_; - my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); - if ($id eq '') { $id = $Apache::lonxml::curdepth; } + my $id = &Apache::lonxml::get_id($parstack,$safeeval); if ($#Apache::inputtags::import > -1) { &Apache::lonxml::debug("Turning :$id: into"); $id = join('_',@Apache::inputtags::import).'_'.$id; @@ -69,8 +68,7 @@ sub end_response { sub start_hintresponse { my ($parstack,$safeeval)=@_; - my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); - if ($id eq '') { $id = $Apache::lonxml::curdepth; } + my $id = &Apache::lonxml::get_id($parstack,$safeeval); push (@Apache::inputtags::hint,$id); push (@Apache::inputtags::hintlist,$id); push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]); @@ -596,10 +594,18 @@ sub setup_params { my @answer_bits; sub answer_header { - my ($type) = @_; + my ($type,$increment) = @_; my $result; if ($env{'form.answer_output_mode'} eq 'tex') { undef(@answer_bits); + my $bit; + if ($Apache::lonhomework::type eq 'exam') { + $bit = ($Apache::lonxml::counter+$increment).') '; + } else { + $bit .= ' Answer for Part: \verb|'. + $Apache::inputtags::part.'| '; + } + push(@answer_bits,$bit); } else { $result = '