loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/hint.pm between versions 1.44 and 1.47

version 1.44, 2003/06/20 04:18:49	version 1.47, 2004/03/04 21:21:55
Line 48 sub start_hintgroup {	Line 48 sub start_hintgroup {
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::lonnet::EXT("resource.$id.hinttries");
	if ($ENV{'request.state'} eq 'construct' &&
	defined($Apache::inputtags::params{'hinttries'})) {
	$hinttries=$Apache::inputtags::params{'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 ) {	my $gradestatus=$Apache::lonhomework::history{"resource.$id.solved"};
	if ( $numtries < $hinttries \|\| $gradestatus =~ /^correct/) {
&Apache::lonxml::get_all_text("/hintgroup",$parser);	&Apache::lonxml::get_all_text("/hintgroup",$parser);
}	}
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;
Line 166 sub end_numericalhint {	Line 172 sub end_numericalhint {
$expression.=';my $type="float";';	$expression.=';my $type="float";';
}	}
$expression.="');";	$expression.="');";
	my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);
	&Apache::lonxml::debug('answer is'.join(':',@answer));
	@{$safeeval->varglob('CAPARESPONSE_CHECK_LIST_answer')}=@answer;

$result = &Apache::run::run($expression,$safeeval);	$result = &Apache::run::run($expression,$safeeval);
&Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth");	&Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth");
my ($awards) = split /:/ , $result;	my ($awards) = split /:/ , $result;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.44
changed lines
	Added in v.1.47