Rev 16087 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 16307 | guerimand | 1 | !! -------------- delete an exo in type=3 zonetype=exowims |
| 16087 | guerimand | 2 | |
| 16307 | guerimand | 3 | nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
| 16087 | guerimand | 4 | !! ---- delete exercise |
| 16307 | guerimand | 5 | !if $activetest=0 |
| 16087 | guerimand | 6 | !bound exonum between 1 and $nbexo default $empty |
| 7 | !if $exonum=$empty |
||
| 8 | error=badexonumber |
||
| 16307 | guerimand | 9 | job=configfw |
| 10 | !changeto $job.proc |
||
| 16087 | guerimand | 11 | !endif |
| 16307 | guerimand | 12 | data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
| 13 | !read adm/recorddel $exonum wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
||
| 16087 | guerimand | 14 | success=ok-delexo |
| 16307 | guerimand | 15 | nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
| 16087 | guerimand | 16 | wims_module_log=class $class: del No$exonum in freework $freework |
| 16307 | guerimand | 17 | job=configfw |
| 18 | !changeto $job.proc |
||
| 16087 | guerimand | 19 | !endif |