loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.18, 2001/08/17 21:42:19	version 1.19, 2001/10/05 17:01:05
Line 38 sub start_hintgroup {	Line 38 sub start_hintgroup {
sub end_hintgroup {	sub end_hintgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;

if ($target eq 'web') {	if ($target eq 'web') {
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"};
Line 46 sub end_hintgroup {	Line 46 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>';}	$result='</td></tr></table>';
}	}
}	}
@Apache::hint::which='';	@Apache::hint::which=();
return $result;	return $result;
}	}