Subversion Repositories wimsdev

Rev

Rev 12981 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
# Delete a level and everything below it.
2
# Calling parameter: level address.
3
 
4
thisclass=!translate internal / to , in $wims_read_parm
5
thislevel=$(thisclass[2])
6
 
7
!if $wims_superclass=$empty or $wims_superclass!=$(thisclass[1]) or\
8
	$thislevel=$empty or $wims_user!=supervisor or\
9
	$wims_class!=$wims_superclass
10
 !exit
11
!endif
12
 
13
cls_=$wims_read_parm
14
cls__=wimshome/log/classes/$cls_
15
test=!defof class_defined in $cls__/.def
16
!if $test!=yes
17
 error=del_not_exist
18
 !exit
19
!endif
20
 
21
!read adm/gateway/delsup $thislevel
22
!sh cd $wims_home/log/classes\
23
 rm -Rf $cls_
24