Subversion Repositories wimsdev

# GetClassesUser

# Liste les classes liees a un utilisateur quser

!read jobs/listclasses.proc

!if $error!=$empty

	!exit

!endif

listclasses_cnt=!itemcnt $listclasses

#on stock le parametre rclass demandŽ

r_class=$rclass

!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

#puis on reinitialise rclass (il pourra ainsi etre retourne au demandeur)

rclass=$r_class

nb_user_error=!itemcnt $user_error

!if $listclassesuser=$empty

  #debug_msg n'est utilise que pour le developpement, et sera a retirer en production

  !if $nb_user_error > 0

  	debug_msg = This job also generated $nb_user_error errors ($user_error)

  !endif

  error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). $debug_msg

  !exit

!endif