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