Subversion Repositories wimsdev

Rev

Rev 4783 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4783 Rev 14218
Line 12... Line 12...
12 
#on stock le parametre rclass demandŽ
 12 
#on stock le parametre rclass demandŽ
13 
r_class=$rclass
 13 
r_class=$rclass
14 
 
 14 
 
15 
!for cl =1 to $listclasses_cnt
 15 
!for cl =1 to $listclasses_cnt
16 
 
 16 
 
17 
 qclass=!item $cl of $listclasses
 17 
  qclass=!item $cl of $listclasses
18 
 rclass=!item $cl of $list_rclasses
 18 
  rclass=!item $cl of $list_rclasses
19
19 
 
20 
 !read scripts/check.user
 20 
  !read scripts/check.user
21
21 
 
22 
 !if $error!=$empty
 22 
  !if $error!=$empty
23 
  	user_error=!append item $error to $user_error
 23 
   	user_error=!append item $error to $user_error
24 
 	error=$empty
 24 
  	error=$empty
25 
 !else
 25 
  !else
26 
	listclassesuser=!append item $qclass to $listclassesuser
 26 
    listclassesuser=!append item $qclass to $listclassesuser
27 
	list_rclassesuser=!append item $rclass to $list_rclassesuser
 27 
    list_rclassesuser=!append item $rclass to $list_rclassesuser
28 
 !endif
 28 
  !endif
29 
 
 29 
 
30 
!next
 30 
!next
31 
 
 31 
 
32 
#puis on reinitialise rclass (il pourra ainsi tre retournŽ au demandeur)
 32 
#puis on reinitialise rclass (il pourra ainsi etre retourne au demandeur)
33 
rclass=$r_class
 33 
rclass=$r_class
34 
 
 34 
 
35 
nb_user_error=!itemcnt $user_error
 35 
nb_user_error=!itemcnt $user_error
36 
 
 36 
 
37 
!if $listclassesuser=$empty
 37 
!if $listclassesuser=$empty
38 
 #debug_msg n'est utilisŽ que pour le developpement, et sera ˆ retirer en production
 38 
  #debug_msg n'est utilise que pour le developpement, et sera a retirer en production
39 
 !if $nb_user_error > 0
 39 
  !if $nb_user_error > 0
40 
 	debug_msg = This job also generated $nb_user_error errors ($user_error)
40 
  	debug_msg = This job also generated $nb_user_error errors ($user_error)
41 
 !endif
 41 
  !endif
42 
 error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). $debug_msg
 42 
  error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). $debug_msg
43 
 !exit
 43 
  !exit
44 
!endif
 44 
!endif