Rev 2217 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 2217 | Rev 12617 | ||
|---|---|---|---|
| Line 2... | Line 2... | ||
| 2 | parent=$cparent |
2 | parent=$cparent |
| 3 | !if $cancel!=$empty or $del=$empty |
3 | !if $cancel!=$empty or $del=$empty |
| 4 | job=level |
4 | job=level |
| 5 | !changeto jobs/$job.proc |
5 | !changeto jobs/$job.proc |
| 6 | !endif |
6 | !endif |
| 7 | 7 | ||
| 8 | !readdef $classdir1/$del/.def |
8 | !readdef $classdir1/$del/.def |
| 9 | 9 | ||
| 10 | !if $confirm=$empty |
10 | !if $confirm=$empty |
| 11 | !exit |
11 | !exit |
| 12 | !endif |
12 | !endif |
| 13 | 13 | ||
| 14 | !read adm/gateway/delcourse $del |
14 | !read adm/gateway/delcourse $del |
| 15 | !read adm/gateway/mkindex |
15 | !read adm/gateway/mkindex |
| 16 | 16 | ||
| 17 | confirm= |
17 | confirm= |
| 18 | job=$cparent |
18 | job=$cparent |
| 19 | !changeto jobs/$job.proc |
19 | !changeto jobs/$job.proc |
| 20 | - | ||