Subversion Repositories wimsdev

Rev

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

Rev 11222 Rev 12159
Line 2... Line 2...
2 
!default delu_class=$wims_class
 2 
!default delu_class=$wims_class
3 
!if $uu=$empty
 3 
!if $uu=$empty
4 
 !exit
 4 
  !exit
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
!read adm/class/userdef classes,$delu_class,$uu
 7 
!read adm/class/userdef classes,$delu_class,$uu
8 
 
 8 
 
9 
deleted=
 9 
deleted=
10 
!if $wims_superclass=$empty
 10 
!if $wims_superclass=$empty
11 
 Userdef=!replace wimshome/ by $wims_home/ in $userdef
 11 
  Userdef=!replace wimshome/ by $wims_home/ in $userdef
12 
 test=!defof user_exists in $userdef
 12 
  test=!defof user_exists in $userdef
13 
 !if $test=yes
 13 
  !if $test=yes
14 
  erased=!replace internal .users/ by .users/. in $Userdef
 14 
    erased=!replace internal .users/ by .users/. in $Userdef
15 
   !sh mv -f $Userdef $erased 2>/dev/null\
 15 
    !sh mv -f $Userdef $erased 2>/dev/null
- 
 
 16 
    !read adm/class/global_vars.def
- 
 
 17 
    !for folder in $user_dir_list
16 
     for a in `find $wims_home/log/classes/$delu_class -name '$uu.*'`; do \
 18 
      !sh for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu.*'`; do \
17 
      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\
18 
     for a in `find $wims_home/log/classes/$delu_class -name '$uu'`; do \
 20 
       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
 21 
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done
- 
 
 22 
    !next
20 
   deleted=yes
 23 
    deleted=yes
21 
 !endif
 24 
  !endif
22 
!else
 25 
!else
23 
 typename=!defof class_typename in wimshome/log/classes/$delu_class/.def
 26 
  typename=!defof class_typename in wimshome/log/classes/$delu_class/.def
24 
 !if $typename iswordof course
 27 
  !if $typename iswordof course
25 
  delu_test=!sh readlink $wims_home/log/classes/$delu_class/.userlist
 28 
    delu_test=!sh readlink $wims_home/log/classes/$delu_class/.userlist
26 
  delu_up=!defof n_part in wimshome/log/classes/$delu_class/neighbors
 29 
    delu_up=!defof n_part in wimshome/log/classes/$delu_class/neighbors
27 
  !if $delu_up!=$empty and $delu_test=../.userlist
 30 
    !if $delu_up!=$empty and $delu_test=../.userlist
28 
   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 
      delu_test=!sh find $wims_home/log/classes/$delu_up/2*/score -name '$uu' -size +1 | sed 's!^$wims_home/log/classes/!!;s!/score/.*$$!!'
29 
   delu_test=!wordstoitems $delu_test
 32 
      delu_test=!wordstoitems $delu_test
30 
   delu_test=!listcomplement $delu_class in $delu_test
 33 
      delu_test=!listcomplement $delu_class in $delu_test
31 
   delu_test=!nonempty items $delu_test
 34 
      delu_test=!nonempty items $delu_test
32 
   !if $delu_test=$empty
 35 
      !if $delu_test=$empty
33 
    delu_class=$delu_up
 36 
        delu_class=$delu_up
34 
    !goto del_class
 37 
        !goto del_class
- 
 
 38 
      !endif
- 
 
 39 
    !endif
- 
 
 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
- 
 
 47 
      deleted=yes
- 
 
 48 
    !endif
- 
 
 49 
  !else
- 
 
 50 
    :del_class
- 
 
 51 
    test=!defof user_participate in $userdef
- 
 
 52 
    !if $delu_class isitemof $test
- 
 
 53 
      shclass=!defof sharing_user in wimshome/log/classes/$delu_class/neighbors
- 
 
 54 
      !default shclass=$delu_class
- 
 
 55 
      sharing=!defof sharable_user in wimshome/log/classes/$shclass/neighbors
- 
 
 56 
      sharing=!append item $shclass to $sharing
- 
 
 57 
      part=!listcomplement $sharing in $test
- 
 
 58 
      !setdef !set user_participate=$part in $userdef
- 
 
 59 
      courses=!defof user_courses in wimshome/log/classes/$delu_class/.users/$uu
- 
 
 60 
      !for delu_c in $courses
- 
 
 61 
        !sh rm -f $wims_home/log/classes/$wims_superclass/$delu_c/.users/$uu
- 
 
 62 
        !read adm/class/mkuserlist $wims_superclass/$delu_c
- 
 
 63 
      !next delu_c
- 
 
 64 
      !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu
- 
 
 65 
      deleted=yes
35 
   !endif
 66 
    !endif
36 
  !endif
 67 
  !endif
37 
  user_class=!defof user_class in wimshome/log/classes/$delu_class/.users/$uu
 - 
 
38 
  !if $user_class!=$empty
 - 
 
39 
   !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu
 - 
 
40 
   user_courses=!defof user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu
 - 
 
41 
   delu_course=!replace internal ../$wims_superclass/ by in ../$delu_class
 - 
 
42 
   user_courses=!listcomplement $delu_course in $user_courses
 - 
 
43 
   !setdef !set user_courses=$user_courses in wimshome/log/classes/$wims_superclass/$user_class/.users/$uu
 - 
 
44 
   deleted=yes
 - 
 
45 
  !endif
 - 
 
46 
 !else
 - 
 
47 
  :del_class
 - 
 
48 
  test=!defof user_participate in $userdef
 - 
 
49 
  !if $delu_class isitemof $test
 - 
 
50 
   shclass=!defof sharing_user in wimshome/log/classes/$delu_class/neighbors
 - 
 
51 
   !default shclass=$delu_class
 - 
 
52 
   sharing=!defof sharable_user in wimshome/log/classes/$shclass/neighbors
 - 
 
53 
   sharing=!append item $shclass to $sharing
 - 
 
54 
   part=!listcomplement $sharing in $test
 - 
 
55 
   !setdef !set user_participate=$part in $userdef
 - 
 
56 
   courses=!defof user_courses in wimshome/log/classes/$delu_class/.users/$uu
 - 
 
57 
   !for delu_c in $courses
 - 
 
58 
    !sh rm -f $wims_home/log/classes/$wims_superclass/$delu_c/.users/$uu
 - 
 
59 
    !read adm/class/mkuserlist $wims_superclass/$delu_c
 - 
 
60 
   !next delu_c
 - 
 
61 
   !sh rm -f $wims_home/log/classes/$delu_class/.users/$uu
 - 
 
62 
   deleted=yes
 - 
 
63 
  !endif
 - 
 
64 
 !endif
 - 
 
65 
!endif
 68 
!endif
66 
 
 69 
 
67 
!if $deleted=yes
 70 
!if $deleted=yes
68 
 !read adm/class/mkuserlist $delu_class
 71 
  !read adm/class/mkuserlist $delu_class
69 
 usercnt=!recordcnt wimshome/log/classes/$delu_class/.userlist
 72 
  usercnt=!recordcnt wimshome/log/classes/$delu_class/.userlist
70 
 wims_module_log=Delete $deluser
 73 
  wims_module_log=Delete $deluser
71 
 wims_class_log=delete user $deluser
 74 
  wims_class_log=delete user $deluser
72 
!endif
 75 
!endif
73 
 
 -