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