Subversion Repositories wimsdev

Rev

Rev 15182 | Rev 16736 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
15146 obado 1
!read getparm $module_init_parm intro_check intro_good
2
!if 3 isin $get_introcheck
3
  !set introgivegood=1
4
!endif
5
!default introgivegood=$get_intro_good
6
!default seedrepeat=0
15182 bpr 7
!read oef/default
15146 obado 8
!bound introgivegood between 0 and $limit_version default 1
9
!if (($introgivegood=1 and $seedrepeat<=1) or\
10
    ($introgivegood>=1 and $introgivegood<=$seedcnt and $seedlastcnt>=$seedrepeat)\
11
    or ($introgivegood>=1 and _exam isin $wims_session)\
12
    )
13
  !set presentgood=1
14
!else
15
  !set presentgood=0
16
!endif
15154 bpr 17
 
15155 bpr 18
!!to be used as \presentgood in an oef exercise.
15186 bpr 19
!!set oefenv_presentgood=$presentgood