version 1.51, 2004/03/16 19:47:47
|
version 1.52, 2004/03/16 22:00:51
|
Line 47 sub start_hintgroup {
|
Line 47 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=$Apache::lonhomework::history{"resource.$id.solved"}; |
if ( $numtries < $hinttries || $gradestatus =~ /^correct/) { |
if ( $numtries < $hinttries || $gradestatus =~ /^correct/) { |
Line 75 sub end_hintgroup {
|
Line 69 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 151 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 |