version 1.3, 2001/01/04 22:52:03
|
version 1.4, 2001/01/05 01:14:08
|
Line 21 sub start_hintgroup {
|
Line 21 sub start_hintgroup {
|
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); |
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); |
if ( $hinttries eq '') { $hinttries = 1; } |
if ( $hinttries eq '') { $hinttries = 1; } |
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
if ( $numtries > $hinttries ) { |
if ( $numtries >= $hinttries ) { |
$skiptoend='0'; |
$skiptoend='0'; |
if ($target eq 'web') {$result='<table bgcolor="#dddddd"><tr><td>';} |
if ($target eq 'web') {$result='<table bgcolor="#dddddd"><tr><td>';} |
} |
} |
Line 44 sub end_hintgroup {
|
Line 44 sub end_hintgroup {
|
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); |
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); |
if ( $hinttries eq '') { $hinttries = 1; } |
if ( $hinttries eq '') { $hinttries = 1; } |
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:"); |
if ( $numtries > $hinttries ) { |
if ( $numtries >= $hinttries ) { |
if ($target eq 'web') {$result='</td></tr></table>';} |
if ($target eq 'web') {$result='</td></tr></table>';} |
} |
} |
} |
} |
Line 63 sub end_numericalhint {
|
Line 63 sub end_numericalhint {
|
my $args =''; |
my $args =''; |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval); |
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval); |
my $oldresponse = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}; |
my $response = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}; |
&Apache::lonxml::debug("hintgroup is using $response<br>\n"); |
&Apache::lonxml::debug("hintgroup is using $response<br>\n"); |
my $expression="&caparesponse_check_list('".$response."','". |
my $expression="&caparesponse_check_list('".$response."','". |
$$parstack[$#$parstack]. |
$$parstack[$#$parstack]. |
Line 82 sub end_numericalhint {
|
Line 82 sub end_numericalhint {
|
|
|
# a part shows if it is on, if no specific parts are on, then default shows |
# a part shows if it is on, if no specific parts are on, then default shows |
sub start_hintpart { |
sub start_hintpart { |
return ''; |
|
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
|
|
my $show ='0'; |
my $show ='0'; |
|
|
if ($target ne 'meta' && $target ne 'grade') { |
if ($target ne 'meta' && $target ne 'grade') { |
my $args =''; |
my $args =''; |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
Line 93 sub start_hintpart {
|
Line 93 sub start_hintpart {
|
if ( $on eq 'default' && $#Apache::hint::which == '-1') { |
if ( $on eq 'default' && $#Apache::hint::which == '-1') { |
} else { |
} else { |
my $which; |
my $which; |
foreeach $which (@Apache::hint::which) { if ($which eq $name) { $show = 1; last } } |
foreach $which (@Apache::hint::which) { if ($which eq $on) { $show = 1; last } } |
} |
} |
if (!$show) { |
if (!$show) { |
&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); |
&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); |