Subversion Repositories wimsdev

Rev

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

Rev 4561 Rev 4629
Line 2... Line 2...
2 
# Liste les classes liees a un utilisateur quser ?
 2 
# Liste les classes liees a un utilisateur quser ?
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 
  error=buggy $listclasses_cnt
 - 
 
8 
 !exit
 - 
 
9 
 
 - 
 
10 
  qclass=$(listclasses[$cl;1])
 7 
  qclass=$(listclasses[$cl;1])
- 
 
 8 
  #pour plus de securitŽ, rclass doit etre fournit. s'il est donnŽ par wims plutot que par l'appelant, c'est un verrou en moins.
11 
  !!rclass=$(listclasses[$cl;2])
 9 
  !!rclass=$(listclasses[$cl;2])
12 
 !read scripts/check.user
 10 
 !read scripts/check.user
13 
!next
 11 
!next
14 
 
 12 
 
15 
!if $listclassesuser=$empty
13 
!if $listclassesuser=$empty