Rev 20 | Go to most recent revision | 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\ |
||
| 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_ |