'; }
- my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
- if (&Apache::response::show_answer() ) {
- foreach my $name (@names) {
- if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') {
- if ($direction eq 'horizontal') {
- $result.="
";
+ } else {
+ $result .= " ";
+ }
+ }
+
+ return $result;
+}
+##
+# Display foils in exam mode for latex
+#
+# @param $whichfoils - Reference to an array that contains the foil names to display
+# @param $bubbles_per_line - Number of bubbles on a line.
+# @param $direction - Rendering direction 'horizontal' is what we're looking for.
+# @param $vbegin - Start latex fragment in vertical rendering.
+# @param $vend - End latex fragmentin vertical rendering.
+#
+# @return string
+# @return the latex rendering of the exam problem.
+#
+#
+sub display_latex_exam {
+ my ($whichfoils, $bubbles_per_line, $direction, $vbegin, $vend) = @_;
+ my $result;
+ my $numlines;
+ my $bubble_number = 0;
+ my $line = 0;
+ my $i = 0;
+
+
+ if ($direction eq 'horizontal') {
+
+ # Marshall the display text for each foil and turn things over to
+ # Apache::response::make_horizontal_bubbles:
+
+ my @foil_texts = &get_foil_texts($whichfoils);
+ $result .= &Apache::caparesponse::make_horizontal_latex_bubbles(
+ $whichfoils, \@foil_texts, '$\bigcirc$');
+
+
+ } else {
+ $result .= $vbegin;
+
+ # This section puts out the prefix that tells the user
+ # (if necessary) to only choose one bubble in the next n lines
+ # for problems with more than one line worth of bubbles in the grid sheet:
+
+ my $numitems = scalar( @{$whichfoils} );
+ $numlines = int( $numitems / $bubbles_per_line );
+ if ( ( $numitems % $bubbles_per_line ) != 0 ) {
+ $numlines++;
+ }
+ if ( $numlines < 1 ) {
+ $numlines = 1;
+ }
+ if ( $numlines > 1 ) {
+ my $linetext;
+ for ( my $i = 0 ; $i < $numlines ; $i++ ) {
+ $linetext .= $Apache::lonxml::counter + $i . ', ';
+ }
+ $linetext =~ s/,\s$//;
+ $result .=
+ '\item[\small {\textbf{'
+ . $linetext . '}}]'
+ . ' {\footnotesize '
+ . &mt( '(Bubble once in [_1] lines)', $numlines )
+ . '} \hspace*{\fill} \\\\';
+ }
+ else {
+ $result .= '\item[\textbf{' . $Apache::lonxml::counter . '}.]';
+ }
+
+ # Now output the bubbles themselves:
+
+ foreach my $name (@{$whichfoils}) {
+ if ( $bubble_number >= $bubbles_per_line ) {
+ $line++;
+ $i = 0;
+ $bubble_number = 0;
+ }
+ my $identifier;
+ if ( $numlines > 1 ) {
+ $identifier = $Apache::lonxml::counter + $line;
+ }
+ $result .=
+ '{\small \textbf{'
+ . $identifier
+ . $alphabet[$i]
+ . '}}$\bigcirc$'
+ . $Apache::response::foilgroup{ $name . '.text' }
+ . '\\\\'; #' stupid emacs -- it thinks it needs that apostrophe to close the quote
+
+ $i++;
+ $bubble_number++;
}
- for (my $i=0;$i<=$#bottomlist;$i++) {
- if ($bottomlist[$i]) { push(@whichfalse,$bottomlist[$i]) }
+ $result .= $vend
+
+ }
+
+ return $result;
+
+}
+
+##
+# Display latex when exam mode is not on.
+#
+# @param $whichfoils - The foils to display
+# @param $direction - Display direction ('horizontal' is what matters to us).
+# @param $vbegin - Begin the vertical environment being used.
+# @param $vend - End the vertical environment being used.
+#
+# @return string
+# @retval - The LaTeX rendering of the resource.'
+#
+sub display_latex {
+ my ($whichfoils, $direction, $vbegin, $vend) = @_;
+ my $result;
+
+ # how we render depends on the direction.
+ # Vertical is some kind of list environment determined by vbegin/vend.
+ # Horizontal is a table that is generated by
+ # Apache::caparesponse::make_horizontal_latex_bubbles with an empty string
+ # for the actual bubble text.
+
+ if ($direction eq 'horizontal') {
+ my @foil_texts = &get_foil_texts($whichfoils);
+ $result .= &Apache::caparesponse::make_horizontal_latex_bubbles(
+ $whichfoils, \@foil_texts, '');
+ } else {
+ $result .= $vbegin;
+ foreach my $name (@{$whichfoils}) {
+ $result .= '\vspace*{-2 mm}\item '
+ . $Apache::response::foilgroup{ $name . '.text' };
}
- #if the true statement is randomized insert it into the list
- if ($dosplice) { splice(@whichfalse,$answer,0,$truelist[$whichtrue]); }
+
+ $result .= $vend;
}
- &Apache::lonxml::debug("Answer is $answer");
- return ($answer,@whichfalse);
+ return $result;
+}
+
+
+##
+# Render foils for a PDF form. This is a variant of tex rednering that provides
+# sufficient markup that the final PDF is a form that can be filled in online,
+# or offline.
+#
+# @param $whichfoils - References an array of foils to display in the order in which
+# they should be displayed.
+# @param $direction - Rendering direction. 'horiztonal' means inputs are laid out
+# horizontally otherwise they are stacked vertically.
+#
+# @return string
+# @retval String containing the rendering of the resource.
+#
+sub display_pdf_form {
+ my ($whichfoils) = @_;
+ my $temp = 0;
+ my $result;
+
+ foreach my $name ( @{$whichfoils} ) {
+
+ my $fieldname =
+ $env{'request.symb'}
+ . '&part_'
+ . $Apache::inputtags::part
+ . '&radiobuttonresponse'
+ . '&HWVAL_'
+ . $Apache::inputtags::response['-1'];
+ $result .= '\item[{'
+ . &Apache::lonxml::print_pdf_radiobutton( $fieldname,
+ $temp )
+ . '}]'
+ . $Apache::response::foilgroup{ $name . '.text' }
+ . "\n";
+
+ $temp++;
+ }
+
+ return $result;
}
+
+##
+# Display selected foils: This is really just a dispatchter to appropriate renderers
+#
+# @param $target - Target (e.g. 'tex'...).
+# @param $answer - True if answers should be shown.
+# @param $whichfoils - Array of foil selectors that indicate which foils shouild be
+# rendered, in rendering order.
+# @param $direction- Rendering direction ('horizontal' is the one we look for,
+# otherwise foils are rendered one per line vertically.
+# @param $bubbles_per_line - number of exam bubbles per line.
+#
+# @return string
+# @retval The rendered problem.
+
sub displayfoils {
- my ($target,$max,$randomize,$direction)=@_;
+ my ( $target, $answer, $whichfoils, $direction, $bubbles_per_line ) = @_;
my $result;
- my ($answer,@whichfoils)=&whichfoils($max,$randomize);
- my $part=$Apache::inputtags::part;
- my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
- if ( ($target ne 'tex') &&
- &Apache::response::show_answer() ) {
- if ($direction eq 'horizontal') {
- if ($target ne 'tex') {
- $result.='
';
- }
- }
- foreach my $name (@whichfoils) {
- if ($direction eq 'horizontal') {
- if ($target ne 'tex') { $result.='
'; }
- }
- if ($target ne 'tex') {
- $result.=" ";
- } else {
- $result.='\item \vskip -2 mm ';
- }
- if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
- if ($target ne 'tex') { $result.='Correct:'; } else { $result.='Correct: \textbf{';}
- } else {
- $result.='Incorrect:';
- }
- $result.=$Apache::response::foilgroup{$name.'.text'};
- if ($target eq 'web') { $result.=""; }
- if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
- if ($target ne 'tex') { $result.='';} else {$result.='}';}
- }
- if ($direction eq 'horizontal') {
- if ($target ne 'tex') { $result.='
'; }
- }
- }
- if ($direction eq 'horizontal') {
- if ($target ne 'tex') {
- $result.='
';
- }
- }
+ my $part = $Apache::inputtags::part;
+ my $solved = $Apache::lonhomework::history{"resource.$part.solved"};
+
+ # Show answers html.
+
+ if ( ( $target ne 'tex' )
+ && &Apache::response::show_answer() )
+ {
+
+ $result = &display_foils_html(
+ $whichfoils, $target, $direction, $part, $solved, 1);
+
+ # other html
+ } elsif ($target ne 'tex') {
+ $result = &display_foils_html($whichfoils, $target, $direction, $part,
+ 0, 0);
+
+ # LaTeX rendering:
} else {
- my @alphabet = ('A'..'Z');
- my $i = 0;
- my $temp=0;
- my $id=$Apache::inputtags::response['-1'];
- my $part=$Apache::inputtags::part;
- my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
- my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
- if ($target ne 'tex' && $direction eq 'horizontal') {
- $result.="
";
- }
- foreach my $name (@whichfoils) {
- if ($target ne 'tex') {
- if ($direction eq 'horizontal') {
- $result.="
";
- } else {
- $result.=" ";
- }
- }
- if ($target ne 'tex') {
- $result.="";
+
+ my $i = 0;
+ my $bubble_number = 0;
+ my $line = 0;
+ my $temp = 0;
+ my $id = $Apache::inputtags::response['-1'];
+ my $part = $Apache::inputtags::part;
+
+
+
+ my $numlines;
+
+ # Decide how to bracket the list of foils:
+
+ my $begin_environment;
+ my $end_environment;
+
+ if ( $env{'form.pdfFormFields'} eq 'yes'
+ && $Apache::inputtags::status[-1] eq 'CAN_ANSWER' )
+ {
+ $begin_environment = '\begin{itemize}';
+ $end_environment = '\end{itemize}';
+ }
+ else {
+ $begin_environment = '\begin{enumerate}';
+ $end_environment = '\end{enumerate}';
+ }
+
+ # Rendering for latex exams.
+
+ if ( ( $Apache::lonhomework::type eq 'exam' ) )
+ {
+ $result .= &display_latex_exam(
+ $whichfoils, $bubbles_per_line, $direction, $begin_environment,
+ $end_environment);
+
+ $result .= '\vskip 0mm ';
+
+ } else {
+
+ # Different rendering for PDF form than for a
+ # 'regular' answer direction is honored in both of those
+ #
+
+ if ( ($env{'form.pdfFormFields'} eq 'yes')
+ && ($Apache::inputtags::status[-1] eq 'CAN_ANSWER'))
+ {
+ $result .= $begin_environment;
+ $result .= &display_pdf_form($whichfoils, $direction);
+ $result .= $end_environment;
} else {
- if ($Apache::lonhomework::type eq 'exam') {
- $result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs
- $i++;
- } else {
- $result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'};
- }
+ $result .= &display_latex(
+ $whichfoils, $direction, $begin_environment, $end_environment
+ );
}
- if ($target ne 'tex' && $direction eq 'horizontal') {
- $result.="
";
- }
- $temp++;
- }
- if ($target ne 'tex' && $direction eq 'horizontal') {
- $result.="
";
+ $result .= '\vskip 0 mm ';
+
}
+
+
}
- if ($target ne 'tex') { if ($direction ne 'horizontal') { $result.=" ";} } else { $result.='\vskip 0 mm '; }
return $result;
}
sub displayallanswers {
- my @names = @{ $Apache::response::foilgroup{'names'} };
-
- my $result=&Apache::response::answer_header('radiobuttonresponse');
+ my @names;
+ if ( $Apache::response::foilgroup{'names'} ) {
+ @names = @{ $Apache::response::foilgroup{'names'} };
+ }
+ my $result = &Apache::response::answer_header('radiobuttonresponse');
foreach my $name (@names) {
- $result.=&Apache::response::answer_part('radiobuttonresponse',
- $Apache::response::foilgroup{$name.'.value'});
+ $result .=
+ &Apache::response::answer_part( 'radiobuttonresponse',
+ $Apache::response::foilgroup{ $name . '.value' } );
}
- $result.=&Apache::response::answer_footer('radiobuttonresponse');
+ $result .= &Apache::response::answer_footer('radiobuttonresponse');
return $result;
}
sub displayanswers {
- my ($max,$randomize)=@_;
- my ($answer,@whichopt) = &whichfoils($max,$randomize);
- my $result=&Apache::response::answer_header('radiobuttonresponse');
- foreach my $name (@whichopt) {
- $result.=&Apache::response::answer_part('radiobuttonresponse',
- $Apache::response::foilgroup{$name.'.value'})
- }
- $result.=&Apache::response::answer_footer('radiobuttonresponse');
+ my ( $answer, $whichopt, $bubbles_per_line ) = @_;
+ my $result;
+
+ if ( $Apache::lonhomework::type eq 'exam' ) {
+ my $line = int( $answer / $bubbles_per_line );
+ my $correct = ( 'A' .. 'Z' )[ $answer % $bubbles_per_line ];
+ $result .=
+ &Apache::response::answer_header( 'radiobuttonresponse', $line );
+ $result .=
+ &Apache::response::answer_part( 'radiobuttonresponse', $correct );
+ }
+ else {
+ $result .= &Apache::response::answer_header('radiobuttonresponse');
+ }
+ foreach my $name ( @{$whichopt} ) {
+ $result .=
+ &Apache::response::answer_part( 'radiobuttonresponse',
+ $Apache::response::foilgroup{ $name . '.value' } );
+ }
+ $result .= &Apache::response::answer_footer('radiobuttonresponse');
return $result;
}
sub start_conceptgroup {
- my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- $Apache::radiobuttonresponse::conceptgroup=1;
- %Apache::response::conceptgroup=();
- my $result;
- if ($target eq 'edit') {
- $result.=&Apache::edit::tag_start($target,$token);
- $result.=&Apache::edit::text_arg('Concept:','concept',$token,'50').
- &Apache::edit::end_row().&Apache::edit::start_spanning_row();
- } elsif ($target eq 'modified') {
- my $constructtag=&Apache::edit::get_new_args($token,$parstack,
- $safeeval,'concept');
- if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
+ my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) =
+ @_;
+ $Apache::radiobuttonresponse::conceptgroup = 1;
+ %Apache::response::conceptgroup = ();
+ my $result;
+ if ( $target eq 'edit' ) {
+ $result .= &Apache::edit::tag_start( $target, $token );
+ $result .=
+ &Apache::edit::text_arg( 'Concept:', 'concept', $token, '50' )
+ . &Apache::edit::end_row()
+ . &Apache::edit::start_spanning_row();
+ }
+ elsif ( $target eq 'modified' ) {
+ my $constructtag =
+ &Apache::edit::get_new_args( $token, $parstack, $safeeval,
+ 'concept' );
+ if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
}
return $result;
}
sub end_conceptgroup {
- my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- $Apache::radiobuttonresponse::conceptgroup=0;
+ my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) =
+ @_;
+ $Apache::radiobuttonresponse::conceptgroup = 0;
my $result;
- if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
- $target eq 'tex' || $target eq 'analyze') {
- &Apache::response::pick_foil_for_concept($target,
- ['value','text','location'],
- \%Apache::hint::radiobutton,
- $parstack,$safeeval);
- } elsif ($target eq 'edit') {
- $result=&Apache::edit::end_table();
+ if ( $target eq 'web'
+ || $target eq 'grade'
+ || $target eq 'answer'
+ || $target eq 'tex'
+ || $target eq 'analyze' )
+ {
+ &Apache::response::pick_foil_for_concept( $target,
+ [ 'value', 'text', 'location' ],
+ \%Apache::hint::radiobutton, $parstack, $safeeval );
+ }
+ elsif ( $target eq 'edit' ) {
+ $result = &Apache::edit::end_table();
}
return $result;
}
sub insert_conceptgroup {
- my $result="\n\t\t".&insert_foil()."\n\t\t\n";
+ my $result =
+ "\n\t\t"
+ . &insert_foil()
+ . "\n\t\t\n";
return $result;
}
sub start_foil {
- my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- my $result='';
- if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
- &Apache::lonxml::startredirection;
- } elsif ($target eq 'edit') {
- $result=&Apache::edit::tag_start($target,$token);
- $result.=&Apache::edit::text_arg('Name:','name',$token);
- $result.=&Apache::edit::select_or_text_arg('Correct Option:','value',
- ['unused','true','false'],
- $token);
- my $randomize=&Apache::lonxml::get_param('randomize',$parstack,
- $safeeval,'-3');
- if ($randomize ne 'no') {
- $result.=&Apache::edit::select_arg('Location:','location',
- ['random','top','bottom'],$token);
- }
- $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
- } elsif ($target eq 'modified') {
- my $constructtag=&Apache::edit::get_new_args($token,$parstack,
- $safeeval,'value','name',
- 'location');
- if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
- }
+ my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) =
+ @_;
+ my $result = '';
+ if ( $target eq 'web' || $target eq 'tex' || $target eq 'analyze' ) {
+ &Apache::lonxml::startredirection;
+ if ( $target eq 'analyze' ) {
+ &Apache::response::check_if_computed( $token, $parstack, $safeeval,
+ 'value' );
+ }
+ }
+ elsif ( $target eq 'edit' ) {
+ $result = &Apache::edit::tag_start( $target, $token );
+ $result .= &Apache::edit::text_arg( 'Name:', 'name', $token );
+ $result .= &Apache::edit::select_or_text_arg(
+ 'Correct Option:', 'value',
+ [ 'unused', 'true', 'false' ], $token
+ );
+ my $randomize =
+ &Apache::lonxml::get_param( 'randomize', $parstack, $safeeval, '-3' );
+ if ( $randomize ne 'no' ) {
+ $result .=
+ &Apache::edit::select_arg( 'Location:', 'location',
+ [ 'random', 'top', 'bottom' ], $token );
+ }
+ $result .=
+ &Apache::edit::end_row() . &Apache::edit::start_spanning_row();
+ }
+ elsif ( $target eq 'modified' ) {
+ my $constructtag =
+ &Apache::edit::get_new_args( $token, $parstack, $safeeval, 'value',
+ 'name', 'location' );
+ if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
+ }
return $result;
}
sub end_foil {
- my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- my $text='';
- if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
- $text=&Apache::lonxml::endredirection;
- }
- if ($target eq 'web' || $target eq 'grade' || $target eq 'answer'
- || $target eq 'tex' || $target eq 'analyze') {
- my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
- if ($value ne 'unused') {
- my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
- if (!$name) { $name=$Apache::lonxml::curdepth; }
- if (defined($Apache::response::foilnames{$name})) {
- &Apache::lonxml::error(&mt("Foil name [_1] appears more than once. Foil names need to be unique.",$name));
- }
- $Apache::response::foilnames{$name}++;
- my $location =&Apache::lonxml::get_param('location',$parstack,
- $safeeval);
- if ( $Apache::radiobuttonresponse::conceptgroup
- && !&Apache::response::showallfoils() ) {
- push @{ $Apache::response::conceptgroup{'names'} }, $name;
- $Apache::response::conceptgroup{"$name.value"} = $value;
- $Apache::response::conceptgroup{"$name.text"} = $text;
- $Apache::response::conceptgroup{"$name.location"} = $location;
- } else {
- push @{ $Apache::response::foilgroup{'names'} }, $name;
- $Apache::response::foilgroup{"$name.value"} = $value;
- $Apache::response::foilgroup{"$name.text"} = $text;
- $Apache::response::foilgroup{"$name.location"} = $location;
- }
- }
+ my ( $target, $token, $tagstack, $parstack, $parser, $safeeval, $style ) =
+ @_;
+ my $text = '';
+ if ( $target eq 'web' || $target eq 'tex' || $target eq 'analyze' ) {
+ $text = &Apache::lonxml::endredirection;
+ }
+ if ( $target eq 'web'
+ || $target eq 'grade'
+ || $target eq 'answer'
+ || $target eq 'tex'
+ || $target eq 'analyze' )
+ {
+ my $value = &Apache::lonxml::get_param( 'value', $parstack, $safeeval );
+ if ( $value ne 'unused' ) {
+ my $name =
+ &Apache::lonxml::get_param( 'name', $parstack, $safeeval );
+ if ( $name eq "" ) {
+ &Apache::lonxml::warning(
+ &mt(
+'Foils without names exist. This can cause problems to malfunction.'
+ )
+ );
+ $name = $Apache::lonxml::curdepth;
+ }
+ if ( defined( $Apache::response::foilnames{$name} ) ) {
+ &Apache::lonxml::error(
+ &mt(
+'Foil name [_1] appears more than once. Foil names need to be unique.',
+ '' . $name . ''
+ )
+ );
+ }
+ $Apache::response::foilnames{$name}++;
+ my $location =
+ &Apache::lonxml::get_param( 'location', $parstack, $safeeval );
+ if ( $Apache::radiobuttonresponse::conceptgroup
+ && !&Apache::response::showallfoils() )
+ {
+ push @{ $Apache::response::conceptgroup{'names'} }, $name;
+ $Apache::response::conceptgroup{"$name.value"} = $value;
+ $Apache::response::conceptgroup{"$name.text"} = $text;
+ $Apache::response::conceptgroup{"$name.location"} = $location;
+ }
+ else {
+ push @{ $Apache::response::foilgroup{'names'} }, $name;
+ $Apache::response::foilgroup{"$name.value"} = $value;
+ $Apache::response::foilgroup{"$name.text"} = $text;
+ $Apache::response::foilgroup{"$name.location"} = $location;
+ }
+ }
}
return '';
}
@@ -622,6 +1450,90 @@ sub insert_foil {
';
}
+
1;
__END__
+
+
+
+=head1 NAME
+
+Apache::radiobuttonresponse
+
+=head1 SYNOPSIS
+
+Handles multiple-choice style responses.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 SUBROUTINES
+
+=over
+
+=item start_radiobuttonresponse()
+
+=item bubble_line_count()
+
+=item end_radiobuttonresponse()
+
+=item start_foilgroup()
+
+=item storesurvey()
+
+=item grade_response()
+
+=item end_foilgroup()
+
+=item getfoilcounts()
+
+=item format_prior_answer()
+
+=item displayallfoils()
+
+=item &whichfoils($max,$randomize)
+
+Randomizes the list of foils.
+Respects
+ - each foils desire to be randomized
+ - the existance of Concept groups of foils (select 1 foil from each)
+ - and selects a single correct statement from all possilble true statments
+ - and limits it to a toal of $max foils
+
+WARNING: this routine uses the random number generator, it should only
+be called once per target, otherwise it can cause randomness changes in
+homework problems.
+
+Arguments
+ $max - maximum number of foils to select (including the true one)
+ (so a max of 5 is: 1 true, 4 false)
+
+ $randomize - whether to randomize the listing of foils, by default
+ will randomize, only if randomize is 'no' will it not
+
+Returns
+ $answer - location in the array of the correct answer
+ @foils - array of foil names in to display order
+
+=item displayfoils()
+
+=item displayallanswers()
+
+=item displayanswers()
+
+=item start_conceptgroup()
+
+=item end_conceptgroup()
+
+=item insert_conceptgroup()
+
+=item start_foil()
+
+=item end_foil()
+
+=item insert_foil()
+
+=back
+
+=cut