--- loncom/homework/optionresponse.pm 2007/04/17 23:25:09 1.143
+++ loncom/homework/optionresponse.pm 2007/08/29 10:07:42 1.145
@@ -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.145 2007/08/29 10:07:42 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -71,6 +71,8 @@ sub start_optionresponse {
} elsif ($target eq 'analyze') {
my $part_id="$Apache::inputtags::part.$id";
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
+ push (@{ $Apache::lonhomeowrk::analyze{"$part_id.bubble_lines"} }, 1);
+
}
return $result;
}
@@ -705,25 +707,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__