Subversion Repositories wimsdev

Rev

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

Rev 4640 Rev 4652
Line 3... Line 3...
3 
 
 3 
 
4 
!read jobs/listclasses.proc
 4 
!read jobs/listclasses.proc
5 
listclasses_cnt=!itemcnt $listclasses
 5 
listclasses_cnt=!itemcnt $listclasses
6 
!for cl =1 to $listclasses_cnt
 6 
!for cl =1 to $listclasses_cnt
7 
  qclass=$(listclasses[$cl;1])
 7 
  qclass=$(listclasses[$cl;1])
8 
  #pour plus de securite, rclass doit etre fournit. S'il est donne par wims plutot que par l'appelant, c'est un verrou en moins.
 8 
  #pour plus de securite, rclass doit etre fourni. S'il est donne par wims plutot que par l'appelant, c'est un verrou en moins.
9 
  !!rclass=$(listclasses[$cl;2])
 9 
  !!rclass=$(listclasses[$cl;2])
10 
 !read scripts/check.user
 10 
 !read scripts/check.user
11 
!next
 11 
!next
12 
 
 12 
 
13 
!if $listclassesuser=$empty
13 
!if $listclassesuser=$empty