Subversion Repositories wimsdev

Rev

Rev 16006 | Rev 18144 | Go to most recent revision | 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.   !set e_$i=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  5.   !set a_=!line 1 of $(e_$i)
  6.   !! ------test if sheet is hidden for this user
  7.     !set h_=!line 8 of $(e_$i)
  8.     !if $h_!=$empty
  9.       !readproc adm/vfilter/ishiddensheet.proc $h_
  10.     !endif
  11.   !! -----end test
  12.   !if $a_>=1 and $a_<=2 and $hidden_sheet!=1
  13.     !set aelist=!append item $i to $aelist
  14.   !endif
  15.   !reset hidden_sheet
  16. !next i
  17. !set m=!itemcnt $aelist
  18.