Subversion Repositories wimsdev

!read getparm $module_init_parm intro_check intro_good
!if 3 isin $get_introcheck
  !set introgivegood=1
!endif
!if $givegood!=$empty
  !set introgivegood=$givegood
!endif
!default introgivegood=$get_intro_good
!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