loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.23, 2005/05/10 20:58:38	version 1.24, 2005/05/13 15:34:50
Line 128 sub start_Task {	Line 128 sub start_Task {
}	}
if ($target eq 'web' \|\| ($target eq 'grade' && !$env{'form.webgrade'}) \|\| $target eq 'answer' \|\|	if ($target eq 'web' \|\| ($target eq 'grade' && !$env{'form.webgrade'}) \|\| $target eq 'answer' \|\|
$target eq 'tex') {	$target eq 'tex') {
	my $version=$Apache::lonhomework::history{'resource.version'};
($status,$accessmsg,my $slot_name,$slot) =	($status,$accessmsg,my $slot_name,$slot) =
&Apache::lonhomework::check_task_access('0');	&Apache::lonhomework::check_task_access('0');
push(@Apache::inputtags::status,$status);	push(@Apache::inputtags::status,$status);
Line 623 sub get_instance {	Line 624 sub get_instance {
}	}
}	}
} elsif ($target eq 'webgrade') {	} elsif ($target eq 'webgrade') {
	my $version=$Apache::lonhomework::history{'resource.version'};
foreach my $id (@{$dimension{$instance.'.criterias'}}) {	foreach my $id (@{$dimension{$instance.'.criterias'}}) {
my $link='criteria_'.$instance.'_'.$id;	my $link='criteria_'.$instance.'_'.$id;
my $status=$Apache::lonhomework::history{"resource.$dim_id.$instance.$id.status"};	my $status=$Apache::lonhomework::history{"resource.$dim_id.$instance.$id.status"};