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

Diff for /loncom/homework/bridgetask.pm between versions 1.38 and 1.39

version 1.38, 2005/08/09 07:34:51 version 1.39, 2005/08/09 16:48:15
Line 551  sub end_Task { Line 551  sub end_Task {
  $Apache::lonhomework::results{"resource.$version.0.solved"}='incorrect_by_override';   $Apache::lonhomework::results{"resource.$version.0.solved"}='incorrect_by_override';
  $Apache::lonhomework::results{"resource.$version.0.award"}='INCORRECT';   $Apache::lonhomework::results{"resource.$version.0.award"}='INCORRECT';
  $Apache::lonhomework::results{"resource.$version.0.awarded"}='0';   $Apache::lonhomework::results{"resource.$version.0.awarded"}='0';
  &remove_from_queue($env{'form.queue'});   &remove_from_queue($env{'form.queue'}); 
   
    my ($symb,$courseid,$udom,$uname)=&Apache::lonxml::whichuser();
    $Apache::lonhomework::results{"resource.$version.0.bridgetask.portfiles"}=
       $Apache::lonhomework::history{"resource.$version.0.bridgetask.portfiles"};
    &Apache::grades::version_portfiles(
    \%Apache::lonhomework::results,
    ["$version.0.bridgetask"],$courseid,
    $symb,$udom,$uname,
    ["$version.0.bridgetask"]);
     } else {      } else {
  $Apache::lonhomework::results{"resource.$version.status"}='pass';   $Apache::lonhomework::results{"resource.$version.status"}='pass';
  $Apache::lonhomework::results{"resource.$version.0.solved"}='correct_by_override';   $Apache::lonhomework::results{"resource.$version.0.solved"}='correct_by_override';
  $Apache::lonhomework::results{"resource.$version.0.award"}='EXACT_ANS';   $Apache::lonhomework::results{"resource.$version.0.award"}='EXACT_ANS';
  $Apache::lonhomework::results{"resource.$version.0.awarded"}='1';   $Apache::lonhomework::results{"resource.$version.0.awarded"}='1';
  &remove_from_queue($env{'form.queue'});   &remove_from_queue($env{'form.queue'});
   
    my ($symb,$courseid,$udom,$uname)=&Apache::lonxml::whichuser();
    $Apache::lonhomework::results{"resource.$version.0.bridgetask.portfiles"}=
       $Apache::lonhomework::history{"resource.$version.0.bridgetask.portfiles"};
    &Apache::grades::version_portfiles(
    \%Apache::lonhomework::results,
    ["$version.0.bridgetask"],$courseid,
    $symb,$udom,$uname,
    ["$version.0.bridgetask"]);
     }      }
     $Apache::lonhomework::results{"resource.status"}=      $Apache::lonhomework::results{"resource.status"}=
  $Apache::lonhomework::results{"resource.$version.status"};   $Apache::lonhomework::results{"resource.$version.status"};
Removed from v.1.38  
changed lines
  Added in v.1.39

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