Diff for /loncom/homework/response.pm between versions 1.71 and 1.72

version 1.71, 2003/04/18 07:12:13 version 1.72, 2003/04/21 20:59:02
Line 439  sub repetition { Line 439  sub repetition {
     return $repetition;      return $repetition;
 }  }
   
   sub scored_response {
       my ($part,$id)=@_;
       my $repetition=&repetition();
       my $score=0;
       for (my $i=0;$i<$repetition;$i++) {
    my $increase=&Apache::response::getresponse($i+1);
    if ($increase ne '') { $score+=$increase+1; }
       }
       my $weight = &Apache::lonnet::EXT("resource.$part.weight");
       my $pcr=$score/$weight;
       $Apache::lonhomework::results{"resource.$part.$id.awarded"}=$pcr;
       $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=
    'ASSIGNED_SCORE';
       return $repetition;
   }
   
 1;  1;
 __END__  __END__
     

Removed from v.1.71  
changed lines
  Added in v.1.72


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