--- loncom/homework/radiobuttonresponse.pm	2008/11/18 19:14:28	1.138
+++ loncom/homework/radiobuttonresponse.pm	2008/11/20 15:19:15	1.139
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.138 2008/11/18 19:14:28 jms Exp $
+# $Id: radiobuttonresponse.pm,v 1.139 2008/11/20 15:19:15 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -26,86 +26,6 @@
 #
 
 
-=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
 
 package Apache::radiobuttonresponse;
 use strict;
@@ -888,4 +808,87 @@ 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