Subversion Repositories wimsdev

!default introgivegood=1
!read getparm $module_init_parm intro_check intro_good qcmlevel
!if $get_intro_good!=$empty
  !set introgivegood=$get_intro_good
!endif
!if 3 isin $get_intro_check
  !set introgivegood=1
!endif
!if $get_qcmlevel!=$empty
  !! copied from exo.init
  !set givegood=!item $get_qcmlevel of 1,1,1,1,1,1,0,0,0
  !set introgivegood=$givegood
!endif
!default seedrepeat=0
!read oef/default
!bound introgivegood between -1 and $limit_version default 1
!if $introgivegood=-1
  !set scorestat=!getscorestatus sheet=$wims_sheet
!endif
!if (($introgivegood=1 and $seedrepeat<=1) or\
    ($introgivegood>=1 and $introgivegood<=$seedcnt and $seedlastcnt>=$seedrepeat)\
    or ($introgivegood>=1 and _exam isin $wims_session)\
    or ($introgivegood=-1 and $scorestat=no)\
    )
  !set presentgood=1
!else
  !set presentgood=0
!endif

!!to be used as \presentgood in an oef exercise.
!!set oefenv_presentgood=$presentgood