loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.238, 2004/02/16 19:19:31	version 1.239, 2004/02/16 19:50:10
Line 1131 sub start_notsolved {	Line 1131 sub start_notsolved {
$target eq 'tex') {	$target eq 'tex') {
my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
&Apache::lonxml::debug("not solved has :$gradestatus:");	&Apache::lonxml::debug("not solved has :$gradestatus:");
if ($gradestatus =~ /^correct/) {	if ($gradestatus =~ /^correct/ &&
	&Apache::response::show_answer()) {
&Apache::lonxml::debug("skipping");	&Apache::lonxml::debug("skipping");
&Apache::lonxml::get_all_text("/notsolved",$parser);	&Apache::lonxml::get_all_text("/notsolved",$parser);
}	}
Line 1148 sub start_solved {	Line 1149 sub start_solved {
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer' \|\|	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer' \|\|
$target eq 'tex') {	$target eq 'tex') {
my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
if ($gradestatus !~ /^correct/) {	if ($gradestatus !~ /^correct/ \|\|
	!&Apache::response::show_answer()) {
&Apache::lonxml::get_all_text("/solved",$parser);	&Apache::lonxml::get_all_text("/solved",$parser);
}	}
}	}