Subversion Repositories wimsdev

Rev

Rev 12423 | Rev 12460 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12423 Rev 12459
Line 15... Line 15...
15
!endif
15
!endif
16
!if $intro_expert=yes
16
!if $intro_expert=yes
17
  !distribute items 0,0,0,0 into qcmgood,penalty,presentgood,givehint
17
  !distribute items 0,0,0,0 into qcmgood,penalty,presentgood,givehint
18
  !bound intro_qcmpresent between 2 and 8 default $(default_choice[4])
18
  !bound intro_qcmpresent between 2 and 8 default $(default_choice[4])
19
  qcmpresent=$intro_qcmpresent
19
  qcmpresent=$intro_qcmpresent
20
  !bound intro_presentsol between 0 and 5 default $(default_choice[3])
20
  !bound intro_presentsolu between 0 and $limit_version default $(default_choice[3])
21
  !bound intro_presentfeed between 0 and 5 default $(default_choice[5])
21
  !bound intro_presentfeed between 0 and $limit_version default $(default_choice[5])
-
 
22
  !! for retrocompatibility
22
  presentsol=$intro_presentsol
23
  presentsol=$intro_presentsol
-
 
24
  !if $presentsol!=$empty
-
 
25
    presentsolu=$[$presentsol-1]
-
 
26
  !else
-
 
27
    presentsolu=$intro_presentsolu
-
 
28
  !endif
23
  presentfeed=$intro_presentfeed
29
  presentfeed=$intro_presentfeed
24
  introcheck=!listintersect $intro_check,$intro_check3,$intro_check4 and $introcheck_list
-
 
25
  !read oef/testseedscore.phtml
30
  !read oef/testseedscore.phtml
26
  !read getparm $module_init_parm intro_check
31
  !read getparm $module_init_parm intro_check intro_check4
27
  !default introcheck=$get_intro_check
32
  !if 4 isin $get_introcheck
-
 
33
    !set introcheck4=1
-
 
34
  !endif
28
  !set introcheck4=!values x-40 for x in $introcheck
35
  !default introcheck4=$get_intro_check4
29
  !set introcheck4=!listintersect $introcheck4 and 0,1,2,3,4,5
36
  !bound introcheck4 between 0 and $limit_version
30
  !default seedrepeat=0
37
  !default seedrepeat=1
31
  !default introcheck4=1
38
  !default introcheck4=0
32
  !default seedlastcnt=0
39
  !default seedlastcnt=0
33
  !!calculation done before the line with new.
40
  !!calculation done before the line with new.
34
  !if $seedlastcnt>=$seedrepeat
41
  !if $seedlastcnt>=$seedrepeat
35
    !set seedlastcnt=0
42
    !set seedlastcnt=0
36
    !increase seedcnt
43
    !increase seedcnt
37
  !else
44
  !else
38
    !increase seedlastcnt
45
    !increase seedlastcnt
39
  !endif
46
  !endif
40
  !if (4 isitemof $intro_check or ($introcheck4=1 and $seedrepeat=0) or\
47
  !if (4 isitemof $intro_check or ($introcheck4=1 and $seedrepeat<=1) or\
41
      ($introcheck4>=1 and $seedcnt>=$introcheck4 and $seedlastcnt>=$seedrepeat))
48
      ($introcheck4>=1 and $seedcnt>=$introcheck4 and $seedlastcnt>=$seedrepeat))
42
    !set givehint=1
49
    !set givehint=1
43
  !endif
50
  !endif
44
  !bound intro_expow between 1 and 6 default $(list_expow[1])
51
  !bound intro_expow between 1 and 6 default $(list_expow[1])
45
  !bound intro_sepow between 1 and 6 default $(list_sepow[1])
52
  !bound intro_sepow between 1 and 6 default $(list_sepow[1])
Line 57... Line 64...
57
  !endif
64
  !endif
58
  !if 2 isitemof $introcheck
65
  !if 2 isitemof $introcheck
59
    penalty=1
66
    penalty=1
60
  !endif
67
  !endif
61
!else
68
!else
62
!! non expert parametrage, every thing is deduced from the qcmlevel
69
  !! non expert parametrage, every thing is deduced from the qcmlevel
63
  !default qcmpresent =!item $qcmlevel of 2,3,4,5,5,6,7,8,8
70
  !default qcmpresent =!item $qcmlevel of 2,3,4,5,5,6,7,8,8
64
  !default qcmgood    =!item $qcmlevel of 1,1,1,1,0,0,0,0,0
71
  !default qcmgood    =!item $qcmlevel of 1,1,1,1,0,0,0,0,0
65
  !default penalty    =!item $qcmlevel of 0,0,0,0,0,1,1,1,1
72
  !default penalty    =!item $qcmlevel of 0,0,0,0,0,1,1,1,1
66
  !default presentgood=!item $qcmlevel of 1,1,1,1,1,1,0,0,0
73
  !default presentgood=!item $qcmlevel of 1,1,1,1,1,1,0,0,0
67
  !default presentsol =!item $qcmlevel of 2,2,1,0,0,0,0,0,0
74
  !default presentsolu=!item $qcmlevel of 1,1,1,0,0,0,0,0,0
68
  !default presentfeed =!item $qcmlevel of 2,2,2,2,2,2,2,2,2
75
  !default presentfeed=!item $qcmlevel of 1,1,1,1,1,1,1,1,1
69
  !default givehint   =!item $qcmlevel of 1,1,1,1,1,0,0,0,0
76
  !default givehint   =!item $qcmlevel of 1,1,1,1,1,0,0,0,0
70
  !default scorepower =!item $qcmlevel of 1,1,1,1.1,1.3,1.5,1.7,2,2.6
77
  !default scorepower =!item $qcmlevel of 1,1,1,1.1,1.3,1.5,1.7,2,2.6
71
  !default freepower  =!item $qcmlevel of 1,1.5,2,2.5,3,3.5,4,4.5,5
78
  !default freepower  =!item $qcmlevel of 1,1.5,2,2.5,3,3.5,4,4.5,5
72
  !default precweight =!item $qcmlevel of 0.9,0.8,0.7,0.55,0.4,0.25,0.1,0,0
79
  !default precweight =!item $qcmlevel of 0.9,0.8,0.7,0.55,0.4,0.25,0.1,0,0
73
!endif
80
!endif