Rev 2217 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | |
| 2 | parent=$cparent |
||
| 3 | !if $cancel!=$empty or $del=$empty |
||
| 12617 | bpr | 4 | job=level |
| 5 | !changeto jobs/$job.proc |
||
| 23 | reyssat | 6 | !endif |
| 7 | |||
| 8 | !readdef $classdir1/$del/.def |
||
| 9 | |||
| 10 | !if $confirm=$empty |
||
| 12617 | bpr | 11 | !exit |
| 23 | reyssat | 12 | !endif |
| 13 | |||
| 14 | !read adm/gateway/delcourse $del |
||
| 15 | !read adm/gateway/mkindex |
||
| 16 | |||
| 17 | confirm= |
||
| 18 | job=$cparent |
||
| 19 | !changeto jobs/$job.proc |