Subversion Repositories wimsdev

!read getparm $module_init_parm intro_check intro_good

!if 3 isin $get_introcheck

  !set introgivegood=1

!endif

!default introgivegood=$get_intro_good

!default seedrepeat=0

!bound introgivegood between 0 and $limit_version default 1

!if (($introgivegood=1 and $seedrepeat<=1) or\

    ($introgivegood>=1 and $introgivegood<=$seedcnt and $seedlastcnt>=$seedrepeat)\

    or ($introgivegood>=1 and _exam isin $wims_session)\

    )

  !set presentgood=1

!else

  !set presentgood=0

!endif