Subversion Repositories wimsdev

Rev

Rev 4652 | Rev 4668 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4561 obado 1
# GetClassesUser
4667 obado 2
# Liste les classes liees a un utilisateur quser
4561 obado 3
 
1373 bpr 4
!read jobs/listclasses.proc
4561 obado 5
listclasses_cnt=!itemcnt $listclasses
4667 obado 6
 
7
listclassesuser=$empty
8
 
1373 bpr 9
!for cl =1 to $listclasses_cnt
4667 obado 10
 
11
 qclass=$(listclasses[$cl])
12
 
1373 bpr 13
 !read scripts/check.user
4667 obado 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
 
1373 bpr 22
!next
23
 
4667 obado 24
nb_user_error=!itemcnt $user_error
25
 
1373 bpr 26
!if $listclassesuser=$empty 
4667 obado 27
 error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). This job also generated $nb_user_error errors ($user_error)  
1373 bpr 28
 !exit
29
!endif