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