version 1.25, 2005/05/19 21:22:44
|
version 1.26, 2005/05/19 21:28:06
|
Line 347 sub end_Task {
|
Line 347 sub end_Task {
|
$Apache::lonhomework::results{"resource.$version.0.awarded"}='1'; |
$Apache::lonhomework::results{"resource.$version.0.awarded"}='1'; |
&remove_from_queue(); |
&remove_from_queue(); |
} |
} |
$Apache::lonhomework::results{'resource.status'}= |
$Apache::lonhomework::results{"resource.status"}= |
$Apache::lonhomework::results{'resource.$version.status'}; |
$Apache::lonhomework::results{"resource.$version.status"}; |
if (defined($Apache::lonhomework::results{'resource.$version.awarded'})) { |
if (defined($Apache::lonhomework::results{"resource.$version.awarded"})) { |
$Apache::lonhomework::results{'resource.0.award'}= |
$Apache::lonhomework::results{"resource.0.award"}= |
$Apache::lonhomework::results{'resource.$version.award'}; |
$Apache::lonhomework::results{"resource.$version.award"}; |
$Apache::lonhomework::results{'resource.0.awarded'}= |
$Apache::lonhomework::results{"resource.0.awarded"}= |
$Apache::lonhomework::results{'resource.$version.awarded'}; |
$Apache::lonhomework::results{"resource.$version.awarded"}; |
$Apache::lonhomework::results{'resource.0.solved'}= |
$Apache::lonhomework::results{"resource.0.solved"}= |
$Apache::lonhomework::results{'resource.$version.solved'}; |
$Apache::lonhomework::results{"resource.$version.solved"}; |
} |
} |
&Apache::structuretags::finalize_storage(); |
&Apache::structuretags::finalize_storage(); |
} |
} |
Line 638 sub get_instance {
|
Line 638 sub get_instance {
|
my $version=&get_version(); |
my $version=&get_version(); |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result=$dimension{'intro'}.$dimension{$instance.'.text'}; |
$result=$dimension{'intro'}.$dimension{$instance.'.text'}; |
if ($Apache::lonhomework::history{'resource.$version.status'} eq 'pass' || |
if ($Apache::lonhomework::history{"resource.$version.status"} eq 'pass' || |
$Apache::lonhomework::history{'resource.$version.status'} eq 'fail') { |
$Apache::lonhomework::history{"resource.$version.status"} eq 'fail') { |
foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
my $status=$Apache::lonhomework::history{"resource.$version.$dim.$instance.$id.status"}; |
my $status=$Apache::lonhomework::history{"resource.$version.$dim.$instance.$id.status"}; |
my $comment=$Apache::lonhomework::history{"resource.$version.$dim.$instance.$id.comment"}; |
my $comment=$Apache::lonhomework::history{"resource.$version.$dim.$instance.$id.comment"}; |