loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.57, 2004/11/19 22:26:37	version 1.59, 2005/04/07 06:56:21
Line 29	Line 29
package Apache::hinttags;	package Apache::hinttags;

use strict;	use strict;
use Apache::lonnet();	use Apache::lonnet;
use capa;	use capa;
use Apache::lonlocal;	use Apache::lonlocal;

Line 54 sub start_hintgroup {	Line 54 sub start_hintgroup {
$Apache::lonhomework::history{"resource.$id.solved"};	$Apache::lonhomework::history{"resource.$id.solved"};
my $showoncorrect=lc(&Apache::lonxml::get_param('showoncorrect',$parstack,$safeeval));	my $showoncorrect=lc(&Apache::lonxml::get_param('showoncorrect',$parstack,$safeeval));
&Apache::lonxml::debug("onc orrect $showoncorrect, $gradestatus");	&Apache::lonxml::debug("onc orrect $showoncorrect, $gradestatus");
if ( ($showoncorrect ne 'yes' && $gradestatus =~ /^correct/) \|\|	if ( ($showoncorrect ne 'yes' && &Apache::response::show_answer()) \|\|
( $numtries < $hinttries) ) {	( $numtries < $hinttries) ) {
&Apache::lonxml::debug("Grabbin all");	&Apache::lonxml::debug("Grabbin all");
&Apache::lonxml::get_all_text("/hintgroup",$parser);	&Apache::lonxml::get_all_text("/hintgroup",$parser);