Subversion Repositories wimsdev

Rev

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