Subversion Repositories wimsdev

uu=$wims_read_parm

!default delu_class=$wims_class

!if $uu=$empty

  !exit

!endif

!read adm/class/userdef classes,$delu_class,$uu

deleted=

!if $wims_superclass=$empty

  Userdef=!replace wimshome/ by $wims_home/ in $userdef

  test=!defof user_exists in $userdef

  !if $test=yes

    erased=!replace internal .users/ by .users/. in $Userdef

    !sh mv -f $Userdef $erased 2>/dev/null

    folder_list=!defof USER_DIR_LIST in wimshome/public_html/bases/sys/define.conf

    !for folder in $folder_list

      !sh for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu.*'`; do \

        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done\

       for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu'`; do \

        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done

    !next folder

    deleted=yes

  !endif

!else

  typename=!defof class_typename in wimshome/log/classes/$delu_class/.def

  !if $typename=group or $typename=portal

!! desactivated for portal  !if $typename=group  or $typename=portal

    !! delete participant in group class delete it in all subclasses.

    test=!defof user_participate in $userdef

!!  delete a participant but keep access right in memory in case of reactivate access

!!    !setdef !set user_participate=$empty in $userdef

    !! ----- update userlist

    !if $typename=group

      !! subclasses userlist where participant registered are updated

      lt_=$test,$wims_superclass

    !else

      !! for the moment userlist of subclasses not live updated (too much time) ; this userlist are update in daily night check

      lt_=$wims_superclass

    !endif

    !for k_ in $lt_

      !read adm/class/mkuserlist $k_

    !next k_

    !!------- end update userlist

    Userdef=!replace wimshome/ by $wims_home/ in $userdef

    erased=!replace internal .users/ by .users/. in $Userdef

    !sh mv -f $Userdef $erased 2>/dev/null

    deleted=yes

  !else

    !if $typename iswordof course

      delu_test=!sh readlink $wims_home/log/classes/$delu_class/.userlist

      delu_up=!defof n_part in wimshome/log/classes/$delu_class/neighbors

      !if $delu_up!=$empty and $delu_test=../.userlist

        delu_test=!sh find $wims_home/log/classes/$delu_up/2*/score -name '$uu' -size +1 | sed 's!^$wims_home/log/classes/!!;s!/score/.*$$!!'

        delu_test=!wordstoitems $delu_test

        delu_test=!listcomplement $delu_class in $delu_test

        delu_test=!nonempty items $delu_test

        !if $delu_test=$empty

          delu_class=$delu_up

          !goto del_class

        !endif

      !endif

      user_class=!defof user_class in wimshome/log/classes/$delu_class/.users/$uu

      !if $user_class!=$empty

        !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu

        user_courses=!defof user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu

        delu_course=!replace internal ../$wims_superclass/ by in ../$delu_class

        user_courses=!listcomplement $delu_course in $user_courses

        !setdef !set user_courses=$user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu

        deleted=yes

      !endif

    !else

      :del_class

      test=!defof user_participate in $userdef

      !if $delu_class isitemof $test

        shclass=!defof sharing_user in wimshome/log/classes/$delu_class/neighbors

        !default shclass=$delu_class

        sharing=!defof sharable_user in wimshome/log/classes/$shclass/neighbors

        sharing=!append item $shclass to $sharing

        part=!listcomplement $sharing in $test

        !setdef !set user_participate=$part in $userdef

        courses=!defof user_courses in wimshome/log/classes/$delu_class/.users/$uu

        !for delu_c in $courses

          !sh rm -f $wims_home/log/classes/$wims_superclass/$delu_c/.users/$uu

          !read adm/class/mkuserlist $wims_superclass/$delu_c

        !next delu_c

        !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu

        deleted=yes

      !endif

    !endif

  !endif

!endif

!if $deleted=yes

  !read adm/class/mkuserlist $delu_class

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

  wims_module_log=Delete $deluser

  wims_class_log=delete user $deluser

!endif