Subversion Repositories wimsdev

# Delete a class and all its courses.

# Calling parameter: class address.

thisclass=!translate internal / to , in $wims_read_parm

thislevel=$(thisclass[1])

!if $wims_superclass=$empty or $thislevel=$empty or $wims_user!=supervisor

 !exit

!endif

cls_=$wims_read_parm

classdir=wimshome/log/classes/$wims_superclass

cls__=$classdir/$cls_

!if $cls_= or $wims_class/ notin $wims_superclass/$cls_

 !exit

!endif

test=!defof class_defined in $cls__/.def

!if $test!=yes

 error=del_not_exist

 !exit

!endif

courses=!record 0 of $cls__/courses

courses=!column 1 of $courses

courses=!nonempty items $courses

class_=$wims_superclass/$cls_

!for dp_c in $courses

 sharelist=!defof sharing_all in $classdir/$dp_c/neighbors

 !for dp_C in $sharelist

  !if $dp_C != $class_

   !read adm/class/stopshare $dp_C,$wims_superclass/$dp_c\

	all

  !endif

 !next dp_C

 error=

 !read adm/gateway/delsup $dp_c

!next dp_c

n=!recordcnt $classdir/$cls_/.userlist

!for i=1 to $n

 l=!record $i of $classdir/$cls_/.userlist

 u=!item 3 of $l

 s=!defof user_participate in $classdir/.users/$u

 !if $class_ isitemof $s

  s=!listcomplement $class_ in $s

  !setdef !set user_participate=$s in $classdir/.users/$u

 !endif

!next i

!read adm/gateway/delsup $cls_

courses=!items2words $courses

!sh cd $wims_home/log/classes/$wims_superclass\

 rm -Rf $cls_ $courses