Subversion Repositories wimsdev

Rev

Rev 12161 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12161 Rev 15024
Line 17... Line 17...
17 
    !for folder in $folder_list
 17 
    !for folder in $folder_list
18 
      !sh for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu.*'`; do \
 18 
      !sh for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu.*'`; do \
19 
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done\
 19 
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done\
20 
       for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu'`; do \
 20 
       for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu'`; do \
21 
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done
 21 
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done
22 
    !next
 22 
    !next folder
23 
    deleted=yes
 23 
    deleted=yes
24 
  !endif
 24 
  !endif
25 
!else
 25 
!else
26 
  typename=!defof class_typename in wimshome/log/classes/$delu_class/.def
 26 
  typename=!defof class_typename in wimshome/log/classes/$delu_class/.def
27 
  !if $typename iswordof course
 27 
  !if $typename=group
28 
    delu_test=!sh readlink $wims_home/log/classes/$delu_class/.userlist
 28 
!! desactivated for portal  !if $typename=group  or $typename=portal
29 
    delu_up=!defof n_part in wimshome/log/classes/$delu_class/neighbors
 29 
    !! delete participant in group class delete it in all subclasses.
30 
    !if $delu_up!=$empty and $delu_test=../.userlist
 30 
    test=!defof user_participate in $userdef
31 
      delu_test=!sh find $wims_home/log/classes/$delu_up/2*/score -name '$uu' -size +1 | sed 's!^$wims_home/log/classes/!!;s!/score/.*$$!!'
 31 
!!  delete a participant but keep access right in memory in case of reactivate access
32 
      delu_test=!wordstoitems $delu_test
 - 
 
33 
      delu_test=!listcomplement $delu_class in $delu_test
 32 
!!    !setdef !set user_participate=$empty in $userdef
34 
      delu_test=!nonempty items $delu_test
 33 
    !! ----- update userlist
35 
      !if $delu_test=$empty
 34 
    !if $typename=group
36 
        delu_class=$delu_up
 35 
      !! subclasses userlist where participant registered are updated
37 
        !goto del_class
 36 
      lt_=$test,$wims_superclass
38 
      !endif
 - 
 
39 
    !endif
 37 
    !else
40 
    user_class=!defof user_class in wimshome/log/classes/$delu_class/.users/$uu
 - 
 
41 
    !if $user_class!=$empty
 - 
 
42 
      !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu
 - 
 
43 
      user_courses=!defof user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu
 - 
 
44 
      delu_course=!replace internal ../$wims_superclass/ by in ../$delu_class
 - 
 
45 
      user_courses=!listcomplement $delu_course in $user_courses
 - 
 
46 
      !setdef !set user_courses=$user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu
 38 
      !! for the moment userlist of subclasses not live updated (too much time) ; this userlist are update in daily night check
47 
      deleted=yes
 39 
      lt_=$wims_superclass
48 
    !endif
 40 
    !endif
- 
 
 41 
    !for k_ in $lt_
- 
 
 42 
      !read adm/class/mkuserlist $k_
- 
 
 43 
    !next k_
- 
 
 44 
    !!------- end update userlist
- 
 
 45 
    Userdef=!replace wimshome/ by $wims_home/ in $userdef
- 
 
 46 
    erased=!replace internal .users/ by .users/. in $Userdef
- 
 
 47 
    !sh mv -f $Userdef $erased 2>/dev/null
- 
 
 48 
    deleted=yes
49 
  !else
 49 
  !else
- 
 
 50 
    !if $typename iswordof course
- 
 
 51 
      delu_test=!sh readlink $wims_home/log/classes/$delu_class/.userlist
- 
 
 52 
      delu_up=!defof n_part in wimshome/log/classes/$delu_class/neighbors
- 
 
 53 
      !if $delu_up!=$empty and $delu_test=../.userlist
- 
 
 54 
        delu_test=!sh find $wims_home/log/classes/$delu_up/2*/score -name '$uu' -size +1 | sed 's!^$wims_home/log/classes/!!;s!/score/.*$$!!'
- 
 
 55 
        delu_test=!wordstoitems $delu_test
- 
 
 56 
        delu_test=!listcomplement $delu_class in $delu_test
- 
 
 57 
        delu_test=!nonempty items $delu_test
- 
 
 58 
        !if $delu_test=$empty
- 
 
 59 
          delu_class=$delu_up
- 
 
 60 
          !goto del_class
- 
 
 61 
        !endif
- 
 
 62 
      !endif
- 
 
 63 
      user_class=!defof user_class in wimshome/log/classes/$delu_class/.users/$uu
- 
 
 64 
      !if $user_class!=$empty
- 
 
 65 
        !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu
- 
 
 66 
        user_courses=!defof user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu
- 
 
 67 
        delu_course=!replace internal ../$wims_superclass/ by in ../$delu_class
- 
 
 68 
        user_courses=!listcomplement $delu_course in $user_courses
- 
 
 69 
        !setdef !set user_courses=$user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu
- 
 
 70 
        deleted=yes
- 
 
 71 
      !endif
- 
 
 72 
    !else
50 
    :del_class
 73 
      :del_class
51 
    test=!defof user_participate in $userdef
 74 
      test=!defof user_participate in $userdef
52 
    !if $delu_class isitemof $test
 75 
      !if $delu_class isitemof $test
53 
      shclass=!defof sharing_user in wimshome/log/classes/$delu_class/neighbors
 76 
        shclass=!defof sharing_user in wimshome/log/classes/$delu_class/neighbors
54 
      !default shclass=$delu_class
 77 
        !default shclass=$delu_class
55 
      sharing=!defof sharable_user in wimshome/log/classes/$shclass/neighbors
 78 
        sharing=!defof sharable_user in wimshome/log/classes/$shclass/neighbors
56 
      sharing=!append item $shclass to $sharing
 79 
        sharing=!append item $shclass to $sharing
57 
      part=!listcomplement $sharing in $test
 80 
        part=!listcomplement $sharing in $test
58 
      !setdef !set user_participate=$part in $userdef
 81 
        !setdef !set user_participate=$part in $userdef
59 
      courses=!defof user_courses in wimshome/log/classes/$delu_class/.users/$uu
 82 
        courses=!defof user_courses in wimshome/log/classes/$delu_class/.users/$uu
60 
      !for delu_c in $courses
 83 
        !for delu_c in $courses
61 
        !sh rm -f $wims_home/log/classes/$wims_superclass/$delu_c/.users/$uu
 84 
          !sh rm -f $wims_home/log/classes/$wims_superclass/$delu_c/.users/$uu
62 
        !read adm/class/mkuserlist $wims_superclass/$delu_c
 85 
          !read adm/class/mkuserlist $wims_superclass/$delu_c
63 
      !next delu_c
 86 
        !next delu_c
64 
      !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu
 87 
        !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu
65 
      deleted=yes
 88 
        deleted=yes
- 
 
 89 
      !endif
66 
    !endif
 90 
    !endif
67 
  !endif
 91 
  !endif
68 
!endif
 92 
!endif
69 
 
 93 
 
70 
!if $deleted=yes
 94 
!if $deleted=yes