--- loncom/homework/radiobuttonresponse.pm	2008/10/24 16:22:54	1.136
+++ loncom/homework/radiobuttonresponse.pm	2008/11/14 21:27:17	1.137
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.136 2008/10/24 16:22:54 bisitz Exp $
+# $Id: radiobuttonresponse.pm,v 1.137 2008/11/14 21:27:17 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -25,6 +25,128 @@
 # http://www.lon-capa.org/
 #
 
+
+=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 HANDLER SUBROUTINE
+
+start_radiobuttonresponse()
+
+=head1 OTHER SUBROUTINES
+
+=over
+
+=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
+
 package Apache::radiobuttonresponse;
 use strict;
 use HTML::Entities();
@@ -403,33 +525,6 @@ sub displayallfoils {
     return $result;
 }
 
-=pod
-
-=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
-
-=cut
 
 sub whichfoils {
     my ($max,$randomize)=@_;