Subversion Repositories wimsdev

Rev

Rev 17475 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17475 Rev 17764
Line -... Line 1...
-
 
1
!default introgivegood=1
1
!read getparm $module_init_parm intro_check intro_good
2
!read getparm $module_init_parm intro_check intro_good qcmlevel
-
 
3
!if $get_intro_good!=$empty
-
 
4
  !set introgivegood=$get_intro_good
-
 
5
!endif
2
!if 3 isin $get_introcheck
6
!if 3 isin $get_intro_check
3
  !set introgivegood=1
7
  !set introgivegood=1
4
!endif
8
!endif
5
!if $givegood!=$empty
9
!if $get_qcmlevel!=$empty
-
 
10
  !! copied from exo.init
-
 
11
  !set givegood=!item $get_qcmlevel of 1,1,1,1,1,1,0,0,0
6
  !set introgivegood=$givegood
12
  !set introgivegood=$givegood
7
!endif
13
!endif
8
!default introgivegood=$get_intro_good
-
 
9
!default seedrepeat=0
14
!default seedrepeat=0
10
!read oef/default
15
!read oef/default
11
!bound introgivegood between -1 and $limit_version default 1
16
!bound introgivegood between -1 and $limit_version default 1
12
!if $introgivegood=-1
17
!if $introgivegood=-1
13
  !set scorestat=!getscorestatus sheet=$wims_sheet
18
  !set scorestat=!getscorestatus sheet=$wims_sheet