--- loncom/homework/optionresponse.pm 2007/04/17 23:25:09 1.143
+++ loncom/homework/optionresponse.pm 2008/02/01 22:05:45 1.149
@@ -1,7 +1,7 @@
# LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.143 2007/04/17 23:25:09 albertel Exp $
+# $Id: optionresponse.pm,v 1.149 2008/02/01 22:05:45 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -70,7 +70,10 @@ sub start_optionresponse {
$result=&Apache::response::meta_package_write('optionresponse');
} elsif ($target eq 'analyze') {
my $part_id="$Apache::inputtags::part.$id";
+ $Apache::lonhomework::analyze{"$part_id.type"} = 'optionresponse';
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
+ push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);
+
}
return $result;
}
@@ -275,7 +278,14 @@ sub end_foilgroup {
}
}
}
- &Apache::lonxml::increment_counter(&getfoilcounts($max));
+ my $part_id = $Apache::inputtags::part;
+ my $response_id = $Apache::inputtags::response[-1];
+ &Apache::lonxml::increment_counter(&getfoilcounts($max),
+ "$part_id.$response_id");
+ if ($target eq 'analyze') {
+ &Apache::lonhomework::set_bubble_lines();
+ }
+
} elsif ($target eq 'edit') {
$result.=&Apache::edit::end_table();
}
@@ -705,25 +715,29 @@ sub end_foil {
sub start_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- if (($target ne 'meta') && ($target ne 'answer')) {
+ if ($target !~ /^(?:meta|answer|modified|edit)$/) {
return $token->[4];
}
}
sub end_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- if (($target ne 'meta') && ($target ne 'answer')) {
+ if ($target !~ /^(?:meta|answer|modified|edit)$/) {
return $token->[2];
}
}
sub insert_foil {
- return '
+ return '
';
}
+
+sub insert_drawoptionlist {
+ return '';
+}
1;
__END__