Return to custompartial.problem CVS log

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

Annotation of loncom/homework/templates/custompartial.problem, revision 1.1

1.1     ! www         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: