Subversion Repositories wimsdev

!! change participant registration in subclasses of groupement

!! this job is actually limited to groupement type when user=supervisor (at the groupement level)

!readproc adm/vfilter/listvarfilter.proc

usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist

!! generate list of subclasses

nbsubclasses=!recordcnt wimshome/log/classes/$wims_class/.subclasses

!reset ltsubclasses,ltnamesubclasses,ltsupsubclasses

!if $nbsubclasses>0

  !for k=1 to $nbsubclasses

	  tmp=!record $k of wimshome/log/classes/$wims_class/.subclasses

	  !distribute item $tmp into num,b,b,title,b,b,b,b,sup,b

	  ltsubclasses=!append item $num to $ltsubclasses

	  ltnamesubclasses=!append item $title to $ltnamesubclasses

	  ltsupsubclasses=!append item $sup to $ltsupsubclasses

  !next k

!endif

!if $action=$name_reguser or $action=$name_unreguser

  listlogin=$empty

  !for k=1 to $usercnt

	  tmp=!record $k of wimshome/log/classes/$wims_class/.userlist

    !if $varfilter_!=$empty

      !read adm/vfilter/testfilter $(tmp[3])\

$varfilter_

    !endif

    !if $(var_filter_test)=1 or $varfilter_=$empty

	    listlogin=!append item $(tmp[3]) to $listlogin

    !endif

  !next k

  !if __ALL__ isin $listuser

	  listuser=$listlogin

  !else

	  listuser=!listintersect $listlogin and $listuser

  !endif

  listsclassch=!listintersect $listsclassch and $ltsubclasses

  !if $listsclassch!=$empty and $listuser!=$empty

	  !if $action=$name_reguser

	    !for login in $listuser

		    tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login

		    tmp=!listunion $tmp and $listsclassch

		    !setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login

	    !next login

	  !else

	    !for login in $listuser

		    tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login

		    tmp=!listcomplement $listsclassch in $tmp

		    !setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login

	    !next login

    !endif

    !reset action,listuser,listuserchoice,listsclassch

  !endif

!endif