Subversion Repositories wimsdev

Rev

Rev 18127 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18127 Rev 18144
Line 2... Line 2...
2 
!set aelist=
 2 
!set aelist=
3 
!for i=1 to $t
 3 
!for i=1 to $t
4 
  !set e_$i=!record $i of wimshome/log/classes/$wims_class/exams/.exams
 4 
  !set e_$i=!record $i of wimshome/log/classes/$wims_class/exams/.exams
5 
  !set a_=!line 1 of $(e_$i)
 5 
  !set a_=!line 1 of $(e_$i)
6 
  !! ------test if exam is hidden for this user
 6 
  !! ------test if exam is hidden for this user
7 
  !!!set h_=!line 8 of $(e_$i)
 7 
  !set h_=!line 8 of $(e_$i)
8 
  !!!if $h_!=$empty
 8 
  !if $h_!=$empty
9 
  !!  !readproc adm/vfilter/ishiddensheet.proc $h_
 9 
    !readproc adm/vfilter/ishiddensheet.proc $h_
10 
  !!!endif
 10 
  !endif
11 
  !! -----end test
 11 
  !! -----end test
12 
  !set tmp_status=!getsheetstatus class=$wims_class exam=$i
 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
13 
  !if $tmp_status iswordof 1 2
 14 
  !if $tmp_status iswordof 1 2
14 
  !!if $a_>=1 and $a_<=2 and $hidden_sheet!=1
 15 
  !!if $a_>=1 and $a_<=2 and $hidden_sheet!=1
15 
    !set aelist=!append item $i to $aelist
 16 
    !set aelist=!append item $i to $aelist
16 
  !endif
 17 
  !endif
17 
  !reset hidden_sheet
 18 
  !!reset hidden_sheet
18 
  !reset tmp_status
 19 
  !reset tmp_status
19 
!next i
 20 
!next i
20 
!set m=!itemcnt $aelist
 21 
!set m=!itemcnt $aelist