Subversion Repositories wimsdev

Rev

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

Rev 4652 Rev 4667
Line 1... Line 1...
1 
# GetClassesUser
 1 
# GetClassesUser
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 
 
- 
 
 7 
listclassesuser=$empty
- 
 
 8 
 
6 
!for cl =1 to $listclasses_cnt
 9 
!for cl =1 to $listclasses_cnt
- 
 
 10 
 
7 
  qclass=$(listclasses[$cl;1])
 11 
 qclass=$(listclasses[$cl])
8 
  #pour plus de securite, rclass doit etre fourni. S'il est donne par wims plutot que par l'appelant, c'est un verrou en moins.
 - 
 
9 
  !!rclass=$(listclasses[$cl;2])
 - 
 
- 
 
 12 
 
10 
 !read scripts/check.user
 13 
 !read scripts/check.user
- 
 
 14
- 
 
 15 
 !if $error!=$empty
- 
 
 16 
  	user_error=!append item $error to $user_error
- 
 
 17 
 	error=$empty
- 
 
 18 
 !else
- 
 
 19 
	listclassesuser=!append item $qclass to $listclassesuser
- 
 
 20 
 !endif
- 
 
 21 
 
11 
!next
 22 
!next
- 
 
 23 
 
- 
 
 24 
nb_user_error=!itemcnt $user_error
12 
 
 25 
 
13 
!if $listclassesuser=$empty
26 
!if $listclassesuser=$empty
14 
 error=no class $listclasses_cnt
 27 
 error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). This job also generated $nb_user_error errors ($user_error)
15 
 !exit
 28 
 !exit
16 
!endif
 29 
!endif