Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
16087 | guerimand | 1 | !! -------------- specific process for job=configfw and type=4 |
2 | |||
3 | nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework |
||
4 | |||
5 | !! ---- delete exercise |
||
6 | !if $job2=delexo and $activetest=0 |
||
7 | !bound exonum between 1 and $nbexo default $empty |
||
8 | !if $exonum=$empty |
||
9 | error=badexonumber |
||
10 | !reset job2 |
||
11 | !exit |
||
12 | !endif |
||
13 | data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.freework$freework |
||
14 | data=!line 1 of $data |
||
15 | !if $data=solution |
||
16 | error=badexonumber |
||
17 | !reset job2 |
||
18 | !exit |
||
19 | !endif |
||
20 | !read adm/recorddel $exonum wimshome/log/classes/$wims_class/freeworks/.freework$freework |
||
21 | success=ok-delexo |
||
22 | nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework |
||
23 | wims_module_log=class $class: del No$exonum in freework $freework |
||
24 | !reset job2 |
||
25 | !endif |
||
26 | |||
27 | |||
28 | |||
29 | |||
30 |