Subversion Repositories wimsdev

Rev

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=