Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

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