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\
     for a in `find $wims_home/log/classes/$delu_class -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 -name '$uu'`; do \
      aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done
   deleted=yes
 !endif
!else
 typename=!defof class_typename in wimshome/log/classes/$delu_class/.def
 !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

!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