Subversion Repositories wimsdev

# GetClassesUser

# Liste les classes liees a un utilisateur quser

!read jobs/listclasses.proc

listclasses_cnt=!itemcnt $listclasses

!for cl =1 to $listclasses_cnt

 qclass=!item $cl of $listclasses

 rclass=!item $cl of $list_rclasses

 !read scripts/check.user

 !if $error!=$empty

  	user_error=!append item $error to $user_error

 	error=$empty

 !else

	listclassesuser=!append item $qclass to $listclassesuser

	list_rclassesuser=!append item $rclass to $list_rclassesuser

 !endif

!next

nb_user_error=!itemcnt $user_error

!if $listclassesuser=$empty 

 error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). This job also generated $nb_user_error errors ($user_error)  

 !exit

!endif