version 1.68, 2007/05/23 22:36:21
|
version 1.73, 2008/11/19 18:34:56
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
=head1 NAME |
|
|
|
Apache::hinttags |
|
|
|
=head1 SYNOPSIS |
|
|
|
This handler coordinates the delivery of hints to students working on LON-CAPA problems and assignments. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over |
|
|
|
=item start_hintgroup() |
|
|
|
=item end_hintgroup() |
|
|
|
=item start_numericalhint() |
|
|
|
=item end_numericalhint() |
|
|
|
=item start_formulahint() |
|
|
|
=item end_formulahint() |
|
|
|
=item start_mathhint() |
|
|
|
=item end_mathhint() |
|
|
|
=item start_customhint() |
|
|
|
=item end_customhint() |
|
|
|
=item start_stringhint() |
|
|
|
=item end_stringhint() |
|
|
|
=item start_hintpart() |
|
|
|
=item end_hintpart() |
|
|
|
=item start_optionhint() |
|
|
|
=item end_optionhint() |
|
|
|
=item start_radiobuttonhint() |
|
|
|
=item end_radiobuttonhint() |
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::hinttags; |
package Apache::hinttags; |
|
|
use strict; |
use strict; |
Line 68 sub start_hintgroup {
|
Line 123 sub start_hintgroup {
|
$result .= '\keephidden{'; |
$result .= '\keephidden{'; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::select_arg('Show hint even if problem Correct:','showoncorrect',[['no',&mt('No')],['yes',&mt('Yes')]],$token); |
$result.=&Apache::edit::select_arg('Show hint even if problem Correct:','showoncorrect',['no','yes'],$token); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'showoncorrect'); |
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'showoncorrect'); |
Line 160 sub end_numericalhint {
|
Line 215 sub end_numericalhint {
|
|
|
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
my $id=$Apache::inputtags::hint[-1]; |
my $id=$Apache::inputtags::hint[-1]; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
|
|
my $response = $Apache::lonhomework::history{ |
my $response = $Apache::lonhomework::history{ |
Line 395 sub end_stringhint {
|
Line 450 sub end_stringhint {
|
&Apache::response::setup_params('stringhint',$safeeval); |
&Apache::response::setup_params('stringhint',$safeeval); |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
my $id=$Apache::inputtags::hint[-1]; |
my $id=$Apache::inputtags::hint[-1]; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
my $response = $Apache::lonhomework::history{ |
my $response = $Apache::lonhomework::history{ |
"resource.$partid.$submitid.submission"}; |
"resource.$partid.$submitid.submission"}; |
Line 422 sub end_stringhint {
|
Line 477 sub end_stringhint {
|
my $args_ref = |
my $args_ref = |
&Apache::caparesponse::setup_capa_args($safeeval,$parstack, |
&Apache::caparesponse::setup_capa_args($safeeval,$parstack, |
\@args,$response); |
\@args,$response); |
|
if ($$args_ref{'type'} eq '') { |
|
$$args_ref{'type'} = 'ci'; |
|
} |
&Apache::caparesponse::add_in_tag_answer($parstack,$safeeval); |
&Apache::caparesponse::add_in_tag_answer($parstack,$safeeval); |
my (@final_awards,@final_msgs,@ans_names); |
my (@final_awards,@final_msgs,@ans_names); |
my %answer = &Apache::caparesponse::get_answer(); |
my %answer = &Apache::caparesponse::get_answer(); |
Line 530 sub end_optionhint {
|
Line 588 sub end_optionhint {
|
my ($foilmatch,$conceptmatch)=(-1,-1); |
my ($foilmatch,$conceptmatch)=(-1,-1); |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
my $part_id="$partid.$submitid"; |
my $part_id="$partid.$submitid"; |
my %answer; |
my %answer; |
Line 610 sub end_radiobuttonhint {
|
Line 668 sub end_radiobuttonhint {
|
my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval); |
my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval); |
eval('@answer ='.$answer); |
eval('@answer ='.$answer); |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
my $part_id="$partid.$submitid"; |
my $part_id="$partid.$submitid"; |
my $response = $Apache::lonhomework::history{ |
my $response = $Apache::lonhomework::history{ |