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 | - |