loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.55, 2005/09/29 19:18:37	version 1.57, 2005/09/30 20:34:53
Line 367 sub start_Task {	Line 367 sub start_Task {
$result.="$head_tag_start<title>$name</title></head>	$result.="$head_tag_start<title>$name</title></head>
$body_tag_start \n".&style();	$body_tag_start \n".&style();

$result.=$form_tag_start.
'<input type="hidden" name="submitted" value="yes" />';
$result.=&preserve_grade_info();	$result.=&preserve_grade_info();
$result.=&internal_location();	$result.=&internal_location();
	$result.=$form_tag_start.
	'<input type="hidden" name="submitted" value="yes" />';
&Apache::lonxml::startredirection();	&Apache::lonxml::startredirection();
}	}
} elsif ( ($target eq 'grade' && $env{'form.webgrade'}) \|\|	} elsif ( ($target eq 'grade' && $env{'form.webgrade'}) \|\|
Line 564 sub end_Task {	Line 564 sub end_Task {
"</table>";	"</table>";
$result.=&Apache::inputtags::gradestatus('0');	$result.=&Apache::inputtags::gradestatus('0');
}	}
if (&show_task($status,$previous)) {	if (&show_task($status,$previous) &&
	$Apache::lonhomework::history{"resource.$version.status"} =~ /^(pass\|fail)$/) {
my $bt_status=$Apache::lonhomework::history{"resource.$version.status"};	my $bt_status=$Apache::lonhomework::history{"resource.$version.status"};
my $title=&Apache::lonnet::gettitle();	my $title=&Apache::lonnet::gettitle();
my %slot=&Apache::lonnet::get_slot($Apache::inputtags::slot_name);	my %slot=&Apache::lonnet::get_slot($Apache::inputtags::slot_name);