|
version 1.19, 2003/06/30 20:23:33
|
version 1.20, 2003/07/01 20:13:30
|
|
Line 248 sub end_foilgroup {
|
Line 248 sub end_foilgroup {
|
| } elsif ( $target eq 'grade') { |
} elsif ( $target eq 'grade') { |
| &grade_response($max,$randomize); |
&grade_response($max,$randomize); |
| } |
} |
| |
&Apache::lonxml::increment_counter(&getfoilcounts($max)); |
| } elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
| $result=&Apache::edit::end_table(); |
$result=&Apache::edit::end_table(); |
| } |
} |
|
Line 389 sub displayfoils {
|
Line 390 sub displayfoils {
|
| my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
| my @alphabet=('A'..'Z'); |
my @alphabet=('A'..'Z'); |
| my @used_letters=sort(keys(%letter_name_map)); |
my @used_letters=sort(keys(%letter_name_map)); |
| |
my $internal_counter=$Apache::lonxml::counter; |
| foreach my $name (@whichfoils) { |
foreach my $name (@whichfoils) { |
| my $lastopt=$lastresponse{$name}; |
my $lastopt=$lastresponse{$name}; |
| my $last_letter=$name_letter_map{$lastopt}; |
my $last_letter=$name_letter_map{$lastopt}; |
|
Line 428 sub displayfoils {
|
Line 430 sub displayfoils {
|
| $question.=' '.$optionlist.$text."\n"; |
$question.=' '.$optionlist.$text."\n"; |
| my @emptyItems = (); |
my @emptyItems = (); |
| for (my $i=0;$i<=$#used_letters;$i++) {push @emptyItems, ' ';} |
for (my $i=0;$i<=$#used_letters;$i++) {push @emptyItems, ' ';} |
| $question.='\vskip -2 mm\parbox{\textwidth}{\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@used_letters,\@emptyItems).'}\end{enumerate}} \vskip -10 mm \strut '; |
$question.='\vskip -2 mm\parbox{\textwidth}{\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@used_letters,\@emptyItems).'}\end{enumerate}} \vskip -10 mm \strut '; |
| |
$internal_counter++; |
| } else { |
} else { |
| $question.=' \\\\ '.$optionlist.$text."\n"; |
$question.=' \\\\ '.$optionlist.$text."\n"; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to matchresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework