|
version 1.95, 2004/10/07 20:28:30
|
version 1.96, 2004/10/21 03:34:06
|
|
Line 118 sub storesurvey {
|
Line 118 sub storesurvey {
|
| 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:"); |
&Apache::lonxml::debug("Here I am!:$response:"); |
| if ( $response !~ /[0-9]+/) { return ''; } |
if ( $response !~ /[0-9]+/) { return ''; } |
| |
my $part = $Apache::inputtags::part; |
| my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
| my @whichfoils=@{ $Apache::response::foilgroup{'names'} }; |
my @whichfoils=@{ $Apache::response::foilgroup{'names'} }; |
| my %responsehash; |
my %responsehash; |
| $responsehash{$whichfoils[$response]}=$response; |
$responsehash{$whichfoils[$response]}=$response; |
| $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash); |
my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
| $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED'; |
$Apache::lonhomework::results{"resource.$part.$id.submission"}= |
| |
$responsestr; |
| |
my %previous=&Apache::response::check_for_previous($responsestr,$part,$id); |
| |
my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; |
| |
&Apache::response::handle_previous(\%previous,$ad); |
| &Apache::lonxml::debug("submitted a $response<br />\n"); |
&Apache::lonxml::debug("submitted a $response<br />\n"); |
| return ''; |
return ''; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to radiobuttonresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework