version 1.67, 2006/12/19 14:53:17
|
version 1.72, 2008/10/24 16:22:54
|
Line 68 sub start_hintgroup {
|
Line 68 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'); |
if ($constructtag) { |
if ($constructtag) { |
$result =&Apache::edit::rebuild_tag($token); |
$result =&Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} |
} |
@Apache::hint::which=(); |
@Apache::hint::which=(); |
Line 141 sub start_numericalhint {
|
Line 140 sub start_numericalhint {
|
} |
} |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result .= &Apache::edit::handle_insert(); |
|
} |
} |
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
&Apache::response::reset_params(); |
&Apache::response::reset_params(); |
Line 162 sub end_numericalhint {
|
Line 160 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 256 sub start_mathhint {
|
Line 254 sub start_mathhint {
|
$safeeval,'name','cas', |
$safeeval,'name','cas', |
'args'); |
'args'); |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result .= &Apache::edit::handle_insert(); |
|
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
&Apache::response::reset_params(); |
&Apache::response::reset_params(); |
} |
} |
Line 314 sub start_customhint {
|
Line 311 sub start_customhint {
|
$constructtag=&Apache::edit::get_new_args($token,$parstack, |
$constructtag=&Apache::edit::get_new_args($token,$parstack, |
$safeeval,'name'); |
$safeeval,'name'); |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result .= &Apache::edit::handle_insert(); |
|
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
&Apache::response::reset_params(); |
&Apache::response::reset_params(); |
} |
} |
Line 381 sub start_stringhint {
|
Line 377 sub start_stringhint {
|
$safeeval,'name','answer', |
$safeeval,'name','answer', |
'type'); |
'type'); |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result .= &Apache::edit::handle_insert(); |
|
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
&Apache::response::reset_params(); |
&Apache::response::reset_params(); |
} |
} |
Line 400 sub end_stringhint {
|
Line 395 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 427 sub end_stringhint {
|
Line 422 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 492 sub start_hintpart {
|
Line 490 sub start_hintpart {
|
$safeeval,'on'); |
$safeeval,'on'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} |
} |
return $result; |
return $result; |
Line 522 sub start_optionhint {
|
Line 519 sub start_optionhint {
|
'answer','concept'); |
'answer','concept'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result .= &Apache::edit::handle_insert(); |
|
} |
} |
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
$result=&Apache::response::meta_package_write('numericalhint'); |
$result=&Apache::response::meta_package_write('numericalhint'); |
Line 537 sub end_optionhint {
|
Line 533 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 601 sub start_radiobuttonhint {
|
Line 597 sub start_radiobuttonhint {
|
'answer'); |
'answer'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result .= &Apache::edit::handle_insert(); |
|
} |
} |
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
$result=&Apache::response::meta_package_write('numericalhint'); |
$result=&Apache::response::meta_package_write('numericalhint'); |
Line 618 sub end_radiobuttonhint {
|
Line 613 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{ |