Rev 4629 | Rev 4652 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
# GetClassesUser
# Liste les classes liees a un utilisateur quser ?
!read jobs/listclasses.proc
listclasses_cnt=!itemcnt $listclasses
!for cl =1 to $listclasses_cnt
qclass=$(listclasses[$cl;1])
#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.
!!rclass=$(listclasses[$cl;2])
!read scripts/check.user
!next
!if $listclassesuser=$empty
error=no class $listclasses_cnt
!exit
!endif