version 1.51, 2004/03/16 19:47:47
|
version 1.53, 2004/03/16 22:24:31
|
Line 29
|
Line 29
|
package Apache::hinttags; |
package Apache::hinttags; |
|
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet(); |
use capa; |
use capa; |
|
use Apache::lonlocal; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart','numericalhint','stringhint','formulahint','optionhint','radiobuttonhint')); |
&Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart','numericalhint','stringhint','formulahint','optionhint','radiobuttonhint')); |
Line 47 sub start_hintgroup {
|
Line 48 sub start_hintgroup {
|
my $id=$Apache::inputtags::part; |
my $id=$Apache::inputtags::part; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
if ( $numtries eq '') { $numtries = 0; } |
if ( $numtries eq '') { $numtries = 0; } |
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); |
my $hinttries=&Apache::response::get_response_param($id,"hinttries",1); |
if ($ENV{'request.state'} eq 'construct' && |
|
defined($Apache::inputtags::params{'hinttries'})) { |
|
$hinttries=$Apache::inputtags::params{'hinttries'}; |
|
} |
|
|
|
if ( $hinttries eq '') { $hinttries = 1; } |
|
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
my $gradestatus=$Apache::lonhomework::history{"resource.$id.solved"}; |
my $gradestatus= |
if ( $numtries < $hinttries || $gradestatus =~ /^correct/) { |
$Apache::lonhomework::history{"resource.$id.solved"}; |
|
my $showoncorrect=lc(&Apache::lonxml::get_param('showoncorrect',$parstack,$safeeval)); |
|
&Apache::lonxml::debug("onc orrect $showoncorrect, $gradestatus"); |
|
if ( ($showoncorrect ne 'yes' && $gradestatus =~ /^correct/) || |
|
( $numtries < $hinttries) ) { |
|
&Apache::lonxml::debug("Grabbin all"); |
&Apache::lonxml::get_all_text("/hintgroup",$parser); |
&Apache::lonxml::get_all_text("/hintgroup",$parser); |
} |
} |
&Apache::lonxml::startredirection; |
&Apache::lonxml::startredirection; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$result .= '\keephidden{'; |
$result .= '\keephidden{'; |
|
} elsif ($target eq 'edit') { |
|
$result.=&Apache::edit::tag_start($target,$token); |
|
$result.=&Apache::edit::select_arg('Show hint when problem Correct:','showoncorrect',[['no',&mt('No')],['yes',&mt('Yes')]]); |
|
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
|
} elsif ($target eq 'modified') { |
|
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'showoncorrect'); |
|
if ($constructtag) { |
|
$result =&Apache::edit::rebuild_tag($token); |
|
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} |
@Apache::hint::which=(); |
@Apache::hint::which=(); |
return $result; |
return $result; |
Line 75 sub end_hintgroup {
|
Line 85 sub end_hintgroup {
|
my $id=$Apache::inputtags::part; |
my $id=$Apache::inputtags::part; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
if ( $numtries eq '') { $numtries = 0; } |
if ( $numtries eq '') { $numtries = 0; } |
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); |
my $hinttries=&Apache::response::get_response_param($id,"hinttries",1); |
if ( $hinttries eq '') { $hinttries = 1; } |
|
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
my $hinttext=&Apache::lonxml::endredirection; |
my $hinttext=&Apache::lonxml::endredirection; |
if ($Apache::lonhomework::type ne 'exam' && |
if ($Apache::lonhomework::type ne 'exam' && |
Line 158 sub end_numericalhint {
|
Line 167 sub end_numericalhint {
|
my $response = $Apache::lonhomework::history{ |
my $response = $Apache::lonhomework::history{ |
"resource.$partid.$submitid.submission"}; |
"resource.$partid.$submitid.submission"}; |
&Apache::lonxml::debug("hintgroup is using $response<br />\n"); |
&Apache::lonxml::debug("hintgroup is using $response<br />\n"); |
my $hideunit=&Apache::lonnet::EXT('resource.'.$submitid.'_'.$id.'.turnoffunit'); |
my $hideunit=&Apache::response::get_response_param($submitid.'_'.$id, |
|
'turnoffunit'); |
my $args_ref= \%{$safeeval->varglob('LONCAPA::CAPAresponse_args')}; |
my $args_ref= \%{$safeeval->varglob('LONCAPA::CAPAresponse_args')}; |
$$args_ref{'response'}=$response; |
$$args_ref{'response'}=$response; |
#need to get all possible parms |
#need to get all possible parms |