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

    !read adm/class/mkuserlist

    !for cl in $listsclassch

     !read adm/class/mkuserlist $cl

    !next cl

    !reset action,listuser,listuserchoice,listsclassch

  !endif

!endif