[BACK]Return to bridgetask.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/bridgetask.pm between versions 1.25 and 1.26

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"};
Removed from v.1.25  
changed lines
  Added in v.1.26

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>