Subversion Repositories wimsdev

# GetClassesUser
# Liste les classes liees a un utilisateur quser ?

!read jobs/listclasses.proc
listclasses_cnt=!itemcnt $listclasses
!for cl =1 to $listclasses_cnt
  error=buggy $listclasses_cnt
 !exit

  qclass=$(listclasses[$cl;1])
  !!rclass=$(listclasses[$cl;2])
 !read scripts/check.user
!next

!if $listclassesuser=$empty 
 error=no class $listclasses_cnt
 !exit
!endif