Subversion Repositories wimsdev

Rev

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

Rev 4668 Rev 4687
Line 4... Line 4...
4 
!read jobs/listclasses.proc
 4 
!read jobs/listclasses.proc
- 
 
 5 
!if $error!=$empty
- 
 
 6 
	!exit
- 
 
 7 
!endif
- 
 
 8 
 
- 
 
 9 
 
5 
listclasses_cnt=!itemcnt $listclasses
 10 
listclasses_cnt=!itemcnt $listclasses
- 
 
 11 
 
- 
 
 12 
#on stock le parametre rclass demandŽ
- 
 
 13 
r_class=$rclass
6 
 
 14 
 
7 
!for cl =1 to $listclasses_cnt
 15 
!for cl =1 to $listclasses_cnt
8 
 
 16 
 
9 
 qclass=!item $cl of $listclasses
 17 
 qclass=!item $cl of $listclasses
10 
 rclass=!item $cl of $list_rclasses
 18 
 rclass=!item $cl of $list_rclasses
11
19
12 
 !read scripts/check.user
 20 
 !read scripts/check.user
13
21
14 
 !if $error!=$empty
 22 
 !if $error!=$empty
15 
  	user_error=!append item $error to $user_error
 23 
  	user_error=!append item $error to $user_error
16 
 	error=$empty
 24 
 	error=$empty
Line 18... Line 26...
18 
	listclassesuser=!append item $qclass to $listclassesuser
 26 
	listclassesuser=!append item $qclass to $listclassesuser
19 
	list_rclassesuser=!append item $rclass to $list_rclassesuser
 27 
	list_rclassesuser=!append item $rclass to $list_rclassesuser
20 
 !endif
 28 
 !endif
21 
 
 29 
 
22 
!next
 30 
!next
- 
 
 31 
 
- 
 
 32 
#puis on reinitialise rclass (il pourra ainsi tre retournŽ au demandeur)
- 
 
 33 
rclass=$r_class
23 
 
 34 
 
24 
nb_user_error=!itemcnt $user_error
 35 
nb_user_error=!itemcnt $user_error
25 
 
 36 
 
26 
!if $listclassesuser=$empty
37 
!if $listclassesuser=$empty
27 
 error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). This job also generated $nb_user_error errors ($user_error)
38 
 error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). This job also generated $nb_user_error errors ($user_error)