loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.36, 2003/02/23 20:37:56	version 1.37, 2003/04/02 18:51:11
Line 53 sub start_hintgroup {	Line 53 sub start_hintgroup {
if ( $numtries < $hinttries ) {	if ( $numtries < $hinttries ) {
$skiptoend='1';	$skiptoend='1';
} else {	} else {
if ($target eq 'web') {$result='<table bgcolor="#dddddd"><tr><td>';}	if ($target eq 'web' && $Apache::lonhomework::type ne 'exam') {
	$result='<table bgcolor="#dddddd"><tr><td>';
	} elsif ($Apache::lonhomework::type eq 'exam') {
	&Apache::lonxml::startredirection;
	}
}	}
if ($skiptoend) {	if ($skiptoend) {
&Apache::lonxml::get_all_text("/hintgroup",$parser);	&Apache::lonxml::get_all_text("/hintgroup",$parser);
Line 76 sub end_hintgroup {	Line 80 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 && $Apache::lonhomework::type ne 'exam') {
$result='</td></tr></table>';	$result='</td></tr></table>';
	} elsif ($Apache::lonhomework::type eq 'exam') {
	my $garbage = &Apache::lonxml::endredirection;
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::end_table();	$result.=&Apache::edit::end_table();