version 1.137, 2008/11/14 21:27:17
|
version 1.143, 2009/05/23 05:04:58
|
Line 26
|
Line 26
|
# |
# |
|
|
|
|
=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; |
package Apache::radiobuttonresponse; |
use strict; |
use strict; |
Line 194 sub start_radiobuttonresponse {
|
Line 74 sub start_radiobuttonresponse {
|
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.&Apache::edit::deletelist($target,$token) |
.&Apache::edit::deletelist($target,$token) |
.'</span></td>' |
.'</span></td>' |
.'<td> '.&Apache::edit::end_row() |
.'<td> '.&Apache::edit::end_row() |
.&Apache::edit::start_spanning_row(); |
.&Apache::edit::start_spanning_row(); |
$result.= |
$result.= |
&Apache::edit::text_arg('Max Number Of Shown Foils:','max', |
&Apache::edit::text_arg('Max Number Of Shown Foils:','max', |
$token,'4'). |
$token,'4').' 'x 3 . |
&Apache::edit::select_arg('Randomize Foil Order:','randomize', |
&Apache::edit::select_arg('Randomize Foil Order:','randomize', |
['yes','no'],$token). |
['yes','no'],$token).' 'x 3 . |
&Apache::edit::select_arg('Display Direction','direction', |
&Apache::edit::select_arg('Display Direction:','direction', |
['vertical','horizontal'],$token). |
['vertical','horizontal'],$token). |
&Apache::edit::end_row(). |
&Apache::edit::end_row(). |
&Apache::edit::start_spanning_row()."\n"; |
&Apache::edit::start_spanning_row()."\n"; |
Line 224 sub start_radiobuttonresponse {
|
Line 104 sub start_radiobuttonresponse {
|
} else { |
} else { |
$result .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}'; |
$result .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}'; |
} |
} |
if($env{'form.pdfFormFields'} eq 'yes') { |
if($env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
$result .= &Apache::lonxml::print_pdf_hiddenfield('meta', $env{'user.name'}, $env{'user.domain'}); |
$result .= &Apache::lonxml::print_pdf_hiddenfield('meta', $env{'user.name'}, $env{'user.domain'}); |
$result .= "\n\\\\\n\\\\\n"; |
$result .= "\n\\\\\n\\\\\n"; |
} else { |
} else { |
Line 242 sub end_radiobuttonresponse {
|
Line 122 sub end_radiobuttonresponse {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'edit') { $result=&Apache::edit::end_table(); } |
if ($target eq 'edit') { $result=&Apache::edit::end_table(); } |
if ($target eq 'tex' and $env{'form.pdfFormFields'} ne 'yes') { |
if ($target eq 'tex' and ($env{'form.pdfFormFields'} ne 'yes' or $Apache::inputtags::status[-1] ne 'CAN_ANSWER')) { |
$result .= '\end{enumerate}'; |
$result .= '\end{enumerate}'; |
} |
} |
&Apache::response::end_response; |
&Apache::response::end_response; |
Line 478 sub displayallfoils {
|
Line 358 sub displayallfoils {
|
$result.="<td>"; |
$result.="<td>"; |
} else { |
} else { |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
if($env{'form.pdfFormFields'} eq 'yes') { |
if($env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
my $fieldname = $env{'request.symb'}. |
my $fieldname = $env{'request.symb'}. |
'&part_'. $Apache::inputtags::part. |
'&part_'. $Apache::inputtags::part. |
'&radiobuttonresponse'. |
'&radiobuttonresponse'. |
Line 496 sub displayallfoils {
|
Line 376 sub displayallfoils {
|
} |
} |
} |
} |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
if($env{'form.pdfFormFields'} ne 'yes') { |
if($env{'form.pdfFormFields'} ne 'yes' or $Apache::inputtags::status[-1] ne 'CAN_ANSWER') { |
$result .= '$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
$result .= '$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
} |
} |
$i++; |
$i++; |
Line 506 sub displayallfoils {
|
Line 386 sub displayallfoils {
|
onchange=\"javascript:setSubmittedPart('$part');\" |
onchange=\"javascript:setSubmittedPart('$part');\" |
type=\"radio\" |
type=\"radio\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
value=\"$temp\" "; |
value=\"$temp\""; |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
if (defined($lastresponse{$name})) { $result .= ' checked="checked"'; } |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}. |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}. |
'</label>'; |
'</label>'; |
} |
} |
Line 735 sub displayfoils {
|
Line 615 sub displayfoils {
|
"<input type=\"radio\" |
"<input type=\"radio\" |
onchange=\"javascript:setSubmittedPart('$part');\" |
onchange=\"javascript:setSubmittedPart('$part');\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
value=\"$temp\" "; |
value=\"$temp\""; |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
if (defined($lastresponse{$name})) { $result .= ' checked="checked"'; } |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}."</label>"; |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}."</label>"; |
} else { |
} else { |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
Line 750 sub displayfoils {
|
Line 630 sub displayfoils {
|
$i++; |
$i++; |
$bubble_number++; |
$bubble_number++; |
} else { |
} else { |
if($env{'form.pdfFormFields'} eq 'yes') { |
if($env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
|
|
my $fieldname = $env{'request.symb'}. |
my $fieldname = $env{'request.symb'}. |
'&part_'. $Apache::inputtags::part. |
'&part_'. $Apache::inputtags::part. |
Line 928 sub insert_foil {
|
Line 808 sub insert_foil {
|
} |
} |
1; |
1; |
__END__ |
__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 |
|
|