Rev 20 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 20 | Rev 12981 | ||
|---|---|---|---|
| Line 5... | Line 5... | ||
| 5 | thislevel=$(thisclass[2]) |
5 | thislevel=$(thisclass[2]) |
| 6 | 6 | ||
| 7 | !if $wims_superclass=$empty or $wims_superclass!=$(thisclass[1]) or\ |
7 | !if $wims_superclass=$empty or $wims_superclass!=$(thisclass[1]) or\ |
| 8 | $thislevel=$empty or $wims_user!=supervisor or\ |
8 | $thislevel=$empty or $wims_user!=supervisor or\ |
| 9 | $wims_class!=$wims_superclass |
9 | $wims_class!=$wims_superclass |
| 10 | !exit |
10 | !exit |
| 11 | !endif |
11 | !endif |
| 12 | 12 | ||
| 13 | cls_=$wims_read_parm |
13 | cls_=$wims_read_parm |
| 14 | cls__=wimshome/log/classes/$cls_ |
14 | cls__=wimshome/log/classes/$cls_ |
| 15 | test=!defof class_defined in $cls__/.def |
15 | test=!defof class_defined in $cls__/.def |
| 16 | !if $test!=yes |
16 | !if $test!=yes |
| 17 | error=del_not_exist |
17 | error=del_not_exist |
| 18 | !exit |
18 | !exit |
| 19 | !endif |
19 | !endif |
| 20 | 20 | ||
| 21 | !read adm/gateway/delsup $thislevel |
21 | !read adm/gateway/delsup $thislevel |
| 22 | !sh cd $wims_home/log/classes\ |
22 | !sh cd $wims_home/log/classes\ |
| 23 | rm -Rf $cls_ |
23 | rm -Rf $cls_ |
| 24 | - | ||