|
version 1.93, 2003/10/27 19:27:09
|
version 1.94, 2003/10/27 20:04:34
|
|
Line 149 sub end_foilgroup {
|
Line 149 sub end_foilgroup {
|
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
| |
|
| my $result; |
my $result; |
| if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
| |
$target eq 'tex' || $target eq 'analyze') { |
| my $tex_option_switch=&Apache::lonxml::get_param('texoptions',$parstack,$safeeval); |
my $tex_option_switch=&Apache::lonxml::get_param('texoptions',$parstack,$safeeval); |
| my $name; |
my $name; |
| my @opt; |
my @opt; |
|
Line 165 sub end_foilgroup {
|
Line 166 sub end_foilgroup {
|
| $result.=&displayanswers($max,$randomize,@opt); |
$result.=&displayanswers($max,$randomize,@opt); |
| } elsif ( $target eq 'analyze') { |
} elsif ( $target eq 'analyze') { |
| my @shown = &whichfoils($max,$randomize); |
my @shown = &whichfoils($max,$randomize); |
| &Apache::response::analyze_store_foilgroup(\@shown,['text','value']); |
&Apache::response::analyze_store_foilgroup(\@shown, |
| |
['text','value','location']); |
| my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
| push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt); |
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt); |
| } elsif ( $target eq 'grade') { |
} elsif ( $target eq 'grade') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework