--- loncom/homework/radiobuttonresponse.pm 2003/04/02 15:09:00 1.64
+++ loncom/homework/radiobuttonresponse.pm 2003/04/08 02:40:56 1.68
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# mutliple choice style responses
#
-# $Id: radiobuttonresponse.pm,v 1.64 2003/04/02 15:09:00 sakharuk Exp $
+# $Id: radiobuttonresponse.pm,v 1.68 2003/04/08 02:40:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -87,14 +87,13 @@ sub start_foilgroup {
&Apache::response::setrandomnumber();
if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') {
$result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]';
- &Apache::lonxml::increment_counter();
}
return $result;
}
sub storesurvey {
if ( !defined($ENV{'form.submitted'})) { return ''; }
- my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
+ my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};
&Apache::lonxml::debug("Here I am!:$response:");
if ( $response !~ /[0-9]+/) { return ''; }
my $id = $Apache::inputtags::response['-1'];
@@ -112,7 +111,17 @@ sub grade_response {
#keep the random numbers the same must always call this
my ($answer,@whichfoils)=&whichfoils($max,$randomize);
if (!defined($ENV{'form.submitted'})) { return; }
- my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
+ my $response;
+ if ($ENV{'form.submitted'} eq 'scantron') {
+ my %let_to_num=('A'=>0,'B'=>1,'C'=>2,'D'=>3,'E'=>4,'F'=>5,'G'=>6,
+ 'H'=>7,'I'=>8,'J'=>9,'K'=>10,'L'=>11,'M'=>12,'N'=>13,
+ 'O'=>14,'P'=>15,'Q'=>16,'R'=>17,'S'=>18,'T'=>19,'U'=>20,
+ 'V'=>21,'W'=>22,'X'=>23,'Y'=>24,'Z'=>25);
+ $response = $ENV{'scantron.'.$Apache::lonxml::counter.'.answer'};
+ $response = $let_to_num{$response};
+ } else {
+ $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};
+ }
if ( $response !~ /[0-9]+/) { return; }
my $part=$Apache::inputtags::part;
my $id = $Apache::inputtags::response['-1'];
@@ -160,6 +169,7 @@ sub end_foilgroup {
}
}
}
+ &Apache::lonxml::increment_counter();
return $result;
}
@@ -206,7 +216,7 @@ sub displayallfoils {
} else {
foreach my $name (@names) {
if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') {
- $result.="
\n";
$temp++;
@@ -379,9 +389,7 @@ sub displayfoils {
my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
foreach my $name (@whichfoils) {
if ($target ne 'tex') {
- my $ValueForInput;
- if ($Apache::lonhomework::type ne 'exam') {$ValueForInput=$temp;} else {$ValueForInput=$alphabet[$temp];}
- $result.="
\n";
} else {