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
        listlogin=!append item $(tmp[3]) to $listlogin
    !next k
    !if __ALL__=$listuserchoice
        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