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