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 |