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