Subversion Repositories wimsdev

Rev

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

Rev 1373 Rev 4561
Line -... Line 1...
- 
 
 1 
# GetClassesUser
- 
 
 2 
# Liste les classes liees a un utilisateur quser ?
- 
 
 3 
 
1 
!read jobs/listclasses.proc
 4 
!read jobs/listclasses.proc
2 
listclasses_cnt=!linecnt $listclasses
 5 
listclasses_cnt=!itemcnt $listclasses
3 
!for cl =1 to $listclasses_cnt
 6 
!for cl =1 to $listclasses_cnt
- 
 
 7 
  error=buggy $listclasses_cnt
- 
 
 8 
 !exit
- 
 
 9 
 
4 
  qclass=$(listclasses[$cl;1])
 10 
  qclass=$(listclasses[$cl;1])
5 
  rclass=$(listclasses[$cl;2])
 11 
  !!rclass=$(listclasses[$cl;2])
6 
 !read scripts/check.user
 12 
 !read scripts/check.user
7 
!next
 13 
!next
8 
 
 14 
 
9 
!if $listclassesuser=$empty
15 
!if $listclassesuser=$empty
10 
 error=no class
 16 
 error=no class $listclasses_cnt
11 
 !exit
 17 
 !exit
12 
!endif
 18 
!endif