Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !if $condtest=-1 |
16204 | bpr | 2 | scoretest=0 |
3 | !goto score |
||
20 | reyssat | 4 | !endif |
5 | |||
6 | casecnt=!linecnt $allcases |
||
7 | !if $cutstop!=yes and $casecnt>2 |
||
16204 | bpr | 8 | oldcaseid=$caseid |
9 | caseline=!line 1 of $allcases |
||
10 | cases=!line 2 to -1 of $allcases |
||
11 | caseline=!translate internal $ $ to $\ |
||
20 | reyssat | 12 | $ in $caseline |
16204 | bpr | 13 | activecase=!line 1 of $caseline |
14 | caseids=!line 2 to -1 of $caseline |
||
15 | cases2= |
||
16 | caseids2= |
||
17 | !if $activecase>1 |
||
18 | cases2=!line 1 to $[$activecase-1] of $cases |
||
19 | caseids2=!line 1 to $[$activecase-1] of $caseids |
||
20 | !endif |
||
21 | !if $activecase<$casecnt-1 |
||
22 | cases3=!line $activecase+1 to -1 of $cases |
||
23 | caseids3=!line $activecase+1 to -1 of $caseids |
||
24 | cases2=!append line $cases3 to $cases2 |
||
25 | caseids2=!append line $caseids3 to $caseids2 |
||
26 | !else |
||
27 | activecase=$[$activecase-1] |
||
28 | !endif |
||
29 | caseid=!line $activecase of $caseids2 |
||
30 | caseline=!translate internal $\ |
||
20 | reyssat | 31 | $ to $ $ in $activecase\ |
32 | $caseids2 |
||
33 | allcases=$caseline\ |
||
34 | $cases2 |
||
16204 | bpr | 35 | !reset newobject,m_newobject,newObject |
36 | !read deduc/objects.get |
||
37 | !read deduc/methreset erase |
||
38 | # statusline=!replace item number $currstep by () in $statusline |
||
39 | # statusLine=!replace item number $currstep by () in $statusLine |
||
40 | object$[$currstep-1]=$allcases |
||
41 | casefinished=$oldcaseid |
||
42 | !exit |
||
20 | reyssat | 43 | !endif |
44 | |||
45 | :score |
||
46 | !if $earlyscore=$empty |
||
47 | module_score=$scoretest |
||
48 | wims_module_log=score $module_score/10 |
||
49 | !endif |
||
50 | score=$scoretest |
||
51 | status= |