version 1.115, 2007/05/17 10:01:44
|
version 1.116, 2007/06/19 10:00:23
|
Line 33 use Apache::lonlocal;
|
Line 33 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::response; |
use Apache::response; |
|
|
|
my $bubbles_per_line = 10; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse')); |
&Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse')); |
} |
} |
Line 40 BEGIN {
|
Line 42 BEGIN {
|
sub start_radiobuttonresponse { |
sub start_radiobuttonresponse { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
#----- test/debugging to figure out some crap |
|
|
|
my $partid = $Apache::inputtags::part; |
|
&Apache::lonnet::logthis("Part id = $partid"); |
|
my $bubble_max = &Apache::response::get_response_param($partid, 'numbubbles', 10); |
|
&Apache::lonnet::logthis("numbubbles [10] = $bubble_max"); |
|
|
|
#----- End test/debugging |
|
#when in a radiobutton response use these |
#when in a radiobutton response use these |
&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup')); |
&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup')); |
push (@Apache::lonxml::namespace,'radiobuttonresponse'); |
push (@Apache::lonxml::namespace,'radiobuttonresponse'); |
Line 152 sub grade_response {
|
Line 147 sub grade_response {
|
if ( !&Apache::response::submitted() ) { return; } |
if ( !&Apache::response::submitted() ) { return; } |
my $response; |
my $response; |
if ($env{'form.submitted'} eq 'scantron') { |
if ($env{'form.submitted'} eq 'scantron') { |
$response=&Apache::response::getresponse(); |
# Need to know how many foils we have so that I know how many |
|
# bubble lines to consume: |
|
|
|
my $numfoils = scalar @whichfoils; |
|
my $bubble_lines = int($numfoils / $bubbles_per_line); |
|
if (($numfoils % $bubbles_per_line) != 0) { |
|
$bubble_lines++; # Partial line of bubbles too. |
|
} |
|
# Get an array of the lines... note offsets seem to go from 1??... |
|
|
|
my @responses; |
|
for (my $i = 1; $i <= $bubble_lines; $i++) { |
|
my $this_line = &Apache::response::getresponse($i); |
|
push(@responses, $this_line); |
|
|
|
} |
|
# Update the lonxml::counter so that the next problem |
|
# Gets the right set of answers: |
|
|
|
&Apache::lonxml::increment_counter($bubble_lines-1); |
|
|
|
# This code assumes that unbubbled lines will be |
|
# blank while bubbled lines nonblank. |
|
# .. multiple answers awards the student 'INCORRECT'. |
|
# This is done by setting resopnse to "Multiple" which will |
|
# not match anything. |
|
#.. otherwise response is set to the line*$bubble_per_line+answer |
|
# |
|
# --- note: |
|
# If it is not possible to do double bubble detection |
|
# easily in grades.pm separating this loop makes it pretty |
|
# easy to do it here. |
|
# Just count the number of non-blank entries, and |
|
# below the loop, check for non-blank entries != 1 |
|
# and report a wrong answer if so. |
|
# |
|
my $answer_line; |
|
my $answer_value = ''; # By default no answer given... |
|
my $num_bubbled_lines=0; |
|
for (my $line_number = 0; $line_number < $bubble_lines; $line_number++) { |
|
if ($responses[$line_number] ne "") { |
|
$answer_line = $line_number; |
|
$answer_value = $responses[$line_number]; |
|
last; |
|
} |
|
} |
|
|
|
$response = $answer_line * $bubbles_per_line + $answer_value; |
|
|
|
|
} else { |
} else { |
$response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
$response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
} |
} |
Line 518 sub displayfoils {
|
Line 562 sub displayfoils {
|
} else { |
} else { |
my @alphabet = ('A'..'Z'); |
my @alphabet = ('A'..'Z'); |
my $i = 0; |
my $i = 0; |
|
my $bubble_number = 0; |
my $temp=0; |
my $temp=0; |
my $id=$Apache::inputtags::response['-1']; |
my $id=$Apache::inputtags::response['-1']; |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
Line 547 sub displayfoils {
|
Line 592 sub displayfoils {
|
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
$i++; |
$i++; |
|
$bubble_number++; |
|
if($bubble_number >= $bubbles_per_line) { |
|
$i = 0; |
|
$bubble_number = 0; |
|
&Apache::lonxml::increment_counter(1); |
|
$result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]'; |
|
} |
} else { |
} else { |
$result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |