Subversion Repositories wimsdev

Rev

Rev 18127 | 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 exam 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.   !set tmp_status=!getsheetstatus class=$wims_class exam=$i
  13. !sh printf "user_varexam: $tmp_status iswordof 1 2 <-> $a_>=1 and $a_<=2 and $hidden_sheet!=1\n" >> fichier_idiot
  14.   !if $tmp_status iswordof 1 2
  15.   !!if $a_>=1 and $a_<=2 and $hidden_sheet!=1
  16.     !set aelist=!append item $i to $aelist
  17.   !endif
  18.   !!reset hidden_sheet
  19.   !reset tmp_status
  20. !next i
  21. !set m=!itemcnt $aelist
  22.