Subversion Repositories wimsdev

Rev

Rev 4667 | Rev 4687 | 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
 
1373 bpr 7
!for cl =1 to $listclasses_cnt
4667 obado 8
 
4668 obado 9
 qclass=!item $cl of $listclasses
10
 rclass=!item $cl of $list_rclasses
11
 
1373 bpr 12
 !read scripts/check.user
4667 obado 13
 
14
 !if $error!=$empty
15
  	user_error=!append item $error to $user_error
16
 	error=$empty
17
 !else
18
	listclassesuser=!append item $qclass to $listclassesuser
4668 obado 19
	list_rclassesuser=!append item $rclass to $list_rclassesuser
4667 obado 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