Subversion Repositories wimsdev

Rev

Rev 12981 | Details | Compare with Previous | 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\
14336 bpr 8
  $thislevel=$empty or $wims_user!=supervisor or\
9
  $wims_class!=$wims_superclass
12981 bpr 10
  !exit
20 reyssat 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
12981 bpr 17
  error=del_not_exist
18
  !exit
20 reyssat 19
!endif
20
 
21
!read adm/gateway/delsup $thislevel
22
!sh cd $wims_home/log/classes\
23
 rm -Rf $cls_