--- loncom/homework/optionresponse.pm 2008/09/11 17:38:14 1.152 +++ loncom/homework/optionresponse.pm 2008/11/18 19:14:28 1.155 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # option list style responses # -# $Id: optionresponse.pm,v 1.152 2008/09/11 17:38:14 onken Exp $ +# $Id: optionresponse.pm,v 1.155 2008/11/18 19:14:28 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,6 +25,71 @@ # # http://www.lon-capa.org/ # + + +=head1 NAME + +Apache::optionresponse.pm; + +=head1 SYNOPSIS + +Handles tags associated with showing a list of +options. + +This is part of the LearningOnline Network with CAPA project +described at http://www.lon-capa.org. + +=head1 HANDLER SUBROUTINE + +start_optionresponse() + +=head1 OTHER SUBROUTINES + +=over + +=item end_optionresponse() + +=item start_foilgroup() + +=item end_foilgroup() + +=item getfoilcounts() + +=item displayanswers() + +=item check_for_invalid() + +=item displayfoils() + +=item optionlist_correction() + +=item webbubbles() + +=item bubbles() + +=item start_conceptgroup() + +=item end_conceptgroup() + +=item insert_conceptgroup() + +=item start_foil() + +=item end_foil() + +=item start_drawoptionlist() + +=item end_drawoptionlist() + +=item insert_foil() + +=item insert_drawoptionlist() + +=item =back + +=cut + + package Apache::optionresponse; use strict; use Apache::response(); @@ -45,17 +110,19 @@ sub start_optionresponse { %Apache::hint::option=(); undef(%Apache::response::foilnames); if ($target eq 'edit') { - $result.=&Apache::edit::start_table($token). - "