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 |
27 | !if $typename=group |
28 |
|
28 | !! desactivated for portal !if $typename=group or $typename=portal |
29 |
|
29 | !! delete participant in group class delete it in all subclasses. |
30 |
|
30 | test=!defof user_participate in $userdef |
31 |
|
31 | !! delete a participant but keep access right in memory in case of reactivate access |
32 | delu_test=!wordstoitems $delu_test |
- | |
33 |
|
32 | !! !setdef !set user_participate=$empty in $userdef |
34 |
|
33 | !! ----- update userlist |
35 |
|
34 | !if $typename=group |
36 |
|
35 | !! subclasses userlist where participant registered are updated |
37 |
|
36 | lt_=$test,$wims_superclass |
38 | !endif |
- | |
39 |
|
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 |
|
38 | !! for the moment userlist of subclasses not live updated (too much time) ; this userlist are update in daily night check |
47 |
|
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 |