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