--- loncom/homework/response.pm 2003/05/16 20:16:18 1.78
+++ loncom/homework/response.pm 2003/06/23 20:57:41 1.80
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# various response type definitons response definition
#
-# $Id: response.pm,v 1.78 2003/05/16 20:16:18 albertel Exp $
+# $Id: response.pm,v 1.80 2003/06/23 20:57:41 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -52,7 +52,7 @@ sub start_response {
}
sub end_response {
- pop @Apache::inputtags::response;
+ #pop @Apache::inputtags::response;
@Apache::inputtags::inputlist=();
return '';
}
@@ -62,6 +62,7 @@ sub start_hintresponse {
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
if ($id eq '') { $id = $Apache::lonxml::curdepth; }
push (@Apache::inputtags::response,$id);
+ push (@Apache::inputtags::responselist,$id);
push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);
return $id;
}
@@ -367,13 +368,8 @@ sub answer_header {
$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '.
$Apache::inputtags::part.' \\\\ \hline ';
} else {
- if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse' ) {
- $result = '
Answer for Part:'.
- $Apache::inputtags::part. ' |
---|
'."\n";
- } else {
- $result = 'Answer for Part:'.
- $Apache::inputtags::part. ' | '."\n";
- }
+ $result = 'Answer for Part:'.
+ $Apache::inputtags::part. ' | '."\n";
}
return $result;
}
@@ -384,11 +380,7 @@ sub answer_part {
if ($ENV{'form.answer_output_mode'} eq 'tex') {
$result = ' '.$answer.'\\\\ \hline ';
} else {
- if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') {
- $result = ''.$answer.' | ';
- } else {
- $result = ''.$answer.' | ';
- }
+ $result = ''.$answer.' | ';
}
return $result;
}
@@ -399,11 +391,7 @@ sub answer_footer {
if ($ENV{'form.answer_output_mode'} eq 'tex') {
$result = ' \end{tabular} \vskip 0 mm ';
} else {
- if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') {
- $result = '
';
- } else {
- $result = '
';
- }
+ $result = '
';
}
return $result;
}