Return to custompartial.problem CVS log

Up to [LON-CAPA] / loncom / homework / templates

Bug #2802: partial credit multiple answers

    1: <problem>
    2: <startouttext />Complete the sentence:<endouttext />
    3: <customresponse id="11">
    4: <notsolved>
    5: <startouttext />
    6: The q<textline readonly="no" size="5" /> brown fox jum<textline readonly="no" size="3" /> over the <textline readonly="no" size="3" />zy d<textline readonly="no" size="3" />.
    7: <endouttext />
    8: </notsolved>
    9: <solved>
   10: <startouttext />
   11: The q<b>uick</b> brown fox jum<b>ps</b> over the <b>la</b>zy d<b>og</b>.
   12: <endouttext />
   13: </solved>
   14: 
   15:     <answer type="loncapa/perl">@answer=('uick','ps','la','og');
   16: $correct=0;
   17: for ($i=0;$i<=$#$submission;$i++) {
   18:     $$submission[$i]=~s/\s//gs;
   19:     if ($$submission[$i] eq $answer[$i]) { $correct++; }
   20: }
   21: if ($correct==$#answer+1) { return 'EXACT_ANS'; }
   22: if ($correct==0) { return 'INCORRECT'; }
   23: return('ASSIGNED_SCORE',$correct/($#answer+1));</answer>
   24: </customresponse>
   25: </problem>
   26: 
   27: