Subversion Repositories wimsdev

Rev

Rev 18144 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !set t=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  2. !set aelist=
  3. !for i=1 to $t
  4.   !! ------test if exam is hidden for this user
  5.   !set tmp_status=!getsheetstatus class=$wims_class exam=$i
  6.   !if $tmp_status iswordof 1 2
  7.     !set aelist=!append item $i to $aelist
  8.   !endif
  9.   !reset tmp_status
  10. !next i
  11. !set m=!itemcnt $aelist
  12.